• 1.4
• IchigoJam
• ゲーム

10 'JUMPING POLE
20 VIDEO 3:CLS:CLV:X=8:P=4
30 X=X-BTN(28)*(X>0)+BTN(29)*(X<14)
40 LC X,11:? CHR$(#ED);
50 FOR I=1 TO P
60 A=A+!B*I*8%30:C=C+!(A%29)
70 E=B>230
80 D=(D+3)*!E-(RND(19)+11)*E
90 DRAW A,B/10,A,B/10-15,0
100 A=A+C%2*2-1:B=B+D
110 DRAW A,B/10,A,B/10-15
120 LET [102-P*4],A,B,C,D
130 COPY #8D3,#8CB,-99
140 LC X,11:H=SCR()
150 IF H>#80 AND H<#90 T=1
160 S=S+E:BEEP I*10*!E+12-S/5
170 NEXT
180 ? CHR$(T*244);:LC 0,0:? S
190 IF T=0 GOTO 30
200 WAIT 90:LC 3,5:? "GAME  OVER"

Pagetop