12行目のCLSで画面に表示した文字を消してしまっています。 12行目を削除するか、GOTOより後(ループの外)に持っていくかすれば表示されるようになるかと思います。