home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / LAVA-PIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.5 KB  |  164 lines
  1. 1 GOSUB5000
  2. 2 PRINT"[147]":POKE53281,0:POKE53280,0
  3. 3 FORI=1024TO1232:POKEI,220:NEXT:FORI=1233TO1284:READA:POKEI,A:NEXT
  4. 4 FORI=1285TO1457:POKEI,220:NEXT:FORI=1458TO1509:READA:POKEI,A:NEXT
  5. 5 FORI=1510TO1637:POKEI,220:NEXT:FORI=1638TO1689:READA:POKEI,A:NEXT
  6. 6 FORI=1690TO1871:POKEI,220:NEXT:FORI=1872TO2023:READA:POKEI,A:NEXT
  7. 7 FORI=55496 TO 55533:POKEI,8:NEXT
  8. 8 FORI=55536TO55575:POKEI,9:NEXT
  9. 9 FORI=55696TO55755:POKEI,8:NEXT
  10. 10 FORI=55756TO55789:POKEI,9:NEXT
  11. 11 FORI=55896TO55936:POKEI,8:NEXT
  12. 12 FORI=55936TO55976:POKEI,9:NEXT
  13. 13 FORI=56136TO56176:POKEI,8:NEXT
  14. 14 FORI=56176TO56215:POKEI,9:NEXT
  15. 15 FORI=56216TO56227:POKEI,2:NEXT
  16. 16 FORI=56228TO56243:POKEI,9:NEXT
  17. 17 FORI=56244TO56267:POKEI,2:NEXT
  18. 18 FORI=56268TO56283:POKEI,9:NEXT
  19. 19 FORI=56284TO56295:POKEI,2:NEXT
  20. 26 V=53248:S=54272:FORDE=1TO7STEP2:POKEV+DE,120:NEXT:POKEV,139:POKEV+4,208
  21. 27 FORDE=38144TO38147:POKEDE,0:NEXT
  22. 28 POKE38148,0:POKE38150,245:POKE38149,3:POKE38151,10
  23. 29 POKEV+21,10:POKEV+16,0:POKE53275,255
  24. 30 POKEV+40,1:POKEV+42,8
  25. 40 POKE38168,0:POKE38169,1:POKE38170,2:POKE38171,3:POKE38172,4:POKE38173,5
  26. 80 POKE38167,20
  27. 100 FORSC=STOS+23:POKESC,0:NEXTSC:POKES+24,15
  28. 110 POKES+5,0:POKES,0:POKES+1,17:POKES+6,101
  29. 120 POKES+12,0:POKES+7,0
  30. 130 POKES+19,0:POKES+14,0
  31. 140 POKE1944,208:POKE1945,210:POKE1946,212:POKE1947,214:POKE1948,216
  32. 150 SYS38238
  33. 200 WN=PEEK(38167)
  34. 210 SS=2*(19-(ABS(WN-20)))
  35. 250 FORDE=0TOSS:NEXT
  36. 280 IFWN=0ORWN=40THEN500
  37. 300 GOTO150
  38. 500 IFWN<>0THEN510
  39. 501 PRINT"[147][144]THE ALBINO VADRAK IS THE VICTOR!":POKE198,0:POKE53272,21
  40. 503 POKEV+33,15:POKEV+32,15:POKES+24,0:FORL=0TO999:NEXT:PRINT"PLAY AGAIN?"
  41. 505 GETA$:IFA$=""THEN505
  42. 507 IF A$="Y"THENRUN
  43. 508 POKEV+21,0:END
  44. 510 PRINT"[147]THE PIGMENTED VADRAK IS VICTORIOUS!":POKE198,0:POKE53272,21
  45. 513 POKEV+33,9:POKEV+32,9:POKES+24,0:FORL=0TO999:NEXT:PRINT"PLAY AGAIN?"
  46. 515 GETA$:IFA$=""THEN515
  47. 517 IF A$="Y"THENRUN
  48. 518 POKEV+21,0:END
  49. 5000 POKE53281,7:POKE53280,7:PRINT"[147]              [175][175][175][175][175][175][175][175][175][175][175][175]"
  50. 5001 PRINT"             [206][164][164][164][164][164][164][164][164][164][164][164][164][205]"
  51. 5002 PRINT"             [214]* LAVA PIT *[146][214]"
  52. 5003 PRINT"             [205][175][175][175][175][175][175][175][175][175][175][175][175][206]"
  53. 5005 PRINT"                   BY[157][157][157][157][157][157][157][157]SCOTT PETERSON"
  54. 5010 FORI=13824TO14592:READA:POKEI,A:NEXT:REM * READ CUSTOM CHAR & SPRITES
  55. 5014 POKE53272,29:POKE53281,2:POKE53280,2:PRINT"[147][158]"
  56. 5015 FORI=0TO20:POKE1629+I,234+I:POKE55901+I,7:NEXTI
  57. 5020 FORI=38238TO38889:READA:POKEI,A:NEXT:REM * READ MACHINE LANGUAGE PROGRAM
  58. 5030 RETURN
  59. 10000 DATA   239,010,000,000,000,000,000,000,239,215,005,001,000,000,000,000,223
  60. 10001 DATA   118,171,222,019,002,000,000,164,250,171,237,214,123,138,003,221,190
  61. 10002 DATA   247,210,170,217,205,141,135,115,220,066,154,097,036,074,161,090,149
  62. 10003 DATA   069,010,066,017,129,074,164,178,081,138,033,136,037,165,084,051,132
  63. 10004 DATA   072,131,048,128,085,170,146,101,016,136,000,000,042,213,032,128,000
  64. 10005 DATA   000,000,000,042,144,000,000,000,000,000,000,133,082,222,106,224,096
  65. 10006 DATA   160,128,181,194,069,133,066,129,129,129,171,214,050,042,022,028,020
  66. 10007 DATA   008,187,037,010,027,018,002,001,001,000,000,000,000,024,255,255,255
  67. 10008 DATA   000,000,000,000,060,255,255,255,000,000,000,000,126,255,255,255,000
  68. 10009 DATA   000,000,126,129,255,255,255,000,000,060,066,129,255,255,255,000,060
  69. 10010 DATA   066,129,129,255,255,255,036,066,129,129,066,255,255,255,009,128,036
  70. 10011 DATA   129,082,255,255,255,000,000,033,004,145,255,255,255,000,000,000,008
  71. 10012 DATA   084,255,255,255,000,000,000,000,000,255,255,255,255,255,255,255,255
  72. 10013 DATA   255,255,255,000,000,000,000,000,000,000,000,246,009,055,006,027,010
  73. 10014 DATA   009,025,187,164,216,040,224,016,144,136,059,149,135,233,198,099,197
  74. 10015 DATA   166,138,052,216,081,162,067,197,199,146,101,219,024,128,227,102,231
  75. 10016 DATA   170,117,206,193,048,239,086,165,234,119,163,195,002,041,237,082,016
  76. 10017 DATA   205,119,224,160,099,069,198,074,165,204,050,007,194,099,166,002,003
  77. 10018 DATA   002,122,166,180,072,048,000,000,000,000,000,000,000,255,056,124,186
  78. 10019 DATA   214,108,124,068,056,016,016,000,214,000,024,004,056,126,049,051,062
  79. 10020 DATA   112,096,224,000,252,038,034,060,044,038,098,227,063,126,068,112,248
  80. 10021 DATA   195,223,254,126,049,051,062,112,096,224,000,008,024,052,036,126,102
  81. 10022 DATA   198,192,252,038,034,060,044,038,098,227,063,126,068,112,248,195,223
  82. 10023 DATA   254,000,000,000,000,000,000,000,000,004,008,252,147,048,048,055,030
  83. 10024 DATA   062,127,119,231,231,238,254,124,000,000,000,000,000,000,000,000,031
  84. 10025 DATA   102,006,012,012,216,216,096,062,127,119,231,231,238,254,124,103,163
  85. 10026 DATA   035,099,099,231,239,123,126,254,194,096,030,067,127,126,004,008,252
  86. 10027 DATA   147,048,048,055,030,000,000,000,000,000,048,056,024,000,000,000,000
  87. 10028 DATA   000,048,056,024,000,000,000,000,000,048,056,024,000,000,000,000,000
  88. 10029 DATA   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  89. 10030 DATA   000,000,248,000,000,070,000,000,033,000,000,016,128,000,127,224,000
  90. 10031 DATA   017,224,000,054,064,000,121,192,000,018,096,000,020,144,004,024,184
  91. 10032 DATA   012,031,023,252,002,248,230,006,097,255,028,002,024,228,012,004,199
  92. 10033 DATA   240,000,024,000,000,032,000,000,096,000,000,000,000,000,000,000,000
  93. 10034 DATA   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  94. 10035 DATA   000,000,000,000,000,000,000,012,000,120,124,001,128,228,006,062,126
  95. 10036 DATA   004,125,159,014,067,064,023,063,240,036,012,048,068,014,080,228,002
  96. 10037 DATA   144,014,003,016,000,003,136,000,000,248,000,000,000,031,000,000,098
  97. 10038 DATA   000,000,132,000,001,008,000,007,254,000,007,136,000,002,108,000,003
  98. 10039 DATA   158,000,006,072,032,009,040,048,029,024,063,232,248,103,031,064,255
  99. 10040 DATA   134,056,024,064,039,032,048,035,000,015,208,000,000,008,000,000,012
  100. 10041 DATA   000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  101. 10042 DATA   000,000,000,000,000,000,000,000,000,000,000,000,000,000,048,000,000
  102. 10043 DATA   062,030,000,039,001,128,126,124,096,249,190,048,002,194,124,015,252
  103. 10044 DATA   230,012,048,034,010,112,051,009,064,024,008,192,024,017,192,000,031
  104. 10045 DATA   000,000,157,000
  105. 20000 DATA   173,014,149,208,003,032,153,151,173,015,149,208,003,032,195,151,173
  106. 20001 DATA   031,208,141,012,149,162,000,142,010,149,142,021,149,142,022,149,169
  107. 20002 DATA   002,141,008,149,169,001,141,011,149,169,003,141,018,149,032,179,149
  108. 20003 DATA   162,001,142,010,149,169,008,141,008,149,169,000,141,011,149,169,012
  109. 20004 DATA   141,018,149,169,004,141,021,149,169,002,141,022,149,032,179,149,096
  110. 20005 DATA   172,024,149,200,192,005,144,002,160,000,140,024,149,190,025,149,189
  111. 20006 DATA   152,007,201,218,208,027,165,143,010,010,056,101,143,133,143,201,040
  112. 20007 DATA   176,245,201,012,144,004,201,028,144,237,170,153,025,149,169,207,168
  113. 20008 DATA   200,152,157,152,007,174,021,149,189,001,208,174,010,149,201,049,176
  114. 20009 DATA   008,169,003,157,000,149,032,133,151,201,217,144,003,032,037,151,189
  115. 20010 DATA   000,220,041,012,201,008,208,003,032,009,151,201,004,208,003,032,023
  116. 20011 DATA   151,189,000,220,041,016,208,006,032,196,150,076,042,150,032,241,150
  117. 20012 DATA   173,030,208,041,010,201,010,208,003,032,037,151,173,012,149,045,008
  118. 20013 DATA   149,205,008,149,208,008,169,252,157,000,149,032,133,151,254,000,149
  119. 20014 DATA   189,000,149,174,021,149,125,001,208,157,001,208,157,003,208,174,010
  120. 20015 DATA   149,189,002,149,201,128,144,012,201,240,176,029,169,240,157,002,149
  121. 20016 DATA   076,134,150,201,016,144,005,169,016,157,002,149,024,032,171,150,144
  122. 20017 DATA   015,032,184,150,076,143,150,056,032,171,150,176,003,032,184,150,234
  123. 20018 DATA   234,234,174,021,149,157,002,208,174,010,149,096,157,192,219,232,224
  124. 20019 DATA   028,208,248,169,002,076,217,151,000,000,174,021,149,125,000,208,157
  125. 20020 DATA   000,208,174,010,149,096,168,173,018,149,077,016,208,141,016,208,152
  126. 20021 DATA   096,189,016,149,240,017,189,000,149,056,233,006,157,000,149,169,000
  127. 20022 DATA   157,016,149,169,129,141,004,212,169,128,141,004,212,169,224,125,004
  128. 20023 DATA   149,174,022,149,157,249,007,174,010,149,096,000,189,016,149,208,003
  129. 20024 DATA   222,016,149,169,223,125,004,149,174,022,149,157,249,007,174,010,149
  130. 20025 DATA   096,000,222,002,149,169,002,157,004,149,169,010,157,006,149,096,254
  131. 20026 DATA   002,149,169,000,157,004,149,169,245,157,006,149,096,032,175,151,173
  132. 20027 DATA   001,208,205,005,208,144,034,238,023,149,172,023,149,032,116,151,169
  133. 20028 DATA   252,045,016,208,141,016,208,169,000,141,001,208,141,000,149,141,002
  134. 20029 DATA   149,169,139,141,000,208,096,206,023,149,172,023,149,032,116,151,169
  135. 20030 DATA   243,045,016,208,141,016,208,169,000,141,005,208,141,001,149,141,003
  136. 20031 DATA   149,169,208,141,004,208,096,169,002,162,000,157,192,219,232,224,012
  137. 20032 DATA   208,248,169,009,076,156,150,169,048,141,013,212,169,000,141,014,149
  138. 20033 DATA   169,023,141,019,149,169,033,141,011,212,238,019,149,173,019,149,141
  139. 20034 DATA   008,212,201,028,208,008,169,032,141,011,212,206,014,149,096,169,250
  140. 20035 DATA   141,020,212,169,000,141,015,149,169,009,141,020,149,169,129,141,018
  141. 20036 DATA   212,206,020,149,173,020,149,141,015,212,201,004,208,008,169,128,141
  142. 20037 DATA   018,212,206,015,149,096,157,192,219,232,224,041,208,248,174,010,149
  143. 20038 DATA   169,001,153,192,219,096
  144. 30012 DATA   231,231,231,231,231,231,231,231,231,231,231,231,220
  145. 30013 DATA   220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220
  146. 30014 DATA   220,220,220,220,220,220,220,220,220,220,192,193,194,195,226,229,198
  147. 30025 DATA   223,200,201,202,203,231,231,231,231,231,231,231,231
  148. 30026 DATA   231,231,231,231,231,220,220,220,220,220,220,220,220,220,220,220,220
  149. 30027 DATA   220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,192,193
  150. 30028 DATA   194,195,228,227,198,223,200,201,202,203
  151. 30036 DATA   231,231,231,231,231,231,231,231,231,231,231,231,220,220
  152. 30037 DATA   220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220,220
  153. 30038 DATA   220,220,220,220,220,220,220,220,220,192,193,194,195,196,224,198,199
  154. 30049 DATA   200,201,202,203,231,231
  155. 30050 DATA   231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231
  156. 30051 DATA   231,231,231,231,231,220,220,220,220,220,220,220,220,220,220,220,220
  157. 30052 DATA   220,220,220,220,192,193,194,195,196,196,196,196,197,197,197,197,198
  158. 30053 DATA   198,198,198,199,199,199,199,200,201,202,203,220,220,220,220,220,220
  159. 30054 DATA   220,220,218,218,218,218,218,218,218,218,218,218,218,218,224,196,197
  160. 30055 DATA   198,199,228,225,227,196,197,226,229,198,205,199,198,218,218,218,218
  161. 30056 DATA   218,218,218,218,218,218,218,218,219,219,219,219,219,219,219,219,219
  162. 30057 DATA   219,219,219,205,222,223,197,204,221,205,222,228,227,222,205,204,220
  163. 30058 DATA   207,223,219,219,219,219,219,219,219,219,219,219,219,219
  164.