10 '[[[ RH-L2 ]]]
20 '/// INI
30 CLEAR&H6FFF:GOSUB1080
40 '/// START
50 GOSUB880
60 '/// MAIN
70 '/ CSR
80 CALL&H330:A=STICK(0)
90 IFA=0 THEN150
100 IF1ANDA X=X+1:IFX>2 X=0
110 IF2ANDA X=X-1:IFX<0 X=2
120 IF4ANDA Y=Y+1:IFY>2 Y=0
130 IF8ANDA Y=Y-1:IFY<0 Y=2
140 POKE&HF8,X,Y:POKE&H4000,&H80,&H87,&H48,8
150 '/ CMD
160 CALL&H398:IFPEEK(&HFD)=0 C=0:POKE&H4000,&H87,&HB3,&HF0,9:PAUSE100:GOTO730
170 A=STRIG(0):C=0
180 IFA=0 THEN420
190 IFA=1 THEN650
200 R=PEEK(&H420+X+Y*3)
210 IFA=8 THEN340
220 IFA=4 THEN240
230 GOTO420
240 '/ MRK
250 FORI=0TO7
260 IFMOVE(I) THEN310
270 IFPEEK(&H658+I)<>R ORPEEK(&H678+I) THEN310
280 C=1:A=PEEK(&H660+I)XOR1:POKE&H660+I,A
290 A=PEEK(&H645+I)AND&HFC ORA:POKE&H645+I,A
300 J=I*16:POKE&H282+J,A:POKE&H286+J,A:POKE&H28A+J,A:POKE&H28E+J,A
310 NEXT
320 IFC=1 POKE&H4004,&H62,&H8A,&H70,8:GOTO420
330 GOTO410
340 '/ TRN
350 FORI=0TO7
360 IFMOVE(I) THEN390
370 IFPEEK(&H658+I)<>R ORPEEK(&H678+I) THEN390
380 C=1:POKE&H670+I,PEEK(&H670+I)XOR1:POKE&H668+I,1
390 NEXT
400 IFC=1 POKE&H4004,&H82,&HC4,&HA0,8:GOTO420
410 POKE&H4004,&H81,&H7F,&HF0,&HB
420 '/ PEN
430 CALL&H444:I=0
440 A=PEEK(&H678+I):IFA=0 THEN490
450 IFA=1 THEN620
460 IFA=2 POKE&H678+I,3:POKE&H660+I,0:O=O+1:C=XPOS(I):D=YPOS(I):DEFMOVE(I)=SPRITE(10,0,2,20,0,0):POSITIONI,C,D:MOVEI:POKE&H4004,&HCF,&H83,&H68,8:POKE&H400C,1,0,6,8:GOTO620
470 IFMOVE(I)THEN620
480 POKE&H678+I,1:CANI:GOTO620
490 IFMOVE(I)THEN620
500 C=PEEK(&H668+I):IFC=0 C=Z*8+1
510 C=C-1:POKE&H668+I,C:IFC THEN620
520 R=PEEK(&H658+I):C=PEEK(&H670+I):D=PEEK(&H410+C*8+R)
530 IF2ANDD THEN570
540 A=YPOS(I)-PEEK(&H438+R):IFD=5 B=32-A:GOTO560
550 B=16+A
560 B=B/2+8+RND(9):GOTO600
570 A=XPOS(I)-PEEK(&H430+R):IFD=3 B=48-A:GOTO590
580 B=16+A
590 B=B/2+8+RND(19)
600 R=R+1-C*2:R=7ANDR:POKE&H658+I,R
610 DEFMOVE(I)=SPRITE(4,D,Z,B):MOVEI
620 I=I+1:IFI<8 THEN440
630 IFO=N-M C=0:POKE&H400C,15,0,10,8:PAUSE100:GOTO730
640 GOTO60
650 '/// CHK MRD
660 A=0:FORI=0TO7:A=A+PEEK(&H660+I):NEXT:IFA<>M THEN410
670 CUT0,1,2,3,4,5,6,7:A=4:C=0:POKE&H4008,1
680 FORI=0TO7:IFPEEK(&H650+I)=0 THEN720
690 SPRITEA,XPOS(I),YPOS(I)-12:A=A+1:POKE&H4000,&H9F,&H94,&HFF,0:PAUSE20
700 IFPEEK(&H660+I) C=C+1:POKE&H4000,&H84,&HEB,&HA0,8:PAUSE20:GOTO720
710 POKE&H4000,&H44,&H7F,&HC0,&HA:PAUSE20
720 NEXT:PAUSE100
730 '/// CLEAR
740 CLS:SPRITEOFF:POKE&H4008,1:IFC<M THEN840
750 A=N-M-O:C=M*50+50:T=PEEK(&HFD):B=A*C+T*10:S=S+B:LOCATE9,5PRINT"CLEAR !":LOCATE2,10PRINT"セイゾンシャ",A,"X"C"P":LOCATE2.12PRINT"タイム",,T,"X 10P":LOCATE2,15PRINT"BONUS",B
760 IFS>W LOCATE9,19PRINT"チャンス +1 !":U=U+1:W=W+1000
770 PLAY"O2G3O3CE:O2C3G#B:C3CC":PLAY"F5DC:#B5BG:F5GC"
780 PAUSE150:V=V+1:M=M+1:IFM*2<=N THEN40
790 '/ MD CLR
800 CLS:LOCATE4,9PRINTN" ニン モ-ド シュウリョウ !":PLAY"O2G4G1O3C5FEC:O1G4G1C5CCC":PLAY"#D4O2#A1O3G7R5:#D#D#D#D"
810 PLAY"F7C5A#G7#D5#B:FFFF#G#G#G#G":PLAY"#A7F5#A:#A#A#A#A":PLAY"#B9:O2CT1CCCT3C7"
820 N=N-1:M=1:IFN>3 THEN40
830 LOCATE10,14PRINT"THE END":PAUSE300:RUN
840 '/// MISS
850 U=U-1:IFU<0 THEN870
860 LOCATE8,11PRINT"TRY AGAIN !":PAUSE100:GOTO40
870 LOCATE9,11PRINT"GAME  OVER":POKE&H4000,&HCC,&HC4,&H98,9:PAUSE200:RUN
880 '/// START
890 X=1:Y=2:O=0:T=32:POKE&HF8,X,Y,0,(3-Z)*12,0,T:POKE&HF2,1,0:CALL&H398
900 FORI=0TO12STEP4:POKE&H220+I,&H1F:NEXT:FORI=4TO7:SPRITEI:NEXT:SPRITE3,&H78,&H6F
910 FORI=0TO7:POKE&H650+I,-(I<M):CANI:NEXT:FORI=N TO1STEP-1:J=RND(I):A=PEEK(&H650+J):POKE&H650+J,PEEK(&H64F+I):POKE&H64F+I,A:NEXT
920 FORI=0TO7
930 A=PEEK(&H650+I):A=0
940 B=-(I>N-1)
950 POKE&H658+I,5:'ROOM
960 POKE&H660+I,A:'MRK
970 POKE&H668+I,1:'CNT
980 POKE&H670+I,1:'VCT
990 POKE&H678+I,B:'LIV
1000 DEFMOVE(I)=SPRITE(4,0,1,1,0,A):POSITIONI,(3ANDI)*12+&H66,(4ANDI)*4+&HA0-3:IFB=0 MOVEI
1010 NEXT
1020 '/ OPN
1030 CLS:LOCATE10,8:PRINT"STAGE"V:LOCATE8,12:PRINT"サツジンキ "M"/"N
1040 PLAY"O2F3A#B:O2C3FA:F3FF":PLAY"GBO3DO2A7:DGBE7:GGGA5"
1050 POKE&HE5,0:VIEW:LOCATE1,1PRINTRIGHT$("   "+STR$(S),5)"  "U:LOCATE13,1PRINTM"/"N
1060 SPRITEON
1070 POKE&H4015,15:RETURN
1080 '/// INI2
1090 CLS:CGEN2:CGSET1,2
1100 SPRITEOFF:PLAY"T3Y1M1V15:T3Y1M1:T3M1O1"
1110 I=A=B=C=D
1120 '/ COLOR
1130 PALETB 1,0,&H26,&H17,5:PALETB 2,0,&H22,&H12,3:PALETB 3,0,&H29,&H10,0
1140 PALETS 0,15,48,38,43:PALETS 1,0,52,20,36
1150 '/ OBJ INI
1160 FORI=0TO12STEP4:POKE&H201+I,&HD1:POKE&H211+I,&HD5:POKE&H221+I,&HDE:POKE&H222+I,1:POKE&H223+I,&HB8+I*2:NEXT
1170 DEFSPRITE3,(2,1,0,0,0)="":FORI=4TO7:DEFSPRITEI,(3,1,0,0,0)="XYZ「":NEXT:POKE&H68C,&HC0,&HC1,&HC2,&HC3
1180 '/// TITLE
1190 N=8:Z=0:CLS:LOCATE6,21PRINTCHR$(180)" 1993 T.ENDO":FORI=8TO16STEP2:COLORI,15,1:COLORI,17,1:NEXT:FORI=0TO22:LOCATE2+I,4PRINTCHR$(&HC2):LOCATE24-I,8PRINTCHR$(&HC2):NEXT
1200 LOCATE6,6PRINT"リュウヒョウカン ノ サンゲキ":LOCATE8,15PRINT"ニンズウ":LOCATE8,17PRINT"スピ-ド":LOCATE6,11PRINTCHR$(&HC4)" PUSH START "CHR$(&HC6)
1210 A=STICK(0):N=N+(1ANDA)-(2ANDA)/2:N=N-(N<4)+(N>8):LOCATE13,15PRINTN:LOCATE14,17PRINTMID$("HIGHLOW ",1+Z*4,4):PAUSE4:IF12ANDA Z=1-Z
1220 IFSTRIG(0)=0 THEN1210
1230 M=1:Z=Z+1:S=0:W=1000:V=1:U=2
1240 RETURN