TYPE26

アルファベット２６文字を打鍵せよ

配列に入れたA〜Zがシャッフルされます。
スペースキーを押すとスタート
表示された文字を正確にタイピングしていきます。

プログラム

10 'TYPE26
20 VIDEO 5:CLS:?"TYPE26"
30 FORI=0TO25:[I]=65+I:NEXT
40 @R:K=INKEY():IFKGOTO@S
50 A=RND(26):B=RND(26)
60 LC3,3:?CHR$([A]);CHR$([B]);
70 X=[A]:[A]=[B]:[B]=X
80 BEEP3,2:WAIT5:GOTO@R
90 @S:VIDEO 7:CLS:C=0:BEEP
100 @L:LC2,1:?CHR$([C]);
110 K=INKEY():IF!KCONT
120 BEEP:IFC=0CLT
130 IFK<>[C]GOTO@M
140 C=C+1:IFC<26GOTO@L
150 T=TICK():FORI=0TO2:BEEP10,3:WAIT4:NEXT
160 VIDEO 5:LC1,2:?T/60;".";T%60/6
170 GOTO@W
180 @M:BEEP100,20
190 VIDEO 5:LC1,2:?"MISS!"
200 @W:IFINKEY()<>32CONT
210 VIDEO1:END

タブを閉じる