10 CLT:X=31:Y=11 20 M="タ゛ルマサンカ゛コロンタ゛!" 30 CLS:S=0:C=0:T=1+RND(5) 40 LC X,Y:?" " 50 K=INKEY() 60 X=X-(K=28)+(K=29) 80 LC X,Y:?"(#EC)" 90 IF S=1 AND K<>0 LC 0,12:?"ウコ゛イタ!":END 100 IF X=1 LC 0,12:?"タッチ!":?TICK():END 110 IF S=1 AND RND(30)=0 GOTO30 120 LC 0,11 130 IF S=0 ?"(#FD)" ELSE ?"(#FB)" 140 IF RND(T)=0 AND C<LEN(M) LC 1+C,10:?CHR$(ASC(M+C)):C=C+1 150 IF C=LEN(M) S=1 160 GOTO40
かなりの緊張感! 文字が見えているだけに「まだ行ける」「もう行けない」のせめぎあいが面白い!