• IchigoJam
• typing

1 REM TYPING LV1
5 W=10:S=0
10 LET[0],ASC("A"),ASC("S"),ASC("D"),ASC("F"),0,0,ASC("J"),ASC("K"),ASC("L")
20 CLS:N=RND(7):IF N>3 N=N+2
22 X=N*2+4:Y=1
26 FOR I=0 TO 8:LC I*2+4,22:?CHR$([I]);:NEXT
28 LC 5,0:?"LEVEL:";11-W;" SCORE:";S
40 LC X,Y:?CHR$([N])
70 K=INKEY()
80 IF K=[N] FOR I=22 TO Y STEP -1:LC X,I:?"|":BEEP I-Y:NEXT:S=S+1:W=10-S/10:GOTO 20
85 IF K>0 S=S-1+(S<1):BEEP 30:GOTO 28
90 WAIT W:LC X,Y:?" "
130 Y=Y+1:IF Y=22 PLAY"G8E8C4":LC 8,10:?"GAME OVER":END
140 GOTO 40

Pagetop