• Ichigojam
• mobileB2

10 'JUMPテンコ゛ク
20 CLS:CLV
30 X=7:Y=5:V=0:J=0:W=10:K=0
40 LC X,Y
50 ?"(#FB)";
60 LC0,6
70 FORI=0TO15
80 ?"(#8F)";
90 NEXT
100 LC0,0
110 ?S
120 '-LOOP-
130 IFINKEY()=32ANDJ=0 GSB480
140 LCX,Y
150 ? " ";
160 Y=Y+V:IFJ V=V+1
170 IFVPEEK(X,Y)=36 BEEP:S=S+100
180 IFVPEEK(X,Y)=64 BEEP:W=2:Z=1
190 LCX,Y
200 ?"(#FB)";
210 IFY>4 J=0:V=0
220 GSB290
230 IFVPEEK(X,Y+1)<>143 AND Y=5 GOTO250
234 IFK>1 LC2,4:?"$BONUS STAGE$":LRUN FILE()+1,30
240 GOTO120
250 '-MISS-
260 LC2,4:?"*** MISS ***"
270 LRUN FILE()-1,30
280 END
290 '-SCROLL-
300 LCX,Y
310 ? " ";
320 SCROLL 3
330 IFZ>0 Z=Z+1
340 IFZ>=32 Z=0:W=10
350 IFVPEEK(X,Y)=36 BEEP:S=S+100
360 IFVPEEK(X,Y)=64 BEEP:W=4:Z=1:K=K+1
370 LC15,6
380 IFRND(10)<9  ?"(#8F)";
390 LCX,Y
400 ?"(#FB)";
410 S=S+1
420 LC0,0
430 PRINT S
440 IFRND(10)<1  LC15,3:?"$";
450 IFRND(20)<1  LC15,3:?"@";
470 WAITW:RTN
480 '-JUMP-
490 J=1
500 V=-2
510 RTN

Pagetop