• IchigoJam
• game
• danbungames

10 X=16:Y=13:A=99:B=99:S=5:T=0
20 K=INKEY()
30 IF K=28 X=X-1:IF X<0 X=30
40 IF K=29 X=X+1:IF 30<X X=0
50 IF K=30 Y=Y-1:IF Y<1 Y=22
60 IF K=31 Y=Y+1:IF 22<Y Y=1
70 IF (X=A)*(Y=B) S=S-1:A=99:B=99
80 IF A=99 A=RND(31):B=RND(22)+1
90 CLS
100 LOCATE X,Y:PRINT"@"
110 LOCATE A,B:PRINT"0"
120 LOCATE 0,0:PRINT"BREADS:";S
130 LOCATE 12,0:PRINT"TIME:";T
140 IF S=0 END
150 WAIT 2
160 T=T+1
170 GOTO 20

Pagetop