DATA文に挑戦するのはどうでしょう。 RESTORE @～　で読みこむラベルを指定出来ますので、そのラベルの下に打ったデータ文を読みこませて表示させる、と。 この場合ですと、 RESTORE @TITLEDATA FOR I=0 TO 6 READ CL,T$ COLOR CL:LOCATE 13,6+I:PRINT T$ NEXT @TITLEDATA DATA 15,"--------------" DATA 9,"| |" ...こんな感じで。 あと11行目のWHILEはそこだと処理が重くなるので29行目の後に入れるのが好ましいです。