home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / MUSICGAME.SFX / g0000 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  5.6 KB  |  185 lines
  1. 5 IFA=.THENGOSUB3000:GOTO10
  2. 6 IFA=.THENA=1:LOADSC$,8,1
  3. 7 PRINT"[156]"TAB(5)" [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE "
  4. 8 GOTO437
  5. 10 POKE53280,.:POKE53281,.
  6. 20 PRINTCHR$(14)CHR$(8)"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  7. 40 X=1:GOSUB2600
  8. 50 ONXGOSUB100,200,300
  9. 55 GOSUB2300:GOTO20
  10. 100 NK=25:PRINT"[147]":RM=1:LV=1:GOSUB400:MO=0
  11. 105 ON(NK<=0)+2GOTO2900:X=1:GOSUB2500
  12. 110 ONXGOTO700,800,900,1000,150,600,300
  13. 115 GOSUB2300:GOTO105
  14. 150 IFDI(1)+DI(2)+DI(3)+DI(4)=0THENGOSUB2300:GOTO105
  15. 155 PRINT"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  16. 160 X=LV:GOSUB2700
  17. 165 LV=X:IFLV=0ORLV>3THENGOSUB2300:GOTO150
  18. 167 IFRA=RMTHEN175
  19. 170 RM=INT(RND(1)*45)+1
  20. 173 RA=RM
  21. 175 PRINT"[147]":GOSUB400:GOTO105
  22. 200 PRINT"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  23. 205 PRINT"[153][212]HE LAST COPY OF [202]OHNNY [194]. [199]OODE BY THE"
  24. 207 PRINT"FAMOUS [196]R. [202] IS SOMEWHERE IN  THE LARGE"
  25. 210 PRINT"[211][201][196] [205][213][211][201][195]  WAREHOUSE.   [217]OUR GOAL IS TO"
  26. 212 PRINT"FIND IT FOR THE  SAKE OF [211][201][196] [205][213][211][201][195] FANS"
  27. 215 PRINT"ON [209]-[204]INK.  [212]HE REPUTATION OF [196]R. [202] AND"
  28. 217 PRINT"THE FUTURE OF [209]-[204]INK'S [205][213][211][201][195] [210][207][207][205] IS IN"
  29. 220 PRINT"YOUR HANDS.  [215]HEN YOU FIND THE LOST [211][201][196]"
  30. 222 PRINT"OF [202]OHNNY [194]. [199]OODE,  YOU WIN!  [194]UT YOUR"
  31. 225 PRINT"MISSION ISN'T OVER UNTIL YOU POST A BIG"
  32. 227 PRINT"MESSAGE ON  [209]-[204]INK ON HOW MANY TURNS IT"
  33. 230 PRINT"TOOK YOU TO FIND IT AND IN WHAT ROOM!"
  34. 235 PRINT"[212]HE [211][201][196] OF [202]OHNNY [194]. [199]OODE IS IN ONE OF"
  35. 237 PRINT"THE MANY [211][201][196] [202][213][203][197][211] IN THE WAREHOUSE. [201]T"
  36. 240 PRINT"TAKES A [206][201][195][203][197][204] TO PLAY THE [211][201][196] IN A [211][201][196]"
  37. 242 PRINT"[202][213][203][197].  [217]OU START OUT WITH 25 NICKELS TO"
  38. 245 PRINT"USE IN YOUR QUEST.  [194]E CAREFUL! [217]OU CAN"
  39. 247 PRINT"WIN OR LOSE NICKELS ALONG THE WAY!"
  40. 250 PRINT"[156]             [208]RESS [193]NY [203]EY [146]":GOSUB2000
  41. 253 PRINT"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  42. 255 PRINT"[153][213]SE THE CURSOR KEYS TO  HIGHLIGHT  YOUR"
  43. 257 PRINT"CHOICE.  [208]ICK  '[204]' TO CHANGE LEVELS AND"
  44. 260 PRINT"PICK '[208]' TO PLAY A SONG WHENEVER A [202][213][203][197]"
  45. 263 PRINT"ICON APPEARS.  [212]HE $$$ ICON GIVES YOU 3"
  46. 265 PRINT"NICKELS AND THE  [218][193][208] ICON  TAKES AWAY 3"
  47. 267 PRINT"NICKELS.  [206]OW, GO PLAY!  :[196]"
  48. 298 PRINT"[156]             [208]RESS [193]NY [203]EY [146]":GOSUB2000
  49. 299 RETURN
  50. 300 IFSC$="P0000"THENSYS64738
  51. 305 PRINT"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  52. 310 PRINT"[153][193]RE YOU SURE YOU WANT TO QUIT? (Y/N)":GOSUB2000
  53. 320 IFA$="Y"THENSYS64738
  54. 330 IFA$<>"N"THENGOSUB2300:GOSUB2000:GOTO320
  55. 340 RETURN
  56. 400 CLOSE2:OPEN2,8,2,"LEVEL"+STR$(LV)+",S,R":FORT=1TORM:INPUT#2,DE$:INPUT#2,DI(1)
  57. 405 INPUT#2,DI(2):INPUT#2,DI(3):INPUT#2,DI(4):INPUT#2,MU$:INPUT#2,JK
  58. 407 NEXT:MO=MO+1
  59. 410 DI$=""
  60. 415 IFDI(1)<>0THENDI$="1":GOTO420
  61. 417 DI$="0"
  62. 420 IFDI(3)<>0THENDI$=DI$+"2":GOTO425
  63. 422 DI$=DI$+"0"
  64. 425 IFDI(2)<>0THENDI$=DI$+"3":GOTO430
  65. 427 DI$=DI$+"0"
  66. 430 IFDI(4)<>0THENDI$=DI$+"4":GOTO435
  67. 432 DI$=DI$+"0"
  68. 435 CLOSE2:SC$="P"+DI$:A=.:GOTO6
  69. 437 IFMU$<>"NONE"THENGOSUB1100
  70. 440 IFJK=0THEN450
  71. 442 IFJK=1THENNK=NK+3:GOSUB1200:GOTO450
  72. 445 IFJK=2THENNK=NK-3:GOSUB1300:GOTO450
  73. 450 GOSUB2210:PRINT"[153]";
  74. 451 X=20-(LEN(DE$)/2):PRINTTAB(X)DE$
  75. 454 RO=RM:IFLV=2THENRO=RM+50
  76. 455 IFLV=3THENRO=RM+100
  77. 460 PRINT"  [210]OOM    :[159]";RO:PRINT"  [204]EVEL   :[159]";LV
  78. 465 PRINT"  [205]OVES   :[159]";MO
  79. 470 PRINT"  [206]ICKELS :[159]";NK
  80. 490 GOTO105
  81. 500 GOSUB300:GOSUB400:GOTO105
  82. 600 IFMU$="NONE"THENGOSUB2300:GOTO105
  83. 610 GOSUB2210:NK=NK-1:GOTO3010
  84. 700 IFDI(1)=0THENGOSUB2300:GOTO105
  85. 705 RM=DI(1):GOSUB400:GOTO105
  86. 800 IFDI(2)=0THENGOSUB2300:GOTO105
  87. 805 RM=DI(2):GOSUB400:GOTO105
  88. 900 IFDI(3)=0THENGOSUB2300:GOTO105
  89. 905 RM=DI(3):GOSUB400:GOTO105
  90. 1000 IFDI(4)=0THENGOSUB2300:GOTO105
  91. 1005 RM=DI(4):GOSUB400:GOTO105
  92. 1100 PRINT"";
  93. 1110 PRINTTAB(5)"[158][172][192][192][192][187]"
  94. 1120 PRINTTAB(5)"[158][221][159][164][187]=[158][221]"
  95. 1130 PRINTTAB(5)"[158][171][192][192][192][179]"
  96. 1140 PRINTTAB(5)"[158][221][166][166][166][158][221]"
  97. 1150 PRINTTAB(5)"[173][192][192][192][189]"
  98. 1160 RETURN
  99. 1200 PRINT"";
  100. 1210 PRINTTAB(5)"[158][172][192][192][192][187]"
  101. 1220 PRINTTAB(5)"[221]$$$[158][221]"
  102. 1230 PRINTTAB(5)"[221]$$$[158][221]"
  103. 1240 PRINTTAB(5)"[221]$$$[158][221]"
  104. 1250 PRINTTAB(5)"[188][192][192][192][190]"
  105. 1260 RETURN
  106. 1300 PRINT"";
  107. 1310 PRINTTAB(5)"[158][176][192][192][192][174]"
  108. 1320 PRINTTAB(5)"[221][218][193][208][158][221]"
  109. 1330 PRINTTAB(5)"[221][218][193][208][158][221]"
  110. 1340 PRINTTAB(5)"[221][218][193][208][158][221]"
  111. 1350 PRINTTAB(5)"[173][192][192][192][189]":GOSUB2300
  112. 1360 RETURN
  113. 2000 GETA$:IFA$=""THEN2000
  114. 2005 RETURN
  115. 2200 FORX=1TO2000:NEXT:RETURN
  116. 2210 PRINT"                                       ":RETURN
  117. 2300 FORX=1TO5:POKE54296,15:POKE54296,.:NEXT:RETURN
  118. 2500 GOTO2530
  119. 2502 PRINT"[156]";
  120. 2503 PRINTTAB(9);R$(1)"[176][192][174]"R$(2)"[176][192][174]"R$(3)"[176][192][174]"R$(4)"[176][192][174]"R$(5)"[176][192][174]"R$(6)"[176][192][174]"R$(7)"[176][192][174]"
  121. 2505 PRINTTAB(9);R$(1)"[221][206][221]"R$(2)"[221][211][221]"R$(3)"[221][197][221]"R$(4)"[221][215][221]";
  122. 2507 PRINTR$(5)"[221][204][221]"R$(6)"[221][208][221]"R$(7)"[221][209][221]"
  123. 2510 PRINTTAB(9);R$(1)"[173][192][189]"R$(2)"[173][192][189]"R$(3)"[173][192][189]"R$(4)"[173][192][189]"R$(5)"[173][192][189]"R$(6)"[173][192][189]"R$(7)"[173][192][189]"
  124. 2515 GETA$:IFA$=""THEN2515
  125. 2520 IFA$=""ORA$=""THENX=X+1:IFX>7THENX=1
  126. 2523 IFA$="[145]"ORA$="[157]"THENX=X-1:IFX<1THENX=7
  127. 2525 IFA$=CHR$(13)THENRETURN
  128. 2530 FORJ=1TO7:R$(X)="[159]":IFJ<>XTHENR$(J)="[156][146]"
  129. 2533 NEXT
  130. 2535 GOTO2502
  131. 2600 GOTO2630
  132. 2602 PRINT"";
  133. 2603 PRINTTAB(11);R$(1)"[176][192][192][192][192][174]"R$(2)"[176][192][192][192][192][174]"R$(3)"[176][192][192][192][192][174]"
  134. 2605 PRINTTAB(11);R$(1)"[221][208][204][193][217][221]"R$(2)"[221][196][207][195][211][221]"R$(3)"[221][209][213][201][212][221]"
  135. 2610 PRINTTAB(11);R$(1)"[173][192][192][192][192][189]"R$(2)"[173][192][192][192][192][189]"R$(3)"[173][192][192][192][192][189]"
  136. 2615 GETA$:IFA$=""THEN2615
  137. 2620 IFA$=""ORA$=""THENX=X+1:IFX>3THENX=1
  138. 2623 IFA$="[145]"ORA$="[157]"THENX=X-1:IFX<1THENX=3
  139. 2625 IFA$=CHR$(13)THENRETURN
  140. 2630 FORJ=1TO3:R$(X)="[159]":IFJ<>XTHENR$(J)="[156][146]"
  141. 2633 NEXT
  142. 2635 GOTO2602
  143. 2700 GOTO2730
  144. 2702 PRINT"[153]    [212]HE CURRENT LEVEL IS HIGHLIGHTED"
  145. 2703 PRINTTAB(6);R$(1)"[176][192][192][192][192][192][192][192][174]"R$(2)"[176][192][192][192][192][192][192][192][174]"R$(3)"[176][192][192][192][192][192][192][192][174]"
  146. 2705 PRINTTAB(6);R$(1)"[221][204][197][214][197][204] 1[221]"R$(2)"[221][204][197][214][197][204] 2[221]"R$(3)"[221][204][197][214][197][204] 3[221]"
  147. 2710 PRINTTAB(6);R$(1)"[173][192][192][192][192][192][192][192][189]"R$(2)"[173][192][192][192][192][192][192][192][189]"R$(3)"[173][192][192][192][192][192][192][192][189]"
  148. 2715 GETA$:IFA$=""THEN2715
  149. 2720 IFA$=""ORA$=""THENX=X+1:IFX>3THENX=1
  150. 2723 IFA$="[145]"ORA$="[157]"THENX=X-1:IFX<1THENX=3
  151. 2725 IFA$=CHR$(13)THENRETURN
  152. 2730 FORJ=1TO3:R$(X)="[159]":IFJ<>XTHENR$(J)="[156][146]"
  153. 2733 NEXT
  154. 2735 GOTO2702
  155. 2900 PRINT"[147][158]      [201]N [211]EARCH [207]F [202]OHNNY [194]. [199]OODE"
  156. 2905 PRINT"[153]  [217]ER [194][213][211][212][197][196]!  [215]ANNA TRY AGAIN? (Y/N)":GOSUB2000
  157. 2910 IFA$="N"THENSYS64738
  158. 2915 IFA$<>"Y"THENGOSUB2300:GOSUB2000:GOTO2910
  159. 2920 GOTO100
  160. 3000 DN=8:SA=780:SX=781:SY=782:SP=783
  161. 3005 GOSUB 57000:RETURN:REM LOAD SIDPLAYER ML
  162. 3010 GOSUB2210:F$=MU$:LA=PEEK(49)+256*PEEK(50)+1000:GOSUB 57500:REM LOAD SONG
  163. 3015 SYS HK:REM HOOK (INSTALL)
  164. 3020 POKE SX,LO:POKE SY,HI:SYS PL:REM SET FOR PLAYING
  165. 3025 POKE SS,7:REM START PLAYING MUSIC
  166. 3026 IFMU$<>"M0000"THENPRINT"        [201][212]'[211] [206][207][212] [202][207][200][206][206][217] [194]. [199][207][207][196][197]"
  167. 3027 IFMU$="M0000"THENPRINT"           [210][207][195][203]'N [210][207][204][204] [204][201][214][197][211]!"
  168. 3033 GETA$:IFA$<>""THEN3040
  169. 3035 IF PEEK(SS)AND7 GOTO3033:REM STILL PLAYING
  170. 3040 SYS HU:REM HUSH
  171. 3045 SYS DP:REM DROP (REMOVE)
  172. 3050 POKE54296,.:GOSUB2210:GOTO105
  173. 57000 POKE SA,1:POKE SX,DN:POKE SY,1:SYS 65466:F$="ML00":GOSUB 59000
  174. 57010 POKE SA,0:SYS 65493:IF PEEK(SP)AND1 GOTO 59100
  175. 57020 SS=49152:FL=49153:HK=49615:PL=49664:HU=49897:DP=49935:RETURN
  176. 57500 POKE SA,1:POKE SX,DN:POKE SY,0:SYS 65466:GOSUB 59000
  177. 57510 HI=INT(LA/256):LO=LA-256*HI
  178. 57520 POKE SA,0:POKE SX,LO:POKE SY,HI:SYS 65493:IF PEEK(SP)AND1 GOTO 59100
  179. 57530 LA=PEEK(SX)+256*PEEK(SY):RETURN
  180. 59000 FOR K=1 TO LEN(F$):POKE 584+K,ASC(MID$(F$,K)):NEXT
  181. 59010 POKE SA,LEN(F$):POKE SX,73:POKE SY,2:SYS 65469:RETURN
  182. 59100 P=PEEK(SA):PRINT " ERROR: ";:IF P=4 THEN PRINT "FILE NOT FOUND":END
  183. 59110 IF P=5 THEN PRINT "DEVICE NOT PRESENT":END
  184. 59120 PRINT ST:END
  185.