home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
fb386
/
s_rainb
/
s_r_2.bas
< prev
next >
Wrap
BASIC Source File
|
1980-01-02
|
48KB
|
782 lines
1 '\\\ SUPER WINNING THE RAINBOW ///
2 'PROGRAMMED BY/☆Plusα☆な男-立野。
3 '1990(C) TEAM α
4 'ALL RIGHTS RESERVED(91-01-16 Ver0.79)
9 TMUS$(1)="R_MAIN1":TMUS$(2)="R_MAIN2":TMUS$(3)="R_MAIN3":TMUS$(4)="R_MAIN4":TMUS$(5)="R_MAIN5"
10 T_PC$="OTO":T_FM$="OTO":WIDTH 80,25:CLS:DIM MA(15,15),MAA(50,15,15),SX(50),SY(50),MMUKI(50),UGOKI(25),ADVICE$(25),RNIJI(25),CH2%(6000):STAGE=1:MAN=3:SCREEN @1:GOSUB *CHRSET:GOSUB *TLOGO
40 *STAGEREAD
41 LOCATE 0,0:PRINT "Now Map Data Loading!"
42 LOCATE 0,1:PRINT "000000000000000000000000000000000000000000000000000";
43 OPEN "I",#1,"R_MDAT.MAP"
49 FOR J=0 TO 50
50 FOR I=1 TO 15
60 LI=1
70 INPUT #1,L$
80 MAA(J,LI,I)=VAL(MID$(L$,LI,1))
90 LI=LI+1
100 IF LI<16 THEN GOTO 80
110 NEXT I
120 INPUT #1,AAA$:SX(J)=VAL(AAA$):INPUT #1,AAA$:SY(J)=VAL(AAA$)
121 INPUT #1,AAA$:MMUKI(J)=VAL(AAA$)
122 LOCATE J,1:PRINT ".";:NEXT J
123 CLOSE #1
125 *GAMESTART
126 SC=0:STAGE=1:MST=1:MNU=1:MAN=3:DEMOF=0:GOSUB *TITLE:KKKK=0:T_FN$=TMUS$(MNU):GOSUB *T_MINIT
130 *START
140 NIJI=0:SP=0:MUKI=MMUKI(STAGE):JX=SX(STAGE):JY=SY(STAGE):JJX=JX:JJY=JY:FOR I=1 TO 15:FOR J=1 TO 15:MA(J,I)=MAA(STAGE,J,I):NEXT J,I
141 X=0:Y=0:M=1:N=0:DD=14:S=4
142 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*MA(X+1,Y+1)
143 X=X+M:Y=Y+N
144 IF S=4 AND X=DD THEN S=3:M=0:N=1
145 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
146 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 149
147 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
148 GOTO 142
149 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*MA(8,8)
180 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*(MUKI)
185 IF DEMOF=1 THEN LINE (0,200)-(319,239),PSET,0,BF
190 GOTO *HANTEI
200 *JJJJ
210 COLOR 7:LOCATE 60,0:PRINT USING" X:## Y:##";JX;JY:LOCATE 60,1:PRINT USING" STAGE:##";STAGE:LOCATE 60,2:PRINT USING" MAN:##";MAN:LOCATE 60,3:PRINT USING" RAINBOW:###";NIJI:LOCATE 60,4:PRINT USING" STEP:###";SP:LOCATE 60,5:PRINT USING " SCORE:#####";SC
214 IF DEMOF=1 THEN *DEMO
215 A=PAD(1):B=PTRIG(1)
216 IF A<>0 OR B<>0 THEN 220 ELSE 215
220 ON A GOTO 230,230,1500,2500,290,2000,1000,230,230
222 ON B GOTO 3000,3500
230 GOTO *JJJJ
240 *WAIT
250 PUT@A (16*(JJX-1),16*(JJY-1))-(16*(JJX-1)+15,16*(JJY-1)+15),CH1%,,,,,256*1
260 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*MUKI
270 FOR AA=0 TO 600:NEXT AA
280 IF DEMOF=1 THEN *DEMO ELSE *JJJJ
290 IF MA(JX,JY+1)=2 THEN 2000 ELSE 2500
300 GOTO 210
1000 IF MA(JX-1,JY)=0 THEN *WAIT
1010 IF MA(JX-1,JY)=2 OR MA(JX-1,JY)=3 THEN GOTO 1030
1020 JJX=JX:JJY=JY:JX=JX-1:MUKI=6:SP=SP+1:GOTO *HANTEI
1030 IF MA(JX-1,JY)=3 THEN 1040 ELSE GOTO 2000
1040 IF MA(JX-1,JY-1)=0 OR MA(JX-1,JY-1)=2 OR MA(JX-1,JY-1)=3 THEN *WAIT
1050 JJX=JX:JJY=JY:JX=JX-1:JY=JY-1:MUKI=6:SP=SP+1:GOTO *HANTEI
1500 IF MA(JX+1,JY)=0 THEN *WAIT
1510 IF MA(JX+1,JY)=2 OR MA(JX+1,JY)=3 THEN GOTO 1530
1520 JJX=JX:JJY=JY:JX=JX+1:MUKI=5:SP=SP+1:GOTO *HANTEI
1530 IF MA(JX+1,JY)=2 THEN GOTO 1540 ELSE GOTO 2500
1540 IF MA(JX+1,JY-1)=0 OR MA(JX+1,JY-1)=2 OR MA(JX+1,JY-1)=3 THEN *WAIT
1550 JJX=JX:JJY=JY:JX=JX+1:JY=JY-1:MUKI=5:SP=SP+1:GOTO *HANTEI
2000 IF MA(JX-1,JY)=0 OR MA(JX-1,JY)=3 THEN 2010 ELSE 2020
2010 IF MA(JX,JY+1)=2 THEN 2020 ELSE *WAIT
2020 IF MA(JX-1,JY+1)=0 OR MA(JX-1,JY+1)=2 OR MA(JX-1,JY+1)=3 THEN *WAIT
2030 JX=JX-1:JY=JY+1:JJX=JX+1:JJY=JY-1:MUKI=6:SP=SP+1:GOTO *HANTEI
2500 IF MA(JX+1,JY)=0 OR MA(JX+1,JY)=2 THEN 2510 ELSE 2520
2510 IF MA(JX,JY+1)=3 THEN 2520 ELSE *WAIT
2520 IF MA(JX+1,JY+1)=0 OR MA(JX+1,JY+1)=2 OR MA(JX+1,JY+1)=3 THEN *WAIT
2530 JX=JX+1:JY=JY+1:JJX=JX-1:JJY=JY-1:MUKI=5:SP=SP+1:GOTO *HANTEI
3000 IF MUKI=5 THEN 3010 ELSE 3050
3010 IF MA(JX+1,JY)=0 OR MA(JX+1,JY)=2 OR MA(JX+1,JY)=3 THEN *WAIT
3020 MA(JX+1,JY)=2:NIJI=NIJI+1:PUT@A (16*((JX+1)-1),16*(JY-1))-(16*((JX+1)-1)+15,16*(JY-1)+15),CH1%,,,,,256*2:GOTO *JJJJ
3050 IF MA(JX-1,JY)=0 OR MA(JX-1,JY)=2 OR MA(JX-1,JY)=3 THEN *WAIT
3060 MA(JX-1,JY)=3:NIJI=NIJI+1:PUT@A (16*((JX-1)-1),16*(JY-1))-(16*((JX-1)-1)+15,16*(JY-1)+15),CH1%,,,,,256*3:GOTO *JJJJ
3500 LOCATE 60,10:PRINT "(Yes--A No--B)"
3505 FOR I=0 TO 800:NEXT I:II=0
3510 II=PTRIG(1):IF II=0 THEN 3510
3520 IF II=1 THEN MAN=MAN-1 ELSE LOCATE 60,10:PRINT " ";:FOR JJJ=0 TO 300:NEXT JJJ:GOTO *WAIT
3530 GOSUB *T_MSTOP:T_FN$="R_GIVEUP":KKKK=1:GOSUB *T_MINIT:LOCATE 60,10:PRINT "***Give Up*** ":IF MAN=0 THEN GOSUB *T_MSTOP:GOTO *GAMEOVER
3531 X=0:Y=0:M=1:N=0:DD=14:S=4
3532 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*7
3533 X=X+M:Y=Y+N
3534 IF S=4 AND X=DD THEN S=3:M=0:N=1
3535 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
3536 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 3539
3537 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
3538 IF KKK=0 THEN 3532 ELSE INTERVAL STOP:GOTO 3532
3539 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*7
3540 IF KKK=0 THEN 3540 ELSE KKKK=0:INTERVAL STOP:FOR I=0 TO 20000:NEXT I:GOSUB *T_MSTOP:T_FN$=TMUS$(MNU):GOSUB *T_MINIT:LOCATE 60,10:PRINT " ";:GOTO *START
4000 *HANTEI
4005 II=1
4006 *LOOP
4010 IF MA(JX,JY)=4 THEN *CLEAR
4020 IF MA(JX,JY+1)=0 OR MA(JX,JY+1)=2 OR MA(JX,JY+1)=3 THEN *WAIT
4030 IF II=1 THEN JY=JY+1 ELSE JJY=JY:JJX=JX:JY=JY+1:FOR I=0 TO 500:NEXT I
4040 PUT@A (16*(JJX-1),16*(JJY-1))-(16*(JJX-1)+15,16*(JJY-1)+15),CH1%,,,,,256*1
4060 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*MUKI
4080 II=0:GOTO *LOOP
4090 *CLEAR
4095 IF DEMOF=1 THEN FOR UU=0 TO 3000:NEXT UU:DEMOF=0:STAGE=SSN:GOTO *TITLE
4096 MST=MST+1:IF MST=11 THEN MNU=MNU+1:MST=1
4100 GOSUB *T_MSTOP:T_FN$="R_CLEAR":GOSUB *T_MINIT:KKKK=1:STAGE=STAGE+1:MAN=MAN+1:LOCATE 60,10:PRINT "!!!!CLEAR!!!! ":SCM=0:SCN=0
4101 SCM=INT((NIJI/SP)*200)
4102 FOR J=1 TO 15:FOR I=1 TO 15
4103 IF MAE=1 AND MA(I,J)=3 THEN SCN=SCN+200 ELSE MAE=0
4104 IF MA(I,J)=2 THEN MAE=1
4105 NEXT I:MAE=0
4106 NEXT J:PRINT
4108 LOCATE 60,11:PRINT "STEP BONUS:";SCM:LOCATE 60,12:PRINT "SPECIAL BONUS:";SCN:GOSUB *SCS
4109 'FOR I=0 TO 5000:NEXT I
4110 IF STAGE=51 THEN GOSUB *T_MSTOP:GOTO *ENDING
4111 X=0:Y=0:M=1:N=0:DD=14:S=4
4112 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*7
4113 X=X+M:Y=Y+N
4114 IF S=4 AND X=DD THEN S=3:M=0:N=1
4115 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
4116 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 4119
4117 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
4118 GOTO 4112
4119 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*7
4120 IF KKK=0 THEN 4120 ELSE KKKK=0:INTERVAL STOP:FOR I=0 TO 15000:NEXT I:FOR I=0 TO 2:LOCATE 60,10+I:PRINT " ";:NEXT I:GOSUB *T_MSTOP:T_FN$=TMUS$(MNU):GOSUB *T_MINIT:GOTO *START
4130 *SCS
4140 FOR I=1 TO SCM:SC=SC+1:SCM=SCM-1:LOCATE 60,11:PRINT "STEP BONUS:";SCM:LOCATE 60,5:PRINT USING " SCORE:#####";SC:NEXT I
4145 IF SCN=0 THEN RETURN
4150 FOR I=0 TO INT(SCN/10)-1:SC=SC+10:SCN=SCN-10:LOCATE 60,12:PRINT "SPECIAL BONUS:";SCN::LOCATE 60,5:PRINT USING " SCORE:#####";SC:NEXT I:RETURN
40000 REM SPRITE(2) No00
40010 DATA &H301F, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF, &H301F, &H301F
40020 DATA &H301F, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF, &H301F, &H301F
40030 DATA &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE, &H7FFF, &H301F
40040 DATA &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE, &H7FFF, &H301F
40050 DATA &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD, &H7BDE, &H7FFF
40060 DATA &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD, &H7BDE, &H7FFF
40070 DATA &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C, &H77BD, &H7BDE
40080 DATA &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C, &H77BD, &H7BDE
40090 DATA &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B, &H739C, &H77BD
40100 DATA &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B, &H739C, &H77BD
40110 DATA &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A, &H6F7B, &H739C
40120 DATA &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A, &H6F7B, &H739C
40130 DATA &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739, &H6B5A, &H6F7B
40140 DATA &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739, &H6B5A, &H6F7B
40150 DATA &H6B5A, &H6739, &H6318, &H6318, &H301F, &H301F, &H301F, &H301F
40160 DATA &H6B5A, &H6739, &H6318, &H6318, &H301F, &H301F, &H301F, &H6B5A
40170 DATA &H301F, &H6318, &H6318, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF
40180 DATA &H301F, &H6318, &H6318, &H301F, &H7FFF, &H7FFF, &H7FFF, &H301F
40190 DATA &H7FFF, &H301F, &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE
40200 DATA &H7FFF, &H301F, &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7FFF
40210 DATA &H7BDE, &H7FFF, &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD
40220 DATA &H7BDE, &H7FFF, &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H7BDE
40230 DATA &H77BD, &H7BDE, &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C
40240 DATA &H77BD, &H7BDE, &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H77BD
40250 DATA &H739C, &H77BD, &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B
40260 DATA &H739C, &H77BD, &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H739C
40270 DATA &H6F7B, &H739C, &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A
40280 DATA &H6F7B, &H739C, &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6F7B
40290 DATA &H6B5A, &H6F7B, &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739
40300 DATA &H6B5A, &H6F7B, &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6B5A
40310 DATA &H6739, &H6B5A, &H301F, &H301F, &H301F, &H301F, &H6318, &H6318
40320 DATA &H6739, &H6B5A, &H301F, &H301F, &H301F, &H301F, &H6318, &H6739
40330 REM SPRITE(2) No01
40340 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40350 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40360 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40370 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40380 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40390 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40400 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40410 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40420 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40430 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40440 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40450 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40460 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40470 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40480 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FFF
40490 DATA &H7FFF, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40500 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FFF
40510 DATA &H7FFF, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40520 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40530 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40540 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40550 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40560 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40570 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40580 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40590 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40600 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40610 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40620 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40630 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40640 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40650 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40660 REM SPRITE(2) No02
40670 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40680 DATA &H301F, &H301F, &H301F, &H301F, &H0034, &H0034, &H0034, &H0034
40690 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40700 DATA &H301F, &H0034, &H0034, &H0034, &H483F, &H483F, &H483F, &H483F
40710 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0034
40720 DATA &H0034, &H483F, &H483F, &H483F, &H7C33, &H7C33, &H7C33, &H7C33
40730 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0034, &H0034
40740 DATA &H483F, &H7C33, &H7C33, &H7C33, &H7C60, &H7C60, &H7C60, &H7C60
40750 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H0034, &H483F, &H483F
40760 DATA &H7C33, &H7C60, &H7C60, &H7C60, &H76A0, &H76A0, &H76A0, &H76A0
40770 DATA &H301F, &H301F, &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C33
40780 DATA &H7C60, &H7C60, &H76A0, &H76A0, &H6FE0, &H6FE0, &H6FE0, &H6FE0
40790 DATA &H301F, &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C33, &H7C60
40800 DATA &H7C60, &H76A0, &H6FE0, &H6FE0, &H4BE0, &H3FE0, &H3FE0, &H3FE0
40810 DATA &H301F, &H301F, &H0034, &H0034, &H483F, &H7C33, &H7C60, &H76A0
40820 DATA &H76A0, &H6FE0, &H3FE0, &H3FE0, &H3FE0, &H0300, &H0300, &H0300
40830 DATA &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C60, &H7C60, &H76A0
40840 DATA &H6FE0, &H3FE0, &H3FE0, &H0300, &H0300, &H301F, &H301F, &H301F
40850 DATA &H301F, &H0034, &H483F, &H7C33, &H7C33, &H7C60, &H76A0, &H6FE0
40860 DATA &H3FE0, &H3FE0, &H0300, &H301F, &H301F, &H301F, &H301F, &H301F
40870 DATA &H301F, &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0
40880 DATA &H3FE0, &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40890 DATA &H301F, &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0
40900 DATA &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40910 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H3FE0
40920 DATA &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40930 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
40940 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40950 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
40960 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40970 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
40980 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
40990 REM SPRITE(2) No03
41000 DATA &H0034, &H0034, &H0034, &H0034, &H301F, &H301F, &H301F, &H301F
41010 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41020 DATA &H483F, &H483F, &H483F, &H483F, &H0034, &H0034, &H0034, &H301F
41030 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41040 DATA &H7C33, &H7C33, &H7C33, &H7C33, &H483F, &H483F, &H483F, &H0034
41050 DATA &H0034, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41060 DATA &H7C60, &H7C60, &H7C60, &H7C60, &H7C33, &H7C33, &H7C33, &H483F
41070 DATA &H0034, &H0034, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41080 DATA &H76A0, &H76A0, &H76A0, &H76A0, &H7C60, &H7C60, &H7C60, &H7C33
41090 DATA &H483F, &H483F, &H0034, &H301F, &H301F, &H301F, &H301F, &H301F
41100 DATA &H6FE0, &H6FE0, &H6FE0, &H6FE0, &H76A0, &H76A0, &H7C60, &H7C60
41110 DATA &H7C33, &H7C33, &H483F, &H0034, &H301F, &H301F, &H301F, &H301F
41120 DATA &H3FE0, &H3FE0, &H3FE0, &H4BE0, &H6FE0, &H6FE0, &H76A0, &H7C60
41130 DATA &H7C60, &H7C33, &H7C33, &H483F, &H0034, &H301F, &H301F, &H301F
41140 DATA &H0300, &H0300, &H0300, &H3FE0, &H3FE0, &H3FE0, &H6FE0, &H76A0
41150 DATA &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H0034, &H301F, &H301F
41160 DATA &H301F, &H301F, &H301F, &H0300, &H0300, &H3FE0, &H3FE0, &H6FE0
41170 DATA &H76A0, &H7C60, &H7C60, &H7C33, &H483F, &H0034, &H301F, &H301F
41180 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H0300, &H3FE0, &H3FE0
41190 DATA &H6FE0, &H76A0, &H7C60, &H7C33, &H7C33, &H483F, &H0034, &H301F
41200 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300, &H3FE0
41210 DATA &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H301F
41220 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300
41230 DATA &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H301F
41240 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300
41250 DATA &H3FE0, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
41260 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41270 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
41280 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41290 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
41300 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41310 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
41320 REM SPRITE(2) No04
41330 DATA &H301F, &H301F, &H301F, &H301F, &H4A4B, &H4A4B, &H4A4B, &H4A4B
41340 DATA &H4A4B, &H4A4B, &H4A4B, &H4A4B, &H301F, &H301F, &H301F, &H301F
41350 DATA &H301F, &H301F, &H52AB, &H52AB, &H4690, &H4690, &H4690, &H464B
41360 DATA &H464B, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H4A4B, &H301F, &H301F
41370 DATA &H301F, &H301F, &H52AB, &H4ED2, &H4ED2, &H4690, &H4690, &H464B
41380 DATA &H464B, &H3E4E, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H301F, &H301F
41390 DATA &H301F, &H5AEB, &H5714, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H464B
41400 DATA &H464B, &H4690, &H4690, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H301F
41410 DATA &H301F, &H5AEB, &H5714, &H5714, &H5714, &H4ED2, &H4ED2, &H464B
41420 DATA &H464B, &H4690, &H4690, &H4690, &H4690, &H3E4E, &H4A4B, &H301F
41430 DATA &H5AEB, &H5AEB, &H6357, &H5F57, &H5714, &H5714, &H5714, &H464B
41440 DATA &H464B, &H4ED2, &H4ED2, &H4690, &H4690, &H4690, &H52AB, &H52AB
41450 DATA &H634B, &H5F57, &H5F57, &H5F57, &H5F57, &H5F57, &H5714, &H464B
41460 DATA &H464B, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H4690, &H4690, &H52AB
41470 DATA &H634B, &H6357, &H6357, &H5F57, &H5F57, &H6073, &H5F57, &H464B
41480 DATA &H464B, &H5714, &H6073, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H5AEB
41490 DATA &H634B, &H6B79, &H6B79, &H6357, &H6357, &H6085, &H6314, &H464B
41500 DATA &H464B, &H5F57, &H6085, &H5714, &H5714, &H4ED2, &H4ED2, &H5AEB
41510 DATA &H6F8B, &H6B79, &H6B79, &H6B79, &H6B79, &H6073, &H6357, &H464B
41520 DATA &H464B, &H5F57, &H6073, &H5F57, &H5714, &H5714, &H5714, &H634B
41530 DATA &H6F8B, &H73BB, &H73BB, &H6B79, &H6B79, &H6B79, &H6B79, &H464B
41540 DATA &H464B, &H5F57, &H5F57, &H5F57, &H5F57, &H5F57, &H5714, &H634B
41550 DATA &H6F8B, &H73BB, &H73BB, &H73BB, &H73BB, &H6B79, &H6B79, &H464B
41560 DATA &H464B, &H6357, &H6357, &H5F57, &H5F57, &H5F57, &H5F57, &H634B
41570 DATA &H77AB, &H77DD, &H77DD, &H73BB, &H73BB, &H73BB, &H73BB, &H464B
41580 DATA &H464B, &H6B79, &H6B79, &H6357, &H6357, &H5F57, &H5F57, &H6F8B
41590 DATA &H77AB, &H77DD, &H77DD, &H77DD, &H77DD, &H73BB, &H73BB, &H464B
41600 DATA &H464B, &H6B79, &H6B79, &H6B79, &H6B79, &H6357, &H6357, &H6F8B
41610 DATA &H77AB, &H77DD, &H77DD, &H77DD, &H77DD, &H77DD, &H77DD, &H464B
41620 DATA &H464B, &H73BB, &H73BB, &H6B79, &H6B79, &H6B79, &H6B79, &H6F8B
41630 DATA &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB
41640 DATA &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB
41650 REM SPRITE(2) No05
41660 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H1428, &H1428, &H1428
41670 DATA &H1428, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41680 DATA &H301F, &H301F, &H301F, &H301F, &H1428, &H1428, &H1428, &H1428
41690 DATA &H1428, &H1428, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41700 DATA &H301F, &H301F, &H301F, &H1428, &H1428, &H6794, &H000C, &H6794
41710 DATA &H000C, &H6794, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41720 DATA &H301F, &H301F, &H301F, &H1428, &H1428, &H6794, &H000C, &H6794
41730 DATA &H000C, &H6794, &H301F, &H301F, &H7767, &H5F67, &H301F, &H301F
41740 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H6794, &H6794, &H6794
41750 DATA &H6794, &H301F, &H301F, &H301F, &H5F67, &H5F67, &H2B67, &H301F
41760 DATA &H301F, &H301F, &H67B9, &H45F9, &H45F9, &H4759, &H45F9, &H45F9
41770 DATA &H4759, &H45F9, &H67B9, &H301F, &H301F, &H301F, &H2B67, &H301F
41780 DATA &H301F, &H67B9, &H67B9, &H45F9, &H45F9, &H4759, &H45F9, &H45F9
41790 DATA &H4759, &H45F9, &H67B9, &H67B9, &H301F, &H2B70, &H2B70, &H301F
41800 DATA &H301F, &H67B9, &H301F, &H301F, &H45F9, &H4759, &H7359, &H45F9
41810 DATA &H4759, &H7359, &H301F, &H67B9, &H67B9, &H67B9, &H301F, &H301F
41820 DATA &H301F, &H67B9, &H67B9, &H301F, &H45F9, &H4759, &H45F9, &H45F9
41830 DATA &H4759, &H45F9, &H301F, &H301F, &H301F, &H2B7F, &H301F, &H301F
41840 DATA &H301F, &H301F, &H67B9, &H67B9, &H45F9, &H4759, &H45F9, &H45F9
41850 DATA &H4759, &H45F9, &H301F, &H301F, &H301F, &H2B7F, &H301F, &H301F
41860 DATA &H301F, &H301F, &H301F, &H301F, &H72F9, &H72F9, &H72F9, &H72F9
41870 DATA &H72F9, &H72F9, &H301F, &H301F, &H301F, &H2ADF, &H301F, &H301F
41880 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H5B5D, &H5B5D
41890 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H2ADF, &H301F, &H301F
41900 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H5B5D, &H5B5D
41910 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H3A9F, &H301F, &H301F
41920 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H301F, &H301F
41930 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H3A9F, &H301F, &H301F
41940 DATA &H301F, &H301F, &H301F, &H301F, &H366D, &H366D, &H301F, &H301F
41950 DATA &H366D, &H366D, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
41960 DATA &H301F, &H301F, &H301F, &H301F, &H2E2C, &H366D, &H366D, &H301F
41970 DATA &H2E2C, &H366D, &H366D, &H301F, &H301F, &H301F, &H301F, &H301F
41980 REM SPRITE(2) No06
41990 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H1428
42000 DATA &H1428, &H1428, &H1428, &H301F, &H301F, &H301F, &H301F, &H301F
42010 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H1428, &H1428
42020 DATA &H1428, &H1428, &H1428, &H1428, &H301F, &H301F, &H301F, &H301F
42030 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H6794, &H000C
42040 DATA &H6794, &H000C, &H6794, &H1428, &H1428, &H301F, &H301F, &H301F
42050 DATA &H301F, &H301F, &H5F67, &H7767, &H301F, &H301F, &H6794, &H000C
42060 DATA &H6794, &H000C, &H6794, &H1428, &H1428, &H301F, &H301F, &H301F
42070 DATA &H301F, &H2B67, &H5F67, &H5F67, &H301F, &H301F, &H301F, &H6794
42080 DATA &H6794, &H6794, &H6794, &H301F, &H301F, &H301F, &H301F, &H301F
42090 DATA &H301F, &H2B67, &H301F, &H301F, &H301F, &H67B9, &H45F9, &H4759
42100 DATA &H45F9, &H45F9, &H4759, &H45F9, &H45F9, &H67B9, &H301F, &H301F
42110 DATA &H301F, &H2B70, &H2B70, &H301F, &H67B9, &H67B9, &H45F9, &H4759
42120 DATA &H45F9, &H45F9, &H4759, &H45F9, &H45F9, &H67B9, &H67B9, &H301F
42130 DATA &H301F, &H301F, &H67B9, &H67B9, &H67B9, &H301F, &H7359, &H4759
42140 DATA &H45F9, &H7359, &H4759, &H45F9, &H301F, &H301F, &H67B9, &H301F
42150 DATA &H301F, &H301F, &H2B7F, &H301F, &H301F, &H301F, &H45F9, &H4759
42160 DATA &H45F9, &H45F9, &H4759, &H45F9, &H301F, &H67B9, &H67B9, &H301F
42170 DATA &H301F, &H301F, &H2B7F, &H301F, &H301F, &H301F, &H45F9, &H4759
42180 DATA &H45F9, &H45F9, &H4759, &H45F9, &H67B9, &H67B9, &H301F, &H301F
42190 DATA &H301F, &H301F, &H2ADF, &H301F, &H301F, &H301F, &H72F9, &H72F9
42200 DATA &H72F9, &H72F9, &H72F9, &H72F9, &H301F, &H301F, &H301F, &H301F
42210 DATA &H301F, &H301F, &H2ADF, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
42220 DATA &H5B5D, &H5B5D, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
42230 DATA &H301F, &H301F, &H3A9F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
42240 DATA &H5B5D, &H5B5D, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
42250 DATA &H301F, &H301F, &H3A9F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
42260 DATA &H301F, &H301F, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
42270 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H366D, &H366D
42280 DATA &H301F, &H301F, &H366D, &H366D, &H301F, &H301F, &H301F, &H301F
42290 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H366D, &H366D, &H2E2C
42300 DATA &H301F, &H366D, &H366D, &H2E2C, &H301F, &H301F, &H301F, &H301F
42310 REM SPRITE(2) No07
42320 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42330 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42340 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
42350 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42360 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
42370 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42380 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
42390 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42400 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
42410 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42420 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0, &H7FF4
42430 DATA &H7FF4, &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F
42440 DATA &H301F, &H301F, &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF4, &H7FF8
42450 DATA &H7FF8, &H7FF4, &H7FF0, &H7FE0, &H7FE0, &H301F, &H301F, &H301F
42460 DATA &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF0, &H7FF4, &H7FF8, &H7FFD
42470 DATA &H7FFD, &H7FF8, &H7FF4, &H7FF0, &H7FF0, &H7FE0, &H7FE0, &H301F
42480 DATA &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF0, &H7FF4, &H7FF8, &H7FFD
42490 DATA &H7FFD, &H7FF8, &H7FF4, &H7FF0, &H7FF0, &H7FE0, &H7FE0, &H301F
42500 DATA &H301F, &H301F, &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF4, &H7FF8
42510 DATA &H7FF8, &H7FF4, &H7FF0, &H7FE0, &H7FE0, &H301F, &H301F, &H301F
42520 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0, &H7FF4
42530 DATA &H7FF4, &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F
42540 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
42550 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42560 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
42570 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42580 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
42590 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42600 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
42610 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42620 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42630 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
42640 REM SPRITE(2) No08
42650 DATA &H0FE3, &H17E5, &H1FE7, &H1FE7, &H27E9, &H2FEB, &H37ED, &H3FEF
42660 DATA &H47F1, &H4FF3, &H57F5, &H5FF7, &H67F9, &H6FFB, &H77FD, &H7FFF
42670 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42680 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H7FFF
42690 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42700 DATA &H47F1, &H4FF3, &H57F5, &H5FF7, &H67F9, &H6FFB, &H77FD, &H7FFF
42710 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42720 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42730 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42740 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42750 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42760 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42770 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42780 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42790 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42800 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42810 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42820 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42830 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42840 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42850 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42860 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42870 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42880 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42890 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42900 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42910 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42920 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42930 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42940 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42950 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
42960 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
42970 REM SPRITE(2) No09
42980 DATA &H001F, &H081D, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
42990 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
43000 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43010 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43020 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43030 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43040 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43050 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43060 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43070 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43080 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43090 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43100 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43110 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43120 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43130 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43140 DATA &H001F, &H0000, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
43150 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H0000, &H0000
43160 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
43170 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43180 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
43190 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43200 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
43210 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43220 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
43230 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43240 DATA &H001F, &H0000, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
43250 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
43260 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43270 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H7801
43280 DATA &H001F, &H081D, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
43290 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
43300 REM SPRITE(2) No10
43310 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43320 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
43330 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43340 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H009B, &H005D
43350 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43360 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
43370 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43380 DATA &H0000, &H0000, &H0000, &H0000, &H0117, &H0000, &H0000, &H005D
43390 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43400 DATA &H0000, &H0000, &H0000, &H0155, &H0000, &H0000, &H0000, &H005D
43410 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43420 DATA &H0000, &H0000, &H0193, &H0000, &H0000, &H0000, &H0000, &H005D
43430 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43440 DATA &H0000, &H01D1, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
43450 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43460 DATA &H020F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
43470 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H024D
43480 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
43490 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H028B, &H0000
43500 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
43510 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0289, &H0000, &H0000
43520 DATA &H020F, &H01D1, &H0193, &H0155, &H0117, &H00D9, &H0000, &H005D
43530 DATA &H0000, &H0000, &H0000, &H0000, &H02C7, &H0000, &H0000, &H0000
43540 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
43550 DATA &H0000, &H0000, &H0000, &H0307, &H0000, &H0000, &H0000, &H0000
43560 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
43570 DATA &H0000, &H0000, &H0345, &H0000, &H0000, &H0000, &H0000, &H0000
43580 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
43590 DATA &H0000, &H0383, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43600 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
43610 DATA &H03C1, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43620 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H009B, &H005D
43630 REM SPRITE(2) No11
43640 DATA &H0401, &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H2409
43650 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H0802, &H0401
43660 DATA &H0401, &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H280A
43670 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H0C03, &H0401
43680 DATA &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H300C, &H2C0B
43690 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H1405, &H1004, &H0401
43700 DATA &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H340D, &H300C
43710 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H1806, &H1405, &H0401
43720 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H3C0F, &H0401, &H340D
43730 DATA &H0401, &H0401, &H0401, &H0401, &H2008, &H0401, &H1806, &H0401
43740 DATA &H0401, &H0401, &H0000, &H0401, &H0401, &H4010, &H0401, &H380E
43750 DATA &H0401, &H0401, &H0401, &H0401, &H2409, &H0401, &H1C07, &H0401
43760 DATA &H0401, &H0401, &H0000, &H0401, &H4812, &H0401, &H0401, &H3C0F
43770 DATA &H0401, &H0401, &H0401, &H2C0B, &H0401, &H0401, &H2008, &H0401
43780 DATA &H0401, &H0401, &H0000, &H0401, &H4C13, &H0401, &H0401, &H4010
43790 DATA &H0401, &H0401, &H0401, &H300C, &H0401, &H0401, &H2409, &H0401
43800 DATA &H0401, &H0401, &H0000, &H5415, &H0401, &H0401, &H0401, &H4411
43810 DATA &H0401, &H0401, &H380E, &H0401, &H0401, &H0401, &H280A, &H0401
43820 DATA &H0401, &H0000, &H0401, &H5816, &H0401, &H0401, &H0401, &H4812
43830 DATA &H0401, &H0401, &H3C0F, &H0401, &H0401, &H0401, &H2C0B, &H0401
43840 DATA &H0401, &H0000, &H6018, &H0401, &H0401, &H0401, &H0401, &H4C13
43850 DATA &H0401, &H4411, &H0401, &H0401, &H0401, &H0401, &H300C, &H0401
43860 DATA &H0401, &H0000, &H6419, &H0401, &H0401, &H0401, &H0401, &H5014
43870 DATA &H0401, &H4812, &H0401, &H0401, &H0401, &H0401, &H340D, &H0401
43880 DATA &H0401, &H6C1B, &H0401, &H0401, &H0401, &H0401, &H0401, &H5415
43890 DATA &H5014, &H0401, &H0401, &H0401, &H0401, &H0401, &H380E, &H0401
43900 DATA &H0000, &H701C, &H0401, &H0401, &H0401, &H0401, &H0401, &H5816
43910 DATA &H5415, &H0401, &H0401, &H0401, &H0401, &H0401, &H3C0F, &H0401
43920 DATA &H781E, &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H5C17
43930 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H4010, &H0401
43940 DATA &H7C1F, &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H6018
43950 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H4411, &H0401
43960 REM SPRITE(2) No12
43970 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43980 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
43990 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44000 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44010 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44020 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44030 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03E0, &H03E0
44040 DATA &H03E0, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03E0
44050 DATA &H0000, &H0000, &H0000, &H0000, &H07E0, &H07E0, &H07E0, &H07E0
44060 DATA &H07E0, &H07E0, &H0000, &H0000, &H0000, &H0000, &H07E0, &H07E0
44070 DATA &H0000, &H0000, &H0000, &H13E0, &H13E0, &H13E0, &H13E0, &H0000
44080 DATA &H13E0, &H13E0, &H13E0, &H0000, &H0000, &H13E0, &H13E0, &H13E0
44090 DATA &H0000, &H0000, &H1FE0, &H1FE0, &H1FE0, &H0000, &H0000, &H0000
44100 DATA &H0000, &H1FE0, &H1FE0, &H0000, &H1FE0, &H1FE0, &H1FE0, &H0000
44110 DATA &H0000, &H2BE0, &H2BE0, &H2BE0, &H0000, &H0000, &H0000, &H0000
44120 DATA &H0000, &H2BE0, &H2BE0, &H2BE0, &H2BE0, &H2BE0, &H0000, &H0000
44130 DATA &H0000, &H37E0, &H37E0, &H0000, &H0000, &H0000, &H0000, &H0000
44140 DATA &H0000, &H0000, &H37E0, &H37E0, &H37E0, &H0000, &H0000, &H0000
44150 DATA &H43E0, &H43E0, &H43E0, &H0000, &H0000, &H0000, &H0000, &H0000
44160 DATA &H0000, &H43E0, &H43E0, &H43E0, &H43E0, &H0000, &H0000, &H0000
44170 DATA &H4FE0, &H4FE0, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44180 DATA &H4FE0, &H4FE0, &H4FE0, &H4FE0, &H4FE0, &H0000, &H0000, &H0000
44190 DATA &H5BE0, &H5BE0, &H0000, &H0000, &H0000, &H0000, &H0000, &H5BE0
44200 DATA &H5BE0, &H5BE0, &H0000, &H5BE0, &H5BE0, &H5BE0, &H0000, &H0000
44210 DATA &H67E0, &H67E0, &H67E0, &H0000, &H0000, &H67E0, &H67E0, &H67E0
44220 DATA &H67E0, &H0000, &H0000, &H0000, &H67E0, &H67E0, &H0000, &H67E0
44230 DATA &H0000, &H67E0, &H67E0, &H67E0, &H67E0, &H67E0, &H67E0, &H0000
44240 DATA &H0000, &H0000, &H0000, &H0000, &H67E0, &H67E0, &H67E0, &H67E0
44250 DATA &H0000, &H0000, &H73E0, &H73E0, &H73E0, &H73E0, &H0000, &H0000
44260 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H73E0, &H73E0, &H0000
44270 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44280 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44290 REM SPRITE(2) No13
44300 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44310 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44320 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44330 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44340 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44350 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44360 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44370 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44380 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44390 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44400 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44410 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44420 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44430 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44440 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44450 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44460 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44470 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44480 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44490 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44500 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44510 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44520 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44530 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44540 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44550 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44560 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44570 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44580 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44590 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44600 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
44610 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
48000 *ENDING
48001 IF MENSF=1 THEN *BADENDING
48010 KKK=0:KKKK=0:T_FN$="R_ENDING":GOSUB *T_MINIT:SCREEN @0:CLS:RESTORE 48120:FOR JJ=1 TO 47
48020 READ MES$
48030 SYMBOL (90,479-16),MES$,1,1,,,,1
48040 GOSUB *SCROLL
48050 NEXT JJ
48060 SYMBOL (60,479-16)," FINAL SCORE "+STR$(SC),1,1,7,,,1:FOR I=0 TO 3:GOSUB *SCROLL:NEXT I
48070 GOTO 48070
48080 *SCROLL
48090 FOR K=1 TO 2
48100 ROLL -16
48110 NEXT K:RETURN
48120 DATA "Congraturation!!"
48130 DATA "あなたはSUPER WINNING THE RAINBOWの"
48140 DATA "マスターの称号を得ました!おめでとう。我々スタッフは新たなる"
48150 DATA "試練を受ける資格を貴方にプレゼントする事を約束しましょう!"
48160 DATA "では、また会う日まで、See You Again!"
48170 DATA ""
48180 DATA " ☆ STAFF ☆"
48190 DATA ""
48200 DATA ""
48210 DATA " ★Main Programmer★"
48220 DATA ""
48230 DATA " Hiroki Tateno"
48240 DATA ""
48250 DATA ""
48260 DATA " ★Original Concept★"
48270 DATA ""
48280 DATA " Hiroki Tateno"
48290 DATA ""
48300 DATA ""
48310 DATA " ★Music Conposed★ "
48320 DATA ""
48330 DATA " Hiroyuki Ban"
48340 DATA ""
48350 DATA ""
48360 DATA " ★Chracter Design★"
48370 DATA ""
48380 DATA " Hiroki Tateno"
48390 DATA " Masashi Nishiuchi"
48400 DATA ""
48410 DATA " ★Stage Design★"
48420 DATA ""
48430 DATA " Hiroki Tateno"
48440 DATA " Hiroki Yanagibashi"
48450 DATA " Tomohiro Taguchi"
48460 DATA " Hiroyuki Ban"
48470 DATA " Masashi Nishiuchi"
48480 DATA ""
48490 DATA ""
48500 DATA " 製作 TEAM α"
48510 DATA ""
48520 DATA " 企画・制作 SCHAFT"
48530 DATA ""
48540 DATA " (c) 1990 SCHAFT"
48550 DATA " ALL RIGHTS RESERVED"
48560 DATA ""
48570 DATA " THE END"
48580 DATA ""
49000 *GAMEOVER
49010 CLS:SYMBOL (90,100),"GAME OVER",1,1,,,,1
49020 KKKK=1:T_FN$="R_GAMEO":GOSUB *T_MINIT
49030 IF KKK=0 THEN 49030 ELSE INTERVAL STOP:FOR I=0 TO 12000:NEXT I:KKKK=0:GOSUB *T_MSTOP:MENSF=0:GOTO *GAMESTART
50000 *DEMO
50010 IF DEMOF=0 THEN *DINIT
50020 STE=STE+1:A=UGOKI(STE):B=RNIJI(STE)
50030 FOR I=0 TO 7000:NEXT I
50040 LOCATE 0,24:PRINT ADVICE$(STE);
50050 GOTO 220
50060 *DINIT
50070 CLS:RESTORE 50100:STE=0:STAGE=0:FOR I=1 TO 25:READ UGOKI(I),RNIJI(I):NEXT I
50080 FOR I=1 TO 25:READ ADVICE$(I):NEXT I
50090 DEMOF=1:LOCATE 0,22:PRINT "Demonstration";:LOCATE 0,23:PRINT "Insert Coin ";:GOTO *START
50100 DATA 3,0,0,1,3,0,3,0,3,0,3,0,7,0,0,1,7,0,7,0,3,0,0,1,3,0,0,1,3,0,5,0,0,1,7,0,0,1,7,0,0,1,7,0,5,0,0,1,3,0
50110 DATA "この世界には重力がある!"
50120 DATA "虹はAボタンでだすんだぞ!"
50130 DATA ""
50140 DATA " "
50150 DATA ""
50160 DATA ""
50170 DATA ""
50180 DATA "一つ虹を完成させればスペシャルボーナス!"
50190 DATA ""
50200 DATA " "
50210 DATA ""
50220 DATA "虹を階段状にして登るんだ"
50230 DATA ""
50240 DATA ""
50250 DATA " "
50260 DATA "虹から下へ下りる時はパッドの下を押そう"
50270 DATA ""
50280 DATA ""
50290 DATA " "
50300 DATA ""
50310 DATA ""
50320 DATA "ゴールに入れば一面クリアー!"
50330 DATA ""
50340 DATA ""
50350 DATA " "
55000 *TITLE
55010 KKKK=1:T_FN$="R_TITLE1":GOSUB *T_MINIT:CLS:SCREEN @1:SYMBOL (40,0),"SUPER WINNING",1,1,,,,1
55020 SYMBOL (57,20),"THE RAINBOW",1,1,,,,1
55030 SYMBOL (50,160),"INSERT COIN",1,1,,,,1
55040 SYMBOL (30,100),"COPYRIGHT 1990",1,1,,,,1
55050 SYMBOL (30,120)," TEAMα ",1,1,,,,1
55055 GET@A (50,160)-(300,180),CH2%
55060 LINE (50,160)-(300,180),PSET,0,BF:FOR I=0 TO 500
55061 IF PTRIG(1)=4 THEN GOSUB *T_MSTOP:CLS:RETURN ELSE IF PTRIG(1)=8 THEN GOTO *SELECT
55062 NEXT I
55070 PUT@A (50,160)-(300,180),CH2%
55080 FOR I=0 TO 500
55081 IF PTRIG(1)=4 THEN GOSUB *T_MSTOP:CLS:RETURN ELSE IF PTRIG(1)=8 THEN GOTO *SELECT
55085 NEXT I
55090 IF KKK=1 THEN 55100 ELSE 55060
55100 GOSUB *T_MSTOP:KKKK=0
55110 FOR I=0 TO 5000:NEXT I
55120 GOTO *DEMO
57000 *TLOGO
57010 CLS
57020 PUT@A (115,112)-(130,127),CH1%,,,,,256*8
57030 LX=115:CHN=8
57040 FOR I=0 TO 15
57045 PUT@A (LX+I-1,112)-(LX+I+15-1,127),CH1%,,,,,256*13
57050 PUT@A (LX+I,112)-(LX+I+15,127),CH1%,,,,,256*(CHN+1)
57060 PUT@A (LX,112)-(LX+15,127),CH1%,,,,,256*CHN
57070 NEXT I
57080 CHN=CHN+1:LX=LX+17
57090 IF CHN=12 THEN 57095 ELSE 57040
57095 T_FN$="R_TLOGO":KKKK=1:GOSUB *T_MINIT
57096 IF KKK=0 THEN 57096 ELSE INTERVAL STOP:FOR I=0 TO 10000:NEXT I:KKKK=0:KKK=0:GOSUB *T_MSTOP
57100 LX=115:CHN=8
57110 FOR I=0 TO 17
57120 PUT@A (LX+I-1,112)-(LX+I+15-1,127),CH1%,,,,,256*13
57130 PUT@A (LX+I,112)-(LX+I+15,127),CH1%,,,,,256*CHN
57140 PUT@A (LX+15,112)-(LX+15+15,127),CH1%,,,,,256*(CHN+1)
57150 NEXT I
57155 PUT@A (LX,112)-(LX+15,127),CH1%,,,,,256*13
57160 CHN=CHN+1:LX=LX+17
57170 IF CHN=12 THEN 57180 ELSE 57110
57180 FOR I=0 TO 16
57190 FOR J=0 TO 14 STEP 2
57200 PRESET (115+17*4-1+I,112+J):PRESET (115+17*4+15-I,127-J):FOR K=0 TO 50:NEXT K
57210 NEXT J:NEXT I
57220 RETURN
58000 *CHRSET
58010 RESTORE 40000
58020 DIM CH1%(256*14)
58110 FOR J=0 TO 256*14-1
58120 READ A!
58130 IF A!>32767 THEN A!=A!-32768*2
58140 CH1%(J)=A!
58150 NEXT
58160 RETURN
59000 '
59010 '
59020 *T_MINIT
59030 KKK=0:IF PLAY(0) THEN RETURN
59040 PLAY OFF' : FOR T_A=0 TO 13 : READ T_B : PART T_A,T_B : NEXT
59050 IF T_PCB$<>T_PC$ THEN LOAD@ T_PC$+".PMB" : T_PCB$=T_PC$
59060 IF T_FMB$<>T_FM$ THEN LOAD@ T_FM$+".FMB" : T_FMB$=T_FM$
59070 CLOSE #2 : OPEN "I",#2,T_FN$+".MML" : PLAY T_MS$ : GOSUB *T_MPLAY
59080 INTERVAL 1 : ON INTERVAL GOSUB *T_MPLAY : INTERVAL ON
59090 RETURN
59100 '
59110 *T_MPLAY
59120 IF PLAY(0)=0 THEN T_MSB=PLAY(1)-4
59130 T_MS=PLAY(1) : T_MR=T_MS-T_MSB
59140 WHILE T_MR>0
59150 IF EOF(2) THEN CLOSE #2:KKK=1:IF KKKK=1 THEN INTERVAL STOP:RETURN ELSE OPEN "I",#2,T_FN$+".MML":LINE INPUT #2,T_MA$
59160 LINE INPUT #2,T_MA$:T_MO$=LEFT$(T_MA$,1):IF T_MO$<>"/" THEN 59150
59170 INPUT #2,T_MA$,T_MB$,T_MC$,T_MD$,T_ME$,T_MF$,T_MG$ ,T_MH$,T_MI$,T_MJ$,T_MK$,T_ML$,T_MM$,T_MN$
59180 PLAY T_MA$,T_MB$,T_MC$,T_MD$,T_ME$,T_MF$,T_MG$ ,T_MH$,T_MI$,T_MJ$,T_MK$,T_ML$,T_MM$,T_MN$
59190 INPUT #2,T_MA$ : T_MR=T_MR-1
59200 WEND
59210 T_MSB=T_MS
59220 RETURN
59230 '
59240 *T_MSTOP
59250 INTERVAL OFF : PLAY OFF : CLOSE #2
59260 RETURN
59500 *SELECT
59510 CLS:LOCATE 2,2:INPUT "ステージを選択して下さい(1-50)",SSN
59520 IF SSN<1 OR SSN>50 THEN *SELECT
59530 STAGE=SSN:MENSF=1:GOTO *TITLE
59540 *BADENDING
59550 CLS:LOCATE 0,0:PRINT "世の中そんなに甘くない!"
59560 PRINT "もういちど最初から出直してきなさい!"
59570 PRINT "という訳で貴方は最初からやり直してネ"
59580 FOR I=0 TO 30000:NEXT I:GOTO *GAMEOVER