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行目の後に入れるのが好ましいです。
DATA文は1行に2つ以上のデータを用意する際、「,」で区切る必要があります。
例えば
DATA 15
DATA "----------------------"
ってな感じで分けてしまえば問題無いのですが、見栄えもよくないし手直しが面倒というのが。
なので
DATA 15,"-------------------------"
みたいに「,」で区切りましょう。もう少しでゴールだから頑張ってね!