• IchigoJam
• 運動

1 'SHUTTLE RUN
10 LET[0],7,900,8,800,8,758,9,720,9,686,10,655,10,626,11,600,11,576,11,554,12,533,12,514,13,497,13,480,13,465,14,450,14,436,15,424,15,411,16,400,16,389
15 M="C;D;E;F;G;A;B;<C"
20 L=0:N=0:F=1
30 C=[L*2]:S=[L*2+1]:T=S*6/100:W=S*6/10-T*10
35 ?L+1,N,C,S
40 BEEP:WAIT T:FOR I=0 TO 7
42 IF F PLAY M+I*2 ELSE PLAY M+14-I*2
43 WAIT T:NEXT:WAIT T
44 WAIT W
45 N=N+1:F=!F
46 IF BTN() GOTO 100
50 C=C-1:IF C>0 GOTO 35
60 L=L+1:GOTO 30
100 POKE #FFF,N-1:SAVE

Pagetop