• PanCake
• IchigoJam
• game
• danbungames

1 P=128:?CHR$(P,3,13)
2 ?CHR$(P,4,6,6)
3 ?CHR$(P,24,11,0,1,33,254,102,100,98,107,47,103,47,102,102,103,102,100,102,100,98,100,255)
6 ?CHR$(P,5,7,2,29)
10 A=23:X=0:Y=0:U=0:V=0:C=0:D=0
20 T=0:S=-1
30 IF U*(X<=0)+U*(72<X) U=U*-1
40 IF V*(Y<=0) V=V*-1
50 IF U X=X+U:Y=Y+V
60 IF (Y=35)*(A-5<X)*(X<A+7) V=V*-1
70 IF V*(36<Y) X=0:Y=0:U=0:V=0:
80 IF U*(D-4<Y)*(Y<D+4)*(C-4<X)*(X<C+4) T=0
90 IF T=0 S=S+1
100 IF T%30=0 C=RND(40)+11:D=RND(20)+10
110 K=INKEY()
120 IF K=28 IF 1<A A=A-2
130 IF K=29 IF A<65 A=A+2
140 IF K=32 X=A+4:Y=33:U=2:V=-2:?CHR$(P,11,11,1,1,49,71,70,71,70,255)
151 ?CHR$(P,5,7,3,(S%10)+166)
152 ?CHR$(P,6,8,3,20,2)
153 ?CHR$(P,5,7,5,29)
154 ?CHR$(P,6,8,5,8,2)
155 ?CHR$(P,5,7,6,(S%100)/10+166)
156 ?CHR$(P,6,8,6,15,2)
159 ?CHR$(P,5,7,4,103)
160 ?CHR$(P,5,7,1,101)
161 ?CHR$(P,6,8,1,A,40)
162 ?CHR$(P,6,8,4,A+6,40)
170 IF(U!=0) ?CHR$(P,5,7,0,89)
171 IF(U=0) ?CHR$(P,5,7,0,255)
172 IF U ?CHR$(P,6,8,0,X,Y)
181 ?CHR$(P,6,8,2,C-2,D)
190 T=T+1:GOTO 30

Pagetop