Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/25 21:37:29

MixJuice GET URL : kidspod.club/mj/586

反射神経テスト(BASIC 0.9.0~)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

10 'Reflex test
20 CLS:LET X,0:LET Y,0
30 LC X,Y:? ".";
40 LET X,X+2:IF X<20 GOTO 30
50 LET X,0:LET Y,Y+2
60 IF Y<20 GOTO 30
70 CLT:LET C,0:LET M,0
80 LET X,RND(10)*2
90 LET Y,RND(10)*2
100 LET T,RND(26)+65
110 LC X,Y:? CHR$(T);
120 LET K,INKEY()
130 IF K=0 GOTO 120
140 IF K>97 LET K,K-32
150 IF K=T GOTO 190
160 BEEP 50,15:LET M,M+1
170 IF INKEY() GOTO 170
180 GOTO 120
190 BEEP 5:LET C,C+1
200 LC X,Y:? ".";
210 IF C<10 GOTO 80
220 LC 0,20:? "TIME:";TICK()
230 ? "MISS:";M

'OK

COMMENT