• PanCake
• danbungames
• game
• IchigoJam

1 P=128:?CHR$(P,3,13)
2 ?CHR$(P,4,6,5)
3 ?CHR$(P,5,7,0,11)
4 ?CHR$(P,5,7,1,75)
5 ?CHR$(P,5,7,2,73)
6 ?CHR$(P,24,11,0,1,82,254,50,253,54,50,50,253,54,50,253,253,54,50,50,253,55,253,255)
10 A=12:X=0:Y=0:B=99:S=0:T=999:F=0
20 IF X X=X+8
31 IF (Y>B-3)*(Y<B+3)*(62<X) B=98:S=S+1
40 IF X>73 X=0:IF B=98 B=99
50 IF B=99 B=RND(30)+8
60 K=INKEY()
70 IF (K=30)*(A>7) A=A-2
80 IF (K=31)*(A<37) A=A+2
90 IF(K=32)*(X=0)X=1:Y=A:?CHR$(P,11,11,1,1,33,71,85,93,62,255)
111 ?CHR$(P,6,8,0,10,A)
121 IF X ?CHR$(P,6,8,1,X+10,Y)
131 ?CHR$(P,6,8,2,62,B)
141 ?CHR$(P,5,7,8,(S/10)+166)
142 ?CHR$(P,6,8,8,0,0)
143 ?CHR$(P,5,7,3,(S%10)+166)
144 ?CHR$(P,6,8,3,7,0)
151 ?CHR$(P,5,7,4,66)
152 ?CHR$(P,6,8,4,25,0)
153 ?CHR$(P,5,7,5,(T/100)+166)
154 ?CHR$(P,6,8,5,34,0)
155 ?CHR$(P,5,7,6,(T%100)/10+166)
156 ?CHR$(P,6,8,6,43,0)
157 ?CHR$(P,5,7,7,(T%10)+166)
158 ?CHR$(P,6,8,7,52,0)
160 WAIT2:T=T-5
161 IF(T<0) GOTO 900
190 GOTO 20
900 ?CHR$(P,5,7,5,132)
910 ?CHR$(P,5,7,6,141)
920 ?CHR$(P,5,7,7,131)
930 END

Pagetop