タイピングの練習ができます。
20 GOSUB200 を書き換えると文字の種類が変わります。
GOSUB200 大文字アルファベット
GOSUB210 大文字アルファベット + アラビア数字
GOSUB220 大文字アルファベット + アラビア数字 + 記号
GOSUB230 アラビア数字
1 'typing 10 VIDEO5: CLT: I=0 20 GOSUB200 30 CLS: ?CHR$(C) 40 K=INKEY() 50 IF K=0 GOTO40 60 IF K!=C ?"No Good..": GOTO40 70 CLS: ?"OK!": WAIT10: I=I+1 80 IF I<10 GOTO20 90 CLS: ?"Good Job!!:";TICK(): END 200 C=65+RND(26) 201 RETURN 210 C=RND(36): IF C<10 C=C+48 ELSE C=C-10+65 211 RETURN 220 C=33+RND(64) 221 RETURN 230 C=48+RND(10) 231 RETURN