• IchigoJam
• game
• danbungames

10 H=13:I=16:X=1:Y=1:T=0:S=0:C=100
20 IF T=0 X=RND(3):Y=RND(3)
30 T=T+1
40 CLS
50 LOCATE 0,0:PRINT"SCORE:";S
60 LOCATE 10,0:PRINT"TIME:";C
70 LOCATE H,I-0:PRINT"1 2 3"
80 LOCATE H,I-3:PRINT"4 5 6"
90 LOCATE H,I-6:PRINT"7 8 9"
100 LOCATE H+X*2,I-Y*3-1:PRINT"@"
110 IF C=0 END
120 K=INKEY()
130 IF K-49=Y*3+X S=S+1:T=0
140 IF T%10=0 T=0
150 WAIT 5
160 C=C-1
170 GOTO 20

Pagetop