GOTO @TOP　でのループに2行目のCLSを巻き込んでいるから、せっかく書いた文字が消えているんだと思います。 ラベルを12行目に置いてそこにGOTOするか、13行目から15行目までをWHILE 1〜WENDで囲んでみてください。