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
シンプルながらいいタイピング練習ができますね。4つのモードを自由に使い分けるというところも素晴らしいです!