home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / fb386 / s_rainb / s_r_2.bas < prev    next >
BASIC Source File  |  1980-01-02  |  48KB  |  782 lines
  1. 1 '＼＼＼　ＳＵＰＥＲ　ＷＩＮＮＩＮＧ　ＴＨＥ　ＲＡＩＮＢＯＷ　／／／
  2. 2 'ＰＲＯＧＲＡＭＭＥＤ　ＢＹ／☆Plusα☆な男－立野。　
  3. 3 '１９９０（Ｃ）　ＴＥＡＭ　α
  4. 4 'ＡＬＬ　ＲＩＧＨＴＳ　ＲＥＳＥＲＶＥＤ(91-01-16 Ver0.79)
  5. 9 TMUS$(1)="R_MAIN1":TMUS$(2)="R_MAIN2":TMUS$(3)="R_MAIN3":TMUS$(4)="R_MAIN4":TMUS$(5)="R_MAIN5"
  6. 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
  7. 40 *STAGEREAD
  8. 41 LOCATE 0,0:PRINT "Ｎｏｗ　Ｍａｐ　Ｄａｔａ　Ｌｏａｄｉｎｇ！"
  9. 42 LOCATE 0,1:PRINT "000000000000000000000000000000000000000000000000000";
  10. 43 OPEN "I",#1,"R_MDAT.MAP"
  11. 49 FOR J=0 TO 50
  12. 50 FOR I=1 TO 15
  13. 60 LI=1
  14. 70 INPUT #1,L$
  15. 80 MAA(J,LI,I)=VAL(MID$(L$,LI,1))
  16. 90 LI=LI+1
  17. 100 IF LI<16 THEN GOTO 80
  18. 110 NEXT I
  19. 120 INPUT #1,AAA$:SX(J)=VAL(AAA$):INPUT #1,AAA$:SY(J)=VAL(AAA$)
  20. 121 INPUT #1,AAA$:MMUKI(J)=VAL(AAA$)
  21. 122 LOCATE J,1:PRINT ".";:NEXT J
  22. 123 CLOSE #1
  23. 125 *GAMESTART
  24. 126 SC=0:STAGE=1:MST=1:MNU=1:MAN=3:DEMOF=0:GOSUB *TITLE:KKKK=0:T_FN$=TMUS$(MNU):GOSUB *T_MINIT
  25. 130 *START 
  26. 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
  27. 141 X=0:Y=0:M=1:N=0:DD=14:S=4
  28. 142 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*MA(X+1,Y+1)
  29. 143 X=X+M:Y=Y+N
  30. 144 IF S=4 AND X=DD THEN S=3:M=0:N=1
  31. 145 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
  32. 146 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 149
  33. 147 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
  34. 148 GOTO 142
  35. 149 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*MA(8,8)
  36. 180 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*(MUKI)
  37. 185 IF DEMOF=1 THEN LINE (0,200)-(319,239),PSET,0,BF
  38. 190 GOTO *HANTEI
  39. 200 *JJJJ
  40. 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
  41. 214 IF DEMOF=1 THEN *DEMO
  42. 215 A=PAD(1):B=PTRIG(1)
  43. 216 IF A<>0 OR B<>0 THEN 220 ELSE 215
  44. 220 ON A GOTO 230,230,1500,2500,290,2000,1000,230,230
  45. 222 ON B GOTO 3000,3500
  46. 230 GOTO *JJJJ
  47. 240 *WAIT
  48. 250 PUT@A (16*(JJX-1),16*(JJY-1))-(16*(JJX-1)+15,16*(JJY-1)+15),CH1%,,,,,256*1
  49. 260 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*MUKI
  50. 270 FOR AA=0 TO 600:NEXT AA
  51. 280 IF DEMOF=1 THEN *DEMO ELSE *JJJJ
  52. 290 IF MA(JX,JY+1)=2 THEN 2000 ELSE 2500
  53. 300 GOTO 210
  54. 1000 IF MA(JX-1,JY)=0 THEN *WAIT
  55. 1010 IF MA(JX-1,JY)=2 OR MA(JX-1,JY)=3 THEN GOTO 1030
  56. 1020 JJX=JX:JJY=JY:JX=JX-1:MUKI=6:SP=SP+1:GOTO *HANTEI
  57. 1030 IF MA(JX-1,JY)=3 THEN 1040 ELSE GOTO 2000
  58. 1040 IF MA(JX-1,JY-1)=0 OR MA(JX-1,JY-1)=2 OR MA(JX-1,JY-1)=3 THEN *WAIT
  59. 1050 JJX=JX:JJY=JY:JX=JX-1:JY=JY-1:MUKI=6:SP=SP+1:GOTO *HANTEI
  60. 1500 IF MA(JX+1,JY)=0 THEN *WAIT
  61. 1510 IF MA(JX+1,JY)=2 OR MA(JX+1,JY)=3 THEN GOTO 1530
  62. 1520 JJX=JX:JJY=JY:JX=JX+1:MUKI=5:SP=SP+1:GOTO *HANTEI
  63. 1530 IF MA(JX+1,JY)=2 THEN GOTO 1540 ELSE GOTO 2500
  64. 1540 IF MA(JX+1,JY-1)=0 OR MA(JX+1,JY-1)=2 OR MA(JX+1,JY-1)=3 THEN *WAIT
  65. 1550 JJX=JX:JJY=JY:JX=JX+1:JY=JY-1:MUKI=5:SP=SP+1:GOTO *HANTEI
  66. 2000 IF MA(JX-1,JY)=0 OR MA(JX-1,JY)=3 THEN 2010 ELSE 2020
  67. 2010 IF MA(JX,JY+1)=2 THEN 2020 ELSE *WAIT
  68. 2020 IF MA(JX-1,JY+1)=0 OR MA(JX-1,JY+1)=2 OR MA(JX-1,JY+1)=3 THEN *WAIT
  69. 2030 JX=JX-1:JY=JY+1:JJX=JX+1:JJY=JY-1:MUKI=6:SP=SP+1:GOTO *HANTEI
  70. 2500 IF MA(JX+1,JY)=0 OR MA(JX+1,JY)=2 THEN 2510 ELSE 2520
  71. 2510 IF MA(JX,JY+1)=3 THEN 2520 ELSE *WAIT
  72. 2520 IF MA(JX+1,JY+1)=0 OR MA(JX+1,JY+1)=2 OR MA(JX+1,JY+1)=3 THEN *WAIT
  73. 2530 JX=JX+1:JY=JY+1:JJX=JX-1:JJY=JY-1:MUKI=5:SP=SP+1:GOTO *HANTEI
  74. 3000 IF MUKI=5 THEN 3010 ELSE 3050
  75. 3010 IF MA(JX+1,JY)=0 OR MA(JX+1,JY)=2 OR MA(JX+1,JY)=3 THEN *WAIT
  76. 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
  77. 3050 IF MA(JX-1,JY)=0 OR MA(JX-1,JY)=2 OR MA(JX-1,JY)=3 THEN *WAIT
  78. 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
  79. 3500 LOCATE 60,10:PRINT "(Yes--A No--B)"
  80. 3505 FOR I=0 TO 800:NEXT I:II=0
  81. 3510 II=PTRIG(1):IF II=0 THEN 3510
  82. 3520 IF II=1 THEN MAN=MAN-1 ELSE LOCATE 60,10:PRINT "　　　　　　　　　";:FOR JJJ=0 TO 300:NEXT JJJ:GOTO *WAIT
  83. 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
  84. 3531 X=0:Y=0:M=1:N=0:DD=14:S=4
  85. 3532 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*7
  86. 3533 X=X+M:Y=Y+N
  87. 3534 IF S=4 AND X=DD THEN S=3:M=0:N=1
  88. 3535 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
  89. 3536 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 3539
  90. 3537 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
  91. 3538 IF KKK=0 THEN 3532 ELSE INTERVAL STOP:GOTO 3532
  92. 3539 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*7
  93. 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
  94. 4000 *HANTEI
  95. 4005 II=1
  96. 4006 *LOOP
  97. 4010 IF MA(JX,JY)=4 THEN *CLEAR
  98. 4020 IF MA(JX,JY+1)=0 OR MA(JX,JY+1)=2 OR MA(JX,JY+1)=3 THEN *WAIT
  99. 4030 IF II=1 THEN JY=JY+1 ELSE JJY=JY:JJX=JX:JY=JY+1:FOR I=0 TO 500:NEXT I
  100. 4040 PUT@A (16*(JJX-1),16*(JJY-1))-(16*(JJX-1)+15,16*(JJY-1)+15),CH1%,,,,,256*1
  101. 4060 PUT@A (16*(JX-1),16*(JY-1))-(16*(JX-1)+15,16*(JY-1)+15),CH1%,,,,,256*MUKI
  102. 4080 II=0:GOTO *LOOP
  103. 4090 *CLEAR
  104. 4095 IF DEMOF=1 THEN FOR UU=0 TO 3000:NEXT UU:DEMOF=0:STAGE=SSN:GOTO *TITLE
  105. 4096 MST=MST+1:IF MST=11 THEN MNU=MNU+1:MST=1
  106. 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
  107. 4101 SCM=INT((NIJI/SP)*200)
  108. 4102 FOR J=1 TO 15:FOR I=1 TO 15
  109. 4103 IF MAE=1 AND MA(I,J)=3 THEN SCN=SCN+200 ELSE MAE=0
  110. 4104 IF MA(I,J)=2 THEN MAE=1
  111. 4105 NEXT I:MAE=0
  112. 4106 NEXT J:PRINT
  113. 4108 LOCATE 60,11:PRINT "STEP BONUS:";SCM:LOCATE 60,12:PRINT "SPECIAL BONUS:";SCN:GOSUB *SCS
  114. 4109 'FOR I=0 TO 5000:NEXT I
  115. 4110 IF STAGE=51 THEN GOSUB *T_MSTOP:GOTO *ENDING
  116. 4111 X=0:Y=0:M=1:N=0:DD=14:S=4
  117. 4112 PUT@A (16*X,16*Y)-(16*X+15,16*Y+15),CH1%,,,,,256*7
  118. 4113 X=X+M:Y=Y+N
  119. 4114 IF S=4 AND X=DD THEN S=3:M=0:N=1
  120. 4115 IF S=3 AND Y=DD THEN S=2:M=-1:N=0
  121. 4116 IF S=2 AND X=14-DD THEN S=1:M=0:N=-1:DD=DD-1:IF DD=6 THEN GOTO 4119
  122. 4117 IF S=1 AND Y=14-DD THEN S=4:M=1:N=0
  123. 4118 GOTO 4112
  124. 4119 PUT@A (16*7,16*7)-(16*7+15,16*7+15),CH1%,,,,,256*7
  125. 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
  126. 4130 *SCS
  127. 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
  128. 4145 IF SCN=0 THEN RETURN
  129. 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
  130. 40000 REM SPRITE(2) No00
  131. 40010 DATA &H301F, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF, &H301F, &H301F
  132. 40020 DATA &H301F, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF, &H301F, &H301F
  133. 40030 DATA &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE, &H7FFF, &H301F
  134. 40040 DATA &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE, &H7FFF, &H301F
  135. 40050 DATA &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD, &H7BDE, &H7FFF
  136. 40060 DATA &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD, &H7BDE, &H7FFF
  137. 40070 DATA &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C, &H77BD, &H7BDE
  138. 40080 DATA &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C, &H77BD, &H7BDE
  139. 40090 DATA &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B, &H739C, &H77BD
  140. 40100 DATA &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B, &H739C, &H77BD
  141. 40110 DATA &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A, &H6F7B, &H739C
  142. 40120 DATA &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A, &H6F7B, &H739C
  143. 40130 DATA &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739, &H6B5A, &H6F7B
  144. 40140 DATA &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739, &H6B5A, &H6F7B
  145. 40150 DATA &H6B5A, &H6739, &H6318, &H6318, &H301F, &H301F, &H301F, &H301F
  146. 40160 DATA &H6B5A, &H6739, &H6318, &H6318, &H301F, &H301F, &H301F, &H6B5A
  147. 40170 DATA &H301F, &H6318, &H6318, &H301F, &H7FFF, &H7FFF, &H7FFF, &H7FFF
  148. 40180 DATA &H301F, &H6318, &H6318, &H301F, &H7FFF, &H7FFF, &H7FFF, &H301F
  149. 40190 DATA &H7FFF, &H301F, &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7BDE
  150. 40200 DATA &H7FFF, &H301F, &H301F, &H7FFF, &H7BDE, &H7BDE, &H7BDE, &H7FFF
  151. 40210 DATA &H7BDE, &H7FFF, &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H77BD
  152. 40220 DATA &H7BDE, &H7FFF, &H7FFF, &H7BDE, &H77BD, &H77BD, &H77BD, &H7BDE
  153. 40230 DATA &H77BD, &H7BDE, &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H739C
  154. 40240 DATA &H77BD, &H7BDE, &H7BDE, &H77BD, &H739C, &H739C, &H739C, &H77BD
  155. 40250 DATA &H739C, &H77BD, &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H6F7B
  156. 40260 DATA &H739C, &H77BD, &H77BD, &H739C, &H6F7B, &H6F7B, &H6F7B, &H739C
  157. 40270 DATA &H6F7B, &H739C, &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6B5A
  158. 40280 DATA &H6F7B, &H739C, &H739C, &H6F7B, &H6B5A, &H6B5A, &H6B5A, &H6F7B
  159. 40290 DATA &H6B5A, &H6F7B, &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6739
  160. 40300 DATA &H6B5A, &H6F7B, &H6F7B, &H6B5A, &H6739, &H6739, &H6739, &H6B5A
  161. 40310 DATA &H6739, &H6B5A, &H301F, &H301F, &H301F, &H301F, &H6318, &H6318
  162. 40320 DATA &H6739, &H6B5A, &H301F, &H301F, &H301F, &H301F, &H6318, &H6739
  163. 40330 REM SPRITE(2) No01
  164. 40340 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  165. 40350 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  166. 40360 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  167. 40370 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  168. 40380 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  169. 40390 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  170. 40400 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  171. 40410 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  172. 40420 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  173. 40430 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  174. 40440 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  175. 40450 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  176. 40460 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  177. 40470 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  178. 40480 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FFF
  179. 40490 DATA &H7FFF, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  180. 40500 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FFF
  181. 40510 DATA &H7FFF, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  182. 40520 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  183. 40530 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  184. 40540 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  185. 40550 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  186. 40560 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  187. 40570 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  188. 40580 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  189. 40590 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  190. 40600 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  191. 40610 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  192. 40620 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  193. 40630 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  194. 40640 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  195. 40650 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  196. 40660 REM SPRITE(2) No02
  197. 40670 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  198. 40680 DATA &H301F, &H301F, &H301F, &H301F, &H0034, &H0034, &H0034, &H0034
  199. 40690 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  200. 40700 DATA &H301F, &H0034, &H0034, &H0034, &H483F, &H483F, &H483F, &H483F
  201. 40710 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0034
  202. 40720 DATA &H0034, &H483F, &H483F, &H483F, &H7C33, &H7C33, &H7C33, &H7C33
  203. 40730 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0034, &H0034
  204. 40740 DATA &H483F, &H7C33, &H7C33, &H7C33, &H7C60, &H7C60, &H7C60, &H7C60
  205. 40750 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H0034, &H483F, &H483F
  206. 40760 DATA &H7C33, &H7C60, &H7C60, &H7C60, &H76A0, &H76A0, &H76A0, &H76A0
  207. 40770 DATA &H301F, &H301F, &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C33
  208. 40780 DATA &H7C60, &H7C60, &H76A0, &H76A0, &H6FE0, &H6FE0, &H6FE0, &H6FE0
  209. 40790 DATA &H301F, &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C33, &H7C60
  210. 40800 DATA &H7C60, &H76A0, &H6FE0, &H6FE0, &H4BE0, &H3FE0, &H3FE0, &H3FE0
  211. 40810 DATA &H301F, &H301F, &H0034, &H0034, &H483F, &H7C33, &H7C60, &H76A0
  212. 40820 DATA &H76A0, &H6FE0, &H3FE0, &H3FE0, &H3FE0, &H0300, &H0300, &H0300
  213. 40830 DATA &H301F, &H301F, &H0034, &H483F, &H7C33, &H7C60, &H7C60, &H76A0
  214. 40840 DATA &H6FE0, &H3FE0, &H3FE0, &H0300, &H0300, &H301F, &H301F, &H301F
  215. 40850 DATA &H301F, &H0034, &H483F, &H7C33, &H7C33, &H7C60, &H76A0, &H6FE0
  216. 40860 DATA &H3FE0, &H3FE0, &H0300, &H301F, &H301F, &H301F, &H301F, &H301F
  217. 40870 DATA &H301F, &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0
  218. 40880 DATA &H3FE0, &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  219. 40890 DATA &H301F, &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0
  220. 40900 DATA &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  221. 40910 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H3FE0
  222. 40920 DATA &H0300, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  223. 40930 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
  224. 40940 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  225. 40950 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
  226. 40960 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  227. 40970 DATA &H0034, &H483F, &H7C33, &H7C60, &H76A0, &H6FE0, &H3FE0, &H0300
  228. 40980 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  229. 40990 REM SPRITE(2) No03
  230. 41000 DATA &H0034, &H0034, &H0034, &H0034, &H301F, &H301F, &H301F, &H301F
  231. 41010 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  232. 41020 DATA &H483F, &H483F, &H483F, &H483F, &H0034, &H0034, &H0034, &H301F
  233. 41030 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  234. 41040 DATA &H7C33, &H7C33, &H7C33, &H7C33, &H483F, &H483F, &H483F, &H0034
  235. 41050 DATA &H0034, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  236. 41060 DATA &H7C60, &H7C60, &H7C60, &H7C60, &H7C33, &H7C33, &H7C33, &H483F
  237. 41070 DATA &H0034, &H0034, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  238. 41080 DATA &H76A0, &H76A0, &H76A0, &H76A0, &H7C60, &H7C60, &H7C60, &H7C33
  239. 41090 DATA &H483F, &H483F, &H0034, &H301F, &H301F, &H301F, &H301F, &H301F
  240. 41100 DATA &H6FE0, &H6FE0, &H6FE0, &H6FE0, &H76A0, &H76A0, &H7C60, &H7C60
  241. 41110 DATA &H7C33, &H7C33, &H483F, &H0034, &H301F, &H301F, &H301F, &H301F
  242. 41120 DATA &H3FE0, &H3FE0, &H3FE0, &H4BE0, &H6FE0, &H6FE0, &H76A0, &H7C60
  243. 41130 DATA &H7C60, &H7C33, &H7C33, &H483F, &H0034, &H301F, &H301F, &H301F
  244. 41140 DATA &H0300, &H0300, &H0300, &H3FE0, &H3FE0, &H3FE0, &H6FE0, &H76A0
  245. 41150 DATA &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H0034, &H301F, &H301F
  246. 41160 DATA &H301F, &H301F, &H301F, &H0300, &H0300, &H3FE0, &H3FE0, &H6FE0
  247. 41170 DATA &H76A0, &H7C60, &H7C60, &H7C33, &H483F, &H0034, &H301F, &H301F
  248. 41180 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H0300, &H3FE0, &H3FE0
  249. 41190 DATA &H6FE0, &H76A0, &H7C60, &H7C33, &H7C33, &H483F, &H0034, &H301F
  250. 41200 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300, &H3FE0
  251. 41210 DATA &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H301F
  252. 41220 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300
  253. 41230 DATA &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034, &H301F
  254. 41240 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H0300
  255. 41250 DATA &H3FE0, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
  256. 41260 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  257. 41270 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
  258. 41280 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  259. 41290 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
  260. 41300 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  261. 41310 DATA &H0300, &H3FE0, &H6FE0, &H76A0, &H7C60, &H7C33, &H483F, &H0034
  262. 41320 REM SPRITE(2) No04
  263. 41330 DATA &H301F, &H301F, &H301F, &H301F, &H4A4B, &H4A4B, &H4A4B, &H4A4B
  264. 41340 DATA &H4A4B, &H4A4B, &H4A4B, &H4A4B, &H301F, &H301F, &H301F, &H301F
  265. 41350 DATA &H301F, &H301F, &H52AB, &H52AB, &H4690, &H4690, &H4690, &H464B
  266. 41360 DATA &H464B, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H4A4B, &H301F, &H301F
  267. 41370 DATA &H301F, &H301F, &H52AB, &H4ED2, &H4ED2, &H4690, &H4690, &H464B
  268. 41380 DATA &H464B, &H3E4E, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H301F, &H301F
  269. 41390 DATA &H301F, &H5AEB, &H5714, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H464B
  270. 41400 DATA &H464B, &H4690, &H4690, &H3E4E, &H3E4E, &H3E4E, &H4A4B, &H301F
  271. 41410 DATA &H301F, &H5AEB, &H5714, &H5714, &H5714, &H4ED2, &H4ED2, &H464B
  272. 41420 DATA &H464B, &H4690, &H4690, &H4690, &H4690, &H3E4E, &H4A4B, &H301F
  273. 41430 DATA &H5AEB, &H5AEB, &H6357, &H5F57, &H5714, &H5714, &H5714, &H464B
  274. 41440 DATA &H464B, &H4ED2, &H4ED2, &H4690, &H4690, &H4690, &H52AB, &H52AB
  275. 41450 DATA &H634B, &H5F57, &H5F57, &H5F57, &H5F57, &H5F57, &H5714, &H464B
  276. 41460 DATA &H464B, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H4690, &H4690, &H52AB
  277. 41470 DATA &H634B, &H6357, &H6357, &H5F57, &H5F57, &H6073, &H5F57, &H464B
  278. 41480 DATA &H464B, &H5714, &H6073, &H4ED2, &H4ED2, &H4ED2, &H4ED2, &H5AEB
  279. 41490 DATA &H634B, &H6B79, &H6B79, &H6357, &H6357, &H6085, &H6314, &H464B
  280. 41500 DATA &H464B, &H5F57, &H6085, &H5714, &H5714, &H4ED2, &H4ED2, &H5AEB
  281. 41510 DATA &H6F8B, &H6B79, &H6B79, &H6B79, &H6B79, &H6073, &H6357, &H464B
  282. 41520 DATA &H464B, &H5F57, &H6073, &H5F57, &H5714, &H5714, &H5714, &H634B
  283. 41530 DATA &H6F8B, &H73BB, &H73BB, &H6B79, &H6B79, &H6B79, &H6B79, &H464B
  284. 41540 DATA &H464B, &H5F57, &H5F57, &H5F57, &H5F57, &H5F57, &H5714, &H634B
  285. 41550 DATA &H6F8B, &H73BB, &H73BB, &H73BB, &H73BB, &H6B79, &H6B79, &H464B
  286. 41560 DATA &H464B, &H6357, &H6357, &H5F57, &H5F57, &H5F57, &H5F57, &H634B
  287. 41570 DATA &H77AB, &H77DD, &H77DD, &H73BB, &H73BB, &H73BB, &H73BB, &H464B
  288. 41580 DATA &H464B, &H6B79, &H6B79, &H6357, &H6357, &H5F57, &H5F57, &H6F8B
  289. 41590 DATA &H77AB, &H77DD, &H77DD, &H77DD, &H77DD, &H73BB, &H73BB, &H464B
  290. 41600 DATA &H464B, &H6B79, &H6B79, &H6B79, &H6B79, &H6357, &H6357, &H6F8B
  291. 41610 DATA &H77AB, &H77DD, &H77DD, &H77DD, &H77DD, &H77DD, &H77DD, &H464B
  292. 41620 DATA &H464B, &H73BB, &H73BB, &H6B79, &H6B79, &H6B79, &H6B79, &H6F8B
  293. 41630 DATA &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB
  294. 41640 DATA &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB, &H77AB
  295. 41650 REM SPRITE(2) No05
  296. 41660 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H1428, &H1428, &H1428
  297. 41670 DATA &H1428, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  298. 41680 DATA &H301F, &H301F, &H301F, &H301F, &H1428, &H1428, &H1428, &H1428
  299. 41690 DATA &H1428, &H1428, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  300. 41700 DATA &H301F, &H301F, &H301F, &H1428, &H1428, &H6794, &H000C, &H6794
  301. 41710 DATA &H000C, &H6794, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  302. 41720 DATA &H301F, &H301F, &H301F, &H1428, &H1428, &H6794, &H000C, &H6794
  303. 41730 DATA &H000C, &H6794, &H301F, &H301F, &H7767, &H5F67, &H301F, &H301F
  304. 41740 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H6794, &H6794, &H6794
  305. 41750 DATA &H6794, &H301F, &H301F, &H301F, &H5F67, &H5F67, &H2B67, &H301F
  306. 41760 DATA &H301F, &H301F, &H67B9, &H45F9, &H45F9, &H4759, &H45F9, &H45F9
  307. 41770 DATA &H4759, &H45F9, &H67B9, &H301F, &H301F, &H301F, &H2B67, &H301F
  308. 41780 DATA &H301F, &H67B9, &H67B9, &H45F9, &H45F9, &H4759, &H45F9, &H45F9
  309. 41790 DATA &H4759, &H45F9, &H67B9, &H67B9, &H301F, &H2B70, &H2B70, &H301F
  310. 41800 DATA &H301F, &H67B9, &H301F, &H301F, &H45F9, &H4759, &H7359, &H45F9
  311. 41810 DATA &H4759, &H7359, &H301F, &H67B9, &H67B9, &H67B9, &H301F, &H301F
  312. 41820 DATA &H301F, &H67B9, &H67B9, &H301F, &H45F9, &H4759, &H45F9, &H45F9
  313. 41830 DATA &H4759, &H45F9, &H301F, &H301F, &H301F, &H2B7F, &H301F, &H301F
  314. 41840 DATA &H301F, &H301F, &H67B9, &H67B9, &H45F9, &H4759, &H45F9, &H45F9
  315. 41850 DATA &H4759, &H45F9, &H301F, &H301F, &H301F, &H2B7F, &H301F, &H301F
  316. 41860 DATA &H301F, &H301F, &H301F, &H301F, &H72F9, &H72F9, &H72F9, &H72F9
  317. 41870 DATA &H72F9, &H72F9, &H301F, &H301F, &H301F, &H2ADF, &H301F, &H301F
  318. 41880 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H5B5D, &H5B5D
  319. 41890 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H2ADF, &H301F, &H301F
  320. 41900 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H5B5D, &H5B5D
  321. 41910 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H3A9F, &H301F, &H301F
  322. 41920 DATA &H301F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D, &H301F, &H301F
  323. 41930 DATA &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H3A9F, &H301F, &H301F
  324. 41940 DATA &H301F, &H301F, &H301F, &H301F, &H366D, &H366D, &H301F, &H301F
  325. 41950 DATA &H366D, &H366D, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  326. 41960 DATA &H301F, &H301F, &H301F, &H301F, &H2E2C, &H366D, &H366D, &H301F
  327. 41970 DATA &H2E2C, &H366D, &H366D, &H301F, &H301F, &H301F, &H301F, &H301F
  328. 41980 REM SPRITE(2) No06
  329. 41990 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H1428
  330. 42000 DATA &H1428, &H1428, &H1428, &H301F, &H301F, &H301F, &H301F, &H301F
  331. 42010 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H1428, &H1428
  332. 42020 DATA &H1428, &H1428, &H1428, &H1428, &H301F, &H301F, &H301F, &H301F
  333. 42030 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H6794, &H000C
  334. 42040 DATA &H6794, &H000C, &H6794, &H1428, &H1428, &H301F, &H301F, &H301F
  335. 42050 DATA &H301F, &H301F, &H5F67, &H7767, &H301F, &H301F, &H6794, &H000C
  336. 42060 DATA &H6794, &H000C, &H6794, &H1428, &H1428, &H301F, &H301F, &H301F
  337. 42070 DATA &H301F, &H2B67, &H5F67, &H5F67, &H301F, &H301F, &H301F, &H6794
  338. 42080 DATA &H6794, &H6794, &H6794, &H301F, &H301F, &H301F, &H301F, &H301F
  339. 42090 DATA &H301F, &H2B67, &H301F, &H301F, &H301F, &H67B9, &H45F9, &H4759
  340. 42100 DATA &H45F9, &H45F9, &H4759, &H45F9, &H45F9, &H67B9, &H301F, &H301F
  341. 42110 DATA &H301F, &H2B70, &H2B70, &H301F, &H67B9, &H67B9, &H45F9, &H4759
  342. 42120 DATA &H45F9, &H45F9, &H4759, &H45F9, &H45F9, &H67B9, &H67B9, &H301F
  343. 42130 DATA &H301F, &H301F, &H67B9, &H67B9, &H67B9, &H301F, &H7359, &H4759
  344. 42140 DATA &H45F9, &H7359, &H4759, &H45F9, &H301F, &H301F, &H67B9, &H301F
  345. 42150 DATA &H301F, &H301F, &H2B7F, &H301F, &H301F, &H301F, &H45F9, &H4759
  346. 42160 DATA &H45F9, &H45F9, &H4759, &H45F9, &H301F, &H67B9, &H67B9, &H301F
  347. 42170 DATA &H301F, &H301F, &H2B7F, &H301F, &H301F, &H301F, &H45F9, &H4759
  348. 42180 DATA &H45F9, &H45F9, &H4759, &H45F9, &H67B9, &H67B9, &H301F, &H301F
  349. 42190 DATA &H301F, &H301F, &H2ADF, &H301F, &H301F, &H301F, &H72F9, &H72F9
  350. 42200 DATA &H72F9, &H72F9, &H72F9, &H72F9, &H301F, &H301F, &H301F, &H301F
  351. 42210 DATA &H301F, &H301F, &H2ADF, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
  352. 42220 DATA &H5B5D, &H5B5D, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
  353. 42230 DATA &H301F, &H301F, &H3A9F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
  354. 42240 DATA &H5B5D, &H5B5D, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
  355. 42250 DATA &H301F, &H301F, &H3A9F, &H301F, &H301F, &H301F, &H5B5D, &H5B5D
  356. 42260 DATA &H301F, &H301F, &H5B5D, &H5B5D, &H301F, &H301F, &H301F, &H301F
  357. 42270 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H366D, &H366D
  358. 42280 DATA &H301F, &H301F, &H366D, &H366D, &H301F, &H301F, &H301F, &H301F
  359. 42290 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H366D, &H366D, &H2E2C
  360. 42300 DATA &H301F, &H366D, &H366D, &H2E2C, &H301F, &H301F, &H301F, &H301F
  361. 42310 REM SPRITE(2) No07
  362. 42320 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  363. 42330 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  364. 42340 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
  365. 42350 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  366. 42360 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
  367. 42370 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  368. 42380 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
  369. 42390 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  370. 42400 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
  371. 42410 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  372. 42420 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0, &H7FF4
  373. 42430 DATA &H7FF4, &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F
  374. 42440 DATA &H301F, &H301F, &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF4, &H7FF8
  375. 42450 DATA &H7FF8, &H7FF4, &H7FF0, &H7FE0, &H7FE0, &H301F, &H301F, &H301F
  376. 42460 DATA &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF0, &H7FF4, &H7FF8, &H7FFD
  377. 42470 DATA &H7FFD, &H7FF8, &H7FF4, &H7FF0, &H7FF0, &H7FE0, &H7FE0, &H301F
  378. 42480 DATA &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF0, &H7FF4, &H7FF8, &H7FFD
  379. 42490 DATA &H7FFD, &H7FF8, &H7FF4, &H7FF0, &H7FF0, &H7FE0, &H7FE0, &H301F
  380. 42500 DATA &H301F, &H301F, &H301F, &H7FE0, &H7FE0, &H7FF0, &H7FF4, &H7FF8
  381. 42510 DATA &H7FF8, &H7FF4, &H7FF0, &H7FE0, &H7FE0, &H301F, &H301F, &H301F
  382. 42520 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0, &H7FF4
  383. 42530 DATA &H7FF4, &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F
  384. 42540 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
  385. 42550 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  386. 42560 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0, &H7FF0
  387. 42570 DATA &H7FF0, &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  388. 42580 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
  389. 42590 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  390. 42600 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H7FE0
  391. 42610 DATA &H7FE0, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  392. 42620 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  393. 42630 DATA &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F, &H301F
  394. 42640 REM SPRITE(2) No08
  395. 42650 DATA &H0FE3, &H17E5, &H1FE7, &H1FE7, &H27E9, &H2FEB, &H37ED, &H3FEF
  396. 42660 DATA &H47F1, &H4FF3, &H57F5, &H5FF7, &H67F9, &H6FFB, &H77FD, &H7FFF
  397. 42670 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  398. 42680 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H7FFF
  399. 42690 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  400. 42700 DATA &H47F1, &H4FF3, &H57F5, &H5FF7, &H67F9, &H6FFB, &H77FD, &H7FFF
  401. 42710 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  402. 42720 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  403. 42730 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  404. 42740 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  405. 42750 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  406. 42760 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  407. 42770 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  408. 42780 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  409. 42790 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  410. 42800 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  411. 42810 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  412. 42820 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  413. 42830 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  414. 42840 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  415. 42850 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  416. 42860 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  417. 42870 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  418. 42880 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  419. 42890 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  420. 42900 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  421. 42910 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  422. 42920 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  423. 42930 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  424. 42940 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  425. 42950 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H3FEF
  426. 42960 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  427. 42970 REM SPRITE(2) No09
  428. 42980 DATA &H001F, &H081D, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
  429. 42990 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
  430. 43000 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  431. 43010 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  432. 43020 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  433. 43030 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  434. 43040 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  435. 43050 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  436. 43060 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  437. 43070 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  438. 43080 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  439. 43090 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  440. 43100 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  441. 43110 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  442. 43120 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  443. 43130 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  444. 43140 DATA &H001F, &H0000, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
  445. 43150 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H0000, &H0000
  446. 43160 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
  447. 43170 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  448. 43180 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
  449. 43190 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  450. 43200 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
  451. 43210 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  452. 43220 DATA &H001F, &H0000, &H101B, &H0000, &H0000, &H0000, &H0000, &H0000
  453. 43230 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  454. 43240 DATA &H001F, &H0000, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
  455. 43250 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
  456. 43260 DATA &H001F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  457. 43270 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H7801
  458. 43280 DATA &H001F, &H081D, &H101B, &H1819, &H2017, &H2815, &H3013, &H3811
  459. 43290 DATA &H400F, &H480D, &H500B, &H5809, &H6007, &H6805, &H7003, &H7801
  460. 43300 REM SPRITE(2) No10
  461. 43310 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  462. 43320 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
  463. 43330 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  464. 43340 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H009B, &H005D
  465. 43350 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  466. 43360 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
  467. 43370 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  468. 43380 DATA &H0000, &H0000, &H0000, &H0000, &H0117, &H0000, &H0000, &H005D
  469. 43390 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  470. 43400 DATA &H0000, &H0000, &H0000, &H0155, &H0000, &H0000, &H0000, &H005D
  471. 43410 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  472. 43420 DATA &H0000, &H0000, &H0193, &H0000, &H0000, &H0000, &H0000, &H005D
  473. 43430 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  474. 43440 DATA &H0000, &H01D1, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
  475. 43450 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  476. 43460 DATA &H020F, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
  477. 43470 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H024D
  478. 43480 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
  479. 43490 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H028B, &H0000
  480. 43500 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H005D
  481. 43510 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0289, &H0000, &H0000
  482. 43520 DATA &H020F, &H01D1, &H0193, &H0155, &H0117, &H00D9, &H0000, &H005D
  483. 43530 DATA &H0000, &H0000, &H0000, &H0000, &H02C7, &H0000, &H0000, &H0000
  484. 43540 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
  485. 43550 DATA &H0000, &H0000, &H0000, &H0307, &H0000, &H0000, &H0000, &H0000
  486. 43560 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
  487. 43570 DATA &H0000, &H0000, &H0345, &H0000, &H0000, &H0000, &H0000, &H0000
  488. 43580 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
  489. 43590 DATA &H0000, &H0383, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  490. 43600 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H0000, &H005D
  491. 43610 DATA &H03C1, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  492. 43620 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H00D9, &H009B, &H005D
  493. 43630 REM SPRITE(2) No11
  494. 43640 DATA &H0401, &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H2409
  495. 43650 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H0802, &H0401
  496. 43660 DATA &H0401, &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H280A
  497. 43670 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H0C03, &H0401
  498. 43680 DATA &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H300C, &H2C0B
  499. 43690 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H1405, &H1004, &H0401
  500. 43700 DATA &H0401, &H0401, &H0401, &H0000, &H0401, &H0401, &H340D, &H300C
  501. 43710 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H1806, &H1405, &H0401
  502. 43720 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H3C0F, &H0401, &H340D
  503. 43730 DATA &H0401, &H0401, &H0401, &H0401, &H2008, &H0401, &H1806, &H0401
  504. 43740 DATA &H0401, &H0401, &H0000, &H0401, &H0401, &H4010, &H0401, &H380E
  505. 43750 DATA &H0401, &H0401, &H0401, &H0401, &H2409, &H0401, &H1C07, &H0401
  506. 43760 DATA &H0401, &H0401, &H0000, &H0401, &H4812, &H0401, &H0401, &H3C0F
  507. 43770 DATA &H0401, &H0401, &H0401, &H2C0B, &H0401, &H0401, &H2008, &H0401
  508. 43780 DATA &H0401, &H0401, &H0000, &H0401, &H4C13, &H0401, &H0401, &H4010
  509. 43790 DATA &H0401, &H0401, &H0401, &H300C, &H0401, &H0401, &H2409, &H0401
  510. 43800 DATA &H0401, &H0401, &H0000, &H5415, &H0401, &H0401, &H0401, &H4411
  511. 43810 DATA &H0401, &H0401, &H380E, &H0401, &H0401, &H0401, &H280A, &H0401
  512. 43820 DATA &H0401, &H0000, &H0401, &H5816, &H0401, &H0401, &H0401, &H4812
  513. 43830 DATA &H0401, &H0401, &H3C0F, &H0401, &H0401, &H0401, &H2C0B, &H0401
  514. 43840 DATA &H0401, &H0000, &H6018, &H0401, &H0401, &H0401, &H0401, &H4C13
  515. 43850 DATA &H0401, &H4411, &H0401, &H0401, &H0401, &H0401, &H300C, &H0401
  516. 43860 DATA &H0401, &H0000, &H6419, &H0401, &H0401, &H0401, &H0401, &H5014
  517. 43870 DATA &H0401, &H4812, &H0401, &H0401, &H0401, &H0401, &H340D, &H0401
  518. 43880 DATA &H0401, &H6C1B, &H0401, &H0401, &H0401, &H0401, &H0401, &H5415
  519. 43890 DATA &H5014, &H0401, &H0401, &H0401, &H0401, &H0401, &H380E, &H0401
  520. 43900 DATA &H0000, &H701C, &H0401, &H0401, &H0401, &H0401, &H0401, &H5816
  521. 43910 DATA &H5415, &H0401, &H0401, &H0401, &H0401, &H0401, &H3C0F, &H0401
  522. 43920 DATA &H781E, &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H5C17
  523. 43930 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H4010, &H0401
  524. 43940 DATA &H7C1F, &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H6018
  525. 43950 DATA &H0401, &H0401, &H0401, &H0401, &H0401, &H0401, &H4411, &H0401
  526. 43960 REM SPRITE(2) No12
  527. 43970 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  528. 43980 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  529. 43990 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  530. 44000 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  531. 44010 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  532. 44020 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  533. 44030 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03E0, &H03E0
  534. 44040 DATA &H03E0, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03E0
  535. 44050 DATA &H0000, &H0000, &H0000, &H0000, &H07E0, &H07E0, &H07E0, &H07E0
  536. 44060 DATA &H07E0, &H07E0, &H0000, &H0000, &H0000, &H0000, &H07E0, &H07E0
  537. 44070 DATA &H0000, &H0000, &H0000, &H13E0, &H13E0, &H13E0, &H13E0, &H0000
  538. 44080 DATA &H13E0, &H13E0, &H13E0, &H0000, &H0000, &H13E0, &H13E0, &H13E0
  539. 44090 DATA &H0000, &H0000, &H1FE0, &H1FE0, &H1FE0, &H0000, &H0000, &H0000
  540. 44100 DATA &H0000, &H1FE0, &H1FE0, &H0000, &H1FE0, &H1FE0, &H1FE0, &H0000
  541. 44110 DATA &H0000, &H2BE0, &H2BE0, &H2BE0, &H0000, &H0000, &H0000, &H0000
  542. 44120 DATA &H0000, &H2BE0, &H2BE0, &H2BE0, &H2BE0, &H2BE0, &H0000, &H0000
  543. 44130 DATA &H0000, &H37E0, &H37E0, &H0000, &H0000, &H0000, &H0000, &H0000
  544. 44140 DATA &H0000, &H0000, &H37E0, &H37E0, &H37E0, &H0000, &H0000, &H0000
  545. 44150 DATA &H43E0, &H43E0, &H43E0, &H0000, &H0000, &H0000, &H0000, &H0000
  546. 44160 DATA &H0000, &H43E0, &H43E0, &H43E0, &H43E0, &H0000, &H0000, &H0000
  547. 44170 DATA &H4FE0, &H4FE0, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  548. 44180 DATA &H4FE0, &H4FE0, &H4FE0, &H4FE0, &H4FE0, &H0000, &H0000, &H0000
  549. 44190 DATA &H5BE0, &H5BE0, &H0000, &H0000, &H0000, &H0000, &H0000, &H5BE0
  550. 44200 DATA &H5BE0, &H5BE0, &H0000, &H5BE0, &H5BE0, &H5BE0, &H0000, &H0000
  551. 44210 DATA &H67E0, &H67E0, &H67E0, &H0000, &H0000, &H67E0, &H67E0, &H67E0
  552. 44220 DATA &H67E0, &H0000, &H0000, &H0000, &H67E0, &H67E0, &H0000, &H67E0
  553. 44230 DATA &H0000, &H67E0, &H67E0, &H67E0, &H67E0, &H67E0, &H67E0, &H0000
  554. 44240 DATA &H0000, &H0000, &H0000, &H0000, &H67E0, &H67E0, &H67E0, &H67E0
  555. 44250 DATA &H0000, &H0000, &H73E0, &H73E0, &H73E0, &H73E0, &H0000, &H0000
  556. 44260 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H73E0, &H73E0, &H0000
  557. 44270 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  558. 44280 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  559. 44290 REM SPRITE(2) No13
  560. 44300 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  561. 44310 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  562. 44320 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  563. 44330 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  564. 44340 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  565. 44350 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  566. 44360 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  567. 44370 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  568. 44380 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  569. 44390 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  570. 44400 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  571. 44410 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  572. 44420 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  573. 44430 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  574. 44440 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  575. 44450 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  576. 44460 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  577. 44470 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  578. 44480 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  579. 44490 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  580. 44500 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  581. 44510 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  582. 44520 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  583. 44530 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  584. 44540 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  585. 44550 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  586. 44560 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  587. 44570 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  588. 44580 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  589. 44590 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  590. 44600 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  591. 44610 DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  592. 48000 *ENDING
  593. 48001 IF MENSF=1 THEN *BADENDING
  594. 48010 KKK=0:KKKK=0:T_FN$="R_ENDING":GOSUB *T_MINIT:SCREEN @0:CLS:RESTORE 48120:FOR JJ=1 TO 47
  595. 48020 READ MES$
  596. 48030 SYMBOL (90,479-16),MES$,1,1,,,,1
  597. 48040 GOSUB *SCROLL
  598. 48050 NEXT JJ
  599. 48060 SYMBOL (60,479-16),"　　　　　　　　　　　ＦＩＮＡＬ　ＳＣＯＲＥ  "+STR$(SC),1,1,7,,,1:FOR I=0 TO 3:GOSUB *SCROLL:NEXT I
  600. 48070 GOTO 48070
  601. 48080 *SCROLL
  602. 48090 FOR K=1 TO 2
  603. 48100 ROLL -16
  604. 48110 NEXT K:RETURN
  605. 48120 DATA "Ｃｏｎｇｒａｔｕｒａｔｉｏｎ！！"
  606. 48130 DATA "あなたはＳＵＰＥＲ　ＷＩＮＮＩＮＧ　ＴＨＥ　ＲＡＩＮＢＯＷの"
  607. 48140 DATA "マスターの称号を得ました！おめでとう。我々スタッフは新たなる"
  608. 48150 DATA "試練を受ける資格を貴方にプレゼントする事を約束しましょう！"
  609. 48160 DATA "では、また会う日まで、Ｓｅｅ　Ｙｏｕ　Ａｇａｉｎ！"
  610. 48170 DATA ""
  611. 48180 DATA "　　       　☆　　　　ＳＴＡＦＦ　　　　　☆"
  612. 48190 DATA ""
  613. 48200 DATA ""
  614. 48210 DATA "　　　　　★Ｍａｉｎ　Ｐｒｏｇｒａｍｍｅｒ★"
  615. 48220 DATA ""
  616. 48230 DATA "　　　　　　　Ｈｉｒｏｋｉ　Ｔａｔｅｎｏ"
  617. 48240 DATA "" 
  618. 48250 DATA ""
  619. 48260 DATA "　　　　　★Ｏｒｉｇｉｎａｌ　Ｃｏｎｃｅｐｔ★"
  620. 48270 DATA ""
  621. 48280 DATA "   　　　　 　Ｈｉｒｏｋｉ　Ｔａｔｅｎｏ"
  622. 48290 DATA ""
  623. 48300 DATA ""
  624. 48310 DATA "　　　　　　★Ｍｕｓｉｃ　Ｃｏｎｐｏｓｅｄ★　"
  625. 48320 DATA ""
  626. 48330 DATA "　　　　　　　Ｈｉｒｏｙｕｋｉ　Ｂａｎ"
  627. 48340 DATA ""
  628. 48350 DATA ""
  629. 48360 DATA "　　　　　★Ｃｈｒａｃｔｅｒ　Ｄｅｓｉｇｎ★"
  630. 48370 DATA ""
  631. 48380 DATA "　　　　　　　Ｈｉｒｏｋｉ　Ｔａｔｅｎｏ"
  632. 48390 DATA "　　　　　　　Ｍａｓａｓｈｉ　Ｎｉｓｈｉｕｃｈｉ"
  633. 48400 DATA ""
  634. 48410 DATA "　　　　　　★Ｓｔａｇｅ　　Ｄｅｓｉｇｎ★"
  635. 48420 DATA ""
  636. 48430 DATA "　　　　　　　Ｈｉｒｏｋｉ　Ｔａｔｅｎｏ"
  637. 48440 DATA "　　　　　　　Ｈｉｒｏｋｉ　Ｙａｎａｇｉｂａｓｈｉ"
  638. 48450 DATA "　　　　　　　Ｔｏｍｏｈｉｒｏ　Ｔａｇｕｃｈｉ"
  639. 48460 DATA "　　　　　　　Ｈｉｒｏｙｕｋｉ　Ｂａｎ"
  640. 48470 DATA "　　　　　　　Ｍａｓａｓｈｉ　Ｎｉｓｈｉｕｃｈｉ"
  641. 48480 DATA ""
  642. 48490 DATA ""
  643. 48500 DATA "　　　　　　　　　製作　　ＴＥＡＭ　α"
  644. 48510 DATA ""
  645. 48520 DATA "　　　　　　 　企画・制作　　　ＳＣＨＡＦＴ"
  646. 48530 DATA ""
  647. 48540 DATA "　　　　　　　（ｃ）　１９９０　ＳＣＨＡＦＴ"
  648. 48550 DATA "　　　　　ＡＬＬ　ＲＩＧＨＴＳ　ＲＥＳＥＲＶＥＤ"
  649. 48560 DATA ""
  650. 48570 DATA "　　　　　　　　　　　ＴＨＥ　ＥＮＤ"
  651. 48580 DATA ""         
  652. 49000 *GAMEOVER
  653. 49010 CLS:SYMBOL (90,100),"ＧＡＭＥ　ＯＶＥＲ",1,1,,,,1
  654. 49020 KKKK=1:T_FN$="R_GAMEO":GOSUB *T_MINIT
  655. 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
  656. 50000 *DEMO
  657. 50010 IF DEMOF=0 THEN *DINIT
  658. 50020 STE=STE+1:A=UGOKI(STE):B=RNIJI(STE)
  659. 50030 FOR I=0 TO 7000:NEXT I
  660. 50040 LOCATE 0,24:PRINT ADVICE$(STE);
  661. 50050 GOTO 220
  662. 50060 *DINIT
  663. 50070 CLS:RESTORE 50100:STE=0:STAGE=0:FOR I=1 TO 25:READ UGOKI(I),RNIJI(I):NEXT I
  664. 50080 FOR I=1 TO 25:READ ADVICE$(I):NEXT I
  665. 50090 DEMOF=1:LOCATE 0,22:PRINT "Ｄｅｍｏｎｓｔｒａｔｉｏｎ";:LOCATE 0,23:PRINT "Ｉｎｓｅｒｔ　Ｃｏｉｎ ";:GOTO *START
  666. 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
  667. 50110 DATA "この世界には重力がある！"
  668. 50120 DATA "虹はＡボタンでだすんだぞ！"
  669. 50130 DATA ""
  670. 50140 DATA "　　　　　　　　　　　　　"
  671. 50150 DATA ""
  672. 50160 DATA ""
  673. 50170 DATA ""
  674. 50180 DATA "一つ虹を完成させればスペシャルボーナス！"
  675. 50190 DATA ""
  676. 50200 DATA "　　　　　　　　　　　　　　　　　　　　"
  677. 50210 DATA ""
  678. 50220 DATA "虹を階段状にして登るんだ"
  679. 50230 DATA ""
  680. 50240 DATA ""
  681. 50250 DATA "　　　　　　　　　　　　"
  682. 50260 DATA "虹から下へ下りる時はパッドの下を押そう"
  683. 50270 DATA ""
  684. 50280 DATA ""
  685. 50290 DATA "                                      "
  686. 50300 DATA ""
  687. 50310 DATA ""
  688. 50320 DATA "ゴールに入れば一面クリアー！"
  689. 50330 DATA ""
  690. 50340 DATA ""
  691. 50350 DATA "　　　　　　　　　　　　　　"
  692. 55000 *TITLE
  693. 55010 KKKK=1:T_FN$="R_TITLE1":GOSUB *T_MINIT:CLS:SCREEN @1:SYMBOL (40,0),"ＳＵＰＥＲ　ＷＩＮＮＩＮＧ",1,1,,,,1
  694. 55020 SYMBOL (57,20),"ＴＨＥ　ＲＡＩＮＢＯＷ",1,1,,,,1
  695. 55030 SYMBOL (50,160),"ＩＮＳＥＲＴ　ＣＯＩＮ",1,1,,,,1
  696. 55040 SYMBOL (30,100),"ＣＯＰＹＲＩＧＨＴ　１９９０",1,1,,,,1
  697. 55050 SYMBOL (30,120),"　　　　ＴＥＡＭα　　　　　",1,1,,,,1
  698. 55055 GET@A (50,160)-(300,180),CH2%
  699. 55060 LINE (50,160)-(300,180),PSET,0,BF:FOR I=0 TO 500
  700. 55061 IF PTRIG(1)=4 THEN GOSUB *T_MSTOP:CLS:RETURN ELSE IF PTRIG(1)=8 THEN GOTO *SELECT
  701. 55062 NEXT I
  702. 55070 PUT@A (50,160)-(300,180),CH2%
  703. 55080 FOR I=0 TO 500
  704. 55081 IF PTRIG(1)=4 THEN GOSUB *T_MSTOP:CLS:RETURN ELSE IF PTRIG(1)=8 THEN GOTO *SELECT
  705. 55085 NEXT I
  706. 55090 IF KKK=1 THEN 55100 ELSE 55060
  707. 55100 GOSUB *T_MSTOP:KKKK=0
  708. 55110 FOR I=0 TO 5000:NEXT I
  709. 55120 GOTO *DEMO
  710. 57000 *TLOGO
  711. 57010 CLS
  712. 57020 PUT@A (115,112)-(130,127),CH1%,,,,,256*8
  713. 57030 LX=115:CHN=8
  714. 57040 FOR I=0 TO 15 
  715. 57045 PUT@A (LX+I-1,112)-(LX+I+15-1,127),CH1%,,,,,256*13
  716. 57050 PUT@A (LX+I,112)-(LX+I+15,127),CH1%,,,,,256*(CHN+1)
  717. 57060 PUT@A (LX,112)-(LX+15,127),CH1%,,,,,256*CHN
  718. 57070 NEXT I
  719. 57080 CHN=CHN+1:LX=LX+17
  720. 57090 IF CHN=12 THEN 57095 ELSE 57040
  721. 57095 T_FN$="R_TLOGO":KKKK=1:GOSUB *T_MINIT
  722. 57096 IF KKK=0 THEN 57096 ELSE INTERVAL STOP:FOR I=0 TO 10000:NEXT I:KKKK=0:KKK=0:GOSUB *T_MSTOP
  723. 57100 LX=115:CHN=8
  724. 57110 FOR I=0 TO 17
  725. 57120 PUT@A (LX+I-1,112)-(LX+I+15-1,127),CH1%,,,,,256*13
  726. 57130 PUT@A (LX+I,112)-(LX+I+15,127),CH1%,,,,,256*CHN
  727. 57140 PUT@A (LX+15,112)-(LX+15+15,127),CH1%,,,,,256*(CHN+1)
  728. 57150 NEXT I
  729. 57155 PUT@A (LX,112)-(LX+15,127),CH1%,,,,,256*13
  730. 57160 CHN=CHN+1:LX=LX+17
  731. 57170 IF CHN=12 THEN 57180 ELSE 57110
  732. 57180 FOR I=0 TO 16
  733. 57190 FOR J=0 TO 14 STEP 2
  734. 57200 PRESET (115+17*4-1+I,112+J):PRESET (115+17*4+15-I,127-J):FOR K=0 TO 50:NEXT K
  735. 57210 NEXT J:NEXT I
  736. 57220 RETURN 
  737. 58000 *CHRSET
  738. 58010 RESTORE 40000
  739. 58020 DIM CH1%(256*14)
  740. 58110     FOR J=0 TO 256*14-1
  741. 58120        READ A!
  742. 58130        IF A!>32767 THEN A!=A!-32768*2
  743. 58140        CH1%(J)=A!
  744. 58150     NEXT
  745. 58160 RETURN
  746. 59000 '
  747. 59010 '
  748. 59020 *T_MINIT
  749. 59030  KKK=0:IF PLAY(0) THEN RETURN
  750. 59040  PLAY OFF' : FOR T_A=0 TO 13 : READ T_B : PART T_A,T_B : NEXT
  751. 59050  IF T_PCB$<>T_PC$ THEN LOAD@ T_PC$+".PMB" : T_PCB$=T_PC$
  752. 59060  IF T_FMB$<>T_FM$ THEN LOAD@ T_FM$+".FMB" : T_FMB$=T_FM$
  753. 59070  CLOSE #2 : OPEN "I",#2,T_FN$+".MML" : PLAY T_MS$ : GOSUB *T_MPLAY
  754. 59080  INTERVAL 1 : ON INTERVAL GOSUB *T_MPLAY : INTERVAL ON
  755. 59090 RETURN
  756. 59100 '
  757. 59110 *T_MPLAY
  758. 59120  IF PLAY(0)=0 THEN T_MSB=PLAY(1)-4
  759. 59130  T_MS=PLAY(1) : T_MR=T_MS-T_MSB
  760. 59140  WHILE T_MR>0
  761. 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$
  762. 59160      LINE INPUT #2,T_MA$:T_MO$=LEFT$(T_MA$,1):IF T_MO$<>"/" THEN 59150
  763. 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$
  764. 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$
  765. 59190    INPUT #2,T_MA$ : T_MR=T_MR-1
  766. 59200  WEND
  767. 59210  T_MSB=T_MS
  768. 59220 RETURN
  769. 59230 '
  770. 59240 *T_MSTOP
  771. 59250  INTERVAL OFF : PLAY OFF : CLOSE #2
  772. 59260 RETURN
  773. 59500 *SELECT
  774. 59510 CLS:LOCATE 2,2:INPUT "ステージを選択して下さい（１－５０）",SSN
  775. 59520 IF SSN<1 OR SSN>50 THEN *SELECT
  776. 59530 STAGE=SSN:MENSF=1:GOTO *TITLE
  777. 59540 *BADENDING
  778. 59550 CLS:LOCATE 0,0:PRINT "世の中そんなに甘くない！"
  779. 59560 PRINT "もういちど最初から出直してきなさい！"
  780. 59570 PRINT "という訳で貴方は最初からやり直してネ"
  781. 59580 FOR I=0 TO 30000:NEXT I:GOTO *GAMEOVER
  782.