10 '{M5|M5|M5} ショキセッテイ {M5|M5|M5}
20 SPRITEON:CGSET1,2:DEFSPRITE0,(2,1,0,0,0)="XYZ「":FORI=1TO28:L0$=L0$+CHR$(197):NEXT
30 '{M5|M5|M5} ガメンサクセイ {M5|M5|M5}
40 CLS:FORI=1TO100:LOCATERND(28),RND(20):PRINTCHR$(205+RND(2)):NEXT:LOCATE 0,22:PRINTL0$;"SC=";
50 X=120:Y=184:SPRITE0,X,Y:PLAY"T1O3D7C5#D7D5CO2#AO3C7O2#A5O3D7":PLAY"C5O2#AA#A7#AA5ARG7"
60 '{M5|M5|M5} メインル-チン {M5|M5|M5}
70 FORI=0TOF:DEFMOVE(I)=SPRITE(2,4+RND(3),RND(5)+1+F,80,0,1):POSITIONI,RND(208)+16,24:MOVEI:NEXT
80 IFSTICK(0)=1THEND=4
90 IFSTICK(0)=2THEND=-4
100 IFX=16THEND=4
110 IFX=224THEND=-4
120 IFG=0ANDSTRIG(0)=8THENG=1:Z=-19
130 Z=Z-(G=1):IFZ=19THENG=0:Z=0
140 X=X+D:Y=Y+Z:SPRITE0,X,Y
150 FORI=0TOF
160 V=XPOS(I):W=YPOS(I):IFV>=X-15ANDV<=X+15ANDW>=Y-15ANDW<=Y+15THENSC=SC+RND(5)*10+10:LOCATE3,23:PRINTSC;:DEFMOVE(I)=SPRITE(2,4+RND(3),RND(5)+1+F/2,80,0,1):POSITIONI,RND(208)+16,24:MOVEI:PLAY"T1O3"+MID$("CDEFGAB",RND(7)+1,1)+"2"
170 IFMOVE(I)=0THEN230
180 NEXT
190 IFSC>=10000THEN270
200 IFSC>=1000*F+3000THENF=F+1:X=120:Y=184:D=0:G=0:Z=0:ERA0,1,2,3,4,5,6,7:LOCATE9,10:PRINT"LEVEL UP!!":PLAY"M0V15T2":PLAY"O3C6CCD2DDRE6EEF2FFRG6B2BBRO4C6":LOCATE9,10:PRINT"          ":GOTO70
210 GOTO80
220 '{M5|M5|M5} ゲ-ムオ-バ- {M5|M5|M5}
230 PLAY"T1O1C5DCDCDC":FORI=1TO10:CGSET0,0:CGSET1,2:NEXT
240 LOCATE9,10:PRINT"GAME  OVER":IFSTRIG(0)=1THENRUN
250 GOTO240
260 '{M5|M5|M5} PERFECT {M5|M5|M5}
270 ERA0,1,2,3,4,5,6,7:LOCATE9,10:PRINT"PERFECT !!":PLAY"T1O3C5O2BO3CF7C5O2A7A5#GAO3C7O2":PLAY"A5F7A5GFG7G5G7#A5AGO3C7O2A5FR9":SPRITE0:CLS:FORI=1TO500:LOCATERND(28),RND(23):PRINTCHR$(253+RND(3));:NEXT
280 LOCATE7,9:PRINT"              ":LOCATE7,10:PRINT" SOUND  BREAK ":LOCATE7,11:PRINT"              ":PAUSE100:N=0:FORI=1TO2
290 PLAY"T2O2B5O3DE7R5EE7D5E#FG#FG#FEDC":PLAY"D7R5DD7O2B5O3DEFEFEDCO2B":PLAY"O3C7C5E#D7O2B5AGBO3E#FG7":PLAY"E5GA7G5#FEDO2BO3DE3#FE7R8":IFN=1THEN320
300 NEXT:PLAY"E3DO2BGE7B5RO3E7":FORI=1TO2:PLAY"E3O4CO3BO4CO3B7R5AA7R9R":PLAY"D3BABA7R5GG7R9R":PLAY"C3AGAG7R5#F#F7F5#FA7":IFI=1THENPLAY"F5#FABO4CDC3O3BB7R9RR8"
310 NEXT:PLAY"#F5G#F7R5EE7R9R":PLAY"E7DO2BA9R5BO3CEB9R5AO4DCO3B9R5":PLAY"#F7D5E3#FE9R8#F9R5E5#DE#F3G#F9":PLAY"O2B7O3A5#F9RR":N=1:GOTO290
320 PLAY"T3E5GA7G5#FEDO2BO3DE3#FE7":PAUSE300:FORI=1TO23:LOCATE27,22:PRINT" ":PLAY"T1O2G5R":NEXT:GOTO240