• IchigoJam
• BASIC
• 反射神経テスト
• ふうせんFU-SEN

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

Pagetop