home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / OCEAN-PACIFIC-85 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.6 KB  |  197 lines
  1. 5 REM OCEAN PACIFIC (C) 1985
  2. 6 GOSUB800
  3. 10 POKE54296,15:POKE54277,191:POKE54278,60:POKE54273,255:POKE54272,255
  4. 20 POKE53280,0
  5. 30 PRINT"[147]";SPC(16);"[213][201]"
  6. 40 PRINTSPC(16);"[202][203]P"
  7. 50 PRINT"OCEAN PACIFIC, BY RENE BOUTIN"
  8. 60 PRINTSPC(10);"(C) DEC.11, 1985"
  9. 70 PRINTSPC(11);"UPLOADED IN A"
  10. 80 PRINTSPC(10);"NOSTALGIC MOOD ON"
  11. 90 PRINTSPC(10);"OCT. 29, 1988!!"
  12. 95 PRINTSPC(10);"***************"
  13. 100 REM SPRITES  #1
  14. 101 DATA000,000,000,000,000,000,000,000
  15. 102 DATA000,000,000,000,000,000,000,000
  16. 103 DATA000,000,000,000,000,063,255,252
  17. 104 DATA254,175,171,170,234,234,190,174
  18. 105 DATA174,170,170,170,170,170,170,170
  19. 106 DATA000,170,170,000,170,000,170,170
  20. 107 DATA000,170,170,000,000,000,000,000
  21. 108 DATA000,000,000,000,000,000,000,255
  22. 110 REM #2
  23. 111 DATA000,000,000,000,000,000,000,000
  24. 112 DATA000,000,000,000,000,000,000,003
  25. 113 DATA048,048,031,245,252,253,111,155
  26. 114 DATA170,234,234,190,190,174,171,170
  27. 115 DATA234,170,170,170,170,170,170,170
  28. 116 DATA170,000,170,000,170,170,000,000
  29. 117 DATA170,000,170,000,000,000,000,000
  30. 118 DATA000,000,000,000,000,000,000,255
  31. 120 REM #3
  32. 121 DATA000,000,000,000,000,000,000,000
  33. 122 DATA000,000,000,000,003,116,112,023
  34. 123 DATA213,245,253,111,155,106,229,238
  35. 124 DATA189,190,173,235,170,234,186,190
  36. 125 DATA170,239,170,190,170,170,170,170
  37. 126 DATA170,170,000,170,000,000,170,170
  38. 127 DATA000,170,000,000,000,000,000,000
  39. 128 DATA000,000,000,000,000,000,000,255
  40. 130 REM #4
  41. 131 DATA000,000,000,000,000,000,000,000
  42. 132 DATA000,000,000,000,003,117,080,021
  43. 133 DATA213,117,093,095,089,102,229,230
  44. 134 DATA189,190,173,215,217,214,187,190
  45. 135 DATA170,239,170,190,170,190,171,170
  46. 136 DATA170,234,170,000,170,170,000,170
  47. 137 DATA000,170,170,000,000,000,000,000
  48. 138 DATA000,000,000,000,000,000,000,255
  49. 140 REM #5
  50. 141 DATA000,000,000,000,000,000,000,000
  51. 142 DATA000,000,000,000,003,117,080,021
  52. 143 DATA213,117,093,085,085,117,117,247
  53. 144 DATA093,223,093,215,085,213,253,117
  54. 145 DATA221,181,215,127,175,255,250,234
  55. 146 DATA170,235,175,174,170,170,170,170
  56. 147 DATA000,170,170,000,000,000,000,000
  57. 148 DATA000,000,000,000,000,000,000,255
  58. 150 REM #6
  59. 151 DATA000,000,000,000,000,000,000,000
  60. 152 DATA000,000,000,000,000,000,000,003
  61. 153 DATA085,112,245,223,085,093,117,093
  62. 154 DATA213,085,085,085,085,213,087,213
  63. 155 DATA085,085,085,085,149,093,094,229
  64. 156 DATA250,235,175,174,190,186,234,170
  65. 157 DATA000,170,000,000,000,000,000,000
  66. 158 DATA000,000,000,000,000,000,000,255
  67. 160 REM #7
  68. 161 DATA000,000,000,000,000,000,000,000
  69. 162 DATA000,000,000,000,000,000,000,000
  70. 163 DATA000,000,013,255,112,255,117,253
  71. 164 DATA247,221,085,085,085,221,221,245
  72. 165 DATA085,085,085,085,149,093,222,229
  73. 166 DATA085,103,175,110,190,182,234,106
  74. 167 DATA000,170,000,000,000,000,000,000
  75. 168 DATA000,000,000,000,000,000,000,255
  76. 170 REM #8
  77. 171 DATA000,000,000,000,000,000,000,000
  78. 172 DATA000,000,000,000,000,000,000,000
  79. 173 DATA000,000,000,000,000,235,250,191
  80. 174 DATA191,223,247,246,085,221,221,245
  81. 175 DATA085,085,085,085,085,093,213,101
  82. 176 DATA085,103,173,085,094,119,091,122
  83. 177 DATA175,255,237,000,000,000,000,000
  84. 178 DATA000,000,000,000,000,000,000,255
  85. 180 REM #9
  86. 181 DATA000,000,000,000,000,000,000,000
  87. 182 DATA000,000,000,000,000,000,000,000
  88. 183 DATA000,000,000,000,000,170,170,170
  89. 184 DATA187,234,191,238,255,250,253,235
  90. 185 DATA191,095,223,095,213,117,221,101
  91. 186 DATA213,087,085,085,086,087,091,085
  92. 187 DATA165,125,221,063,252,063,000,000
  93. 188 DATA000,000,000,000,000,000,000,255
  94. 190 REM #10
  95. 191 DATA000,000,000,000,000,000,000,000
  96. 192 DATA000,000,000,000,000,000,000,000
  97. 193 DATA000,000,000,000,000,170,170,170
  98. 194 DATA186,170,171,238,234,250,171,235
  99. 195 DATA191,255,255,255,223,245,221,101
  100. 196 DATA223,247,127,085,086,215,119,085
  101. 197 DATA085,125,221,189,085,127,002,251
  102. 198 DATA128,000,000,000,000,000,000,255
  103. 200 REM #11
  104. 201 DATA000,000,000,000,000,000,000,000
  105. 202 DATA000,000,000,000,000,000,000,000
  106. 203 DATA000,000,000,000,000,170,170,170
  107. 204 DATA170,170,170,238,170,250,170,171
  108. 205 DATA175,250,250,186,171,175,255,255
  109. 206 DATA223,183,122,255,214,215,247,085
  110. 207 DATA085,125,101,221,213,127,063,087
  111. 208 DATA221,000,000,000,000,000,000,255
  112. 210 REM #12
  113. 211 DATA000,000,000,000,000,000,000,000
  114. 212 DATA000,000,000,000,000,000,000,000
  115. 213 DATA000,000,000,000,000,170,170,170
  116. 214 DATA170,170,170,170,170,170,171,171
  117. 215 DATA175,250,250,186,171,175,255,255
  118. 216 DATA218,063,122,255,214,215,246,252
  119. 217 DATA109,105,101,221,215,127,003,255
  120. 218 DATA192,000,000,000,000,000,000,255
  121. 220 REM #13
  122. 221 DATA000,000,000,000,000,000,000,000
  123. 222 DATA000,000,000,000,000,000,000,000
  124. 223 DATA000,000,000,000,000,170,170,170
  125. 224 DATA170,170,170,170,170,170,171,171
  126. 225 DATA170,250,186,170,171,175,255,250
  127. 226 DATA218,255,127,255,214,255,255,255
  128. 227 DATA109,249,118,251,175,250,000,000
  129. 228 DATA000,000,000,000,000,000,000,255
  130. 230 REM #14
  131. 231 DATA000,000,000,000,000,000,000,000
  132. 232 DATA000,000,000,000,000,000,000,000
  133. 233 DATA000,000,000,000,000,170,170,170
  134. 234 DATA170,170,170,170,170,170,170,170
  135. 235 DATA170,170,186,170,171,171,239,170
  136. 236 DATA170,170,171,000,250,250,190,000
  137. 237 DATA000,000,000,000,000,000,000,000
  138. 238 DATA000,000,000,000,000,000,000,255
  139. 240 REM #15
  140. 241 DATA000,000,000,000,000,000,000,000
  141. 242 DATA000,000,000,000,000,000,000,000
  142. 243 DATA000,000,000,000,000,170,170,170
  143. 244 DATA170,170,170,170,170,170,170,170
  144. 245 DATA170,170,170,170,170,170,186,187
  145. 246 DATA190,000,170,170,175,175,170,234
  146. 247 DATA000,000,000,000,000,000,000,000
  147. 248 DATA000,000,000,000,000,000,000,255
  148. 300 FORX=12288TO12288+64*6-1:POKEX,0:NEXT
  149. 305 FORX=12288+64*21TO12288+64*28:POKEX,0:NEXT
  150. 310 FORX=12288+64*6TO12288+64*21-1:READS:POKEX,S:NEXT:GOSUB500
  151. 315 FORX=39TO45:POKE53248+X,6:NEXT:POKE53248+37,1:POKE53248+38,14
  152. 320 POKE53248+21,255:POKE53277,127:POKE53276,127:POKE53248+16,32+64
  153. 330 POKE53248,71:POKE53249,201:POKE53250,24:POKE53251,201:POKE53252,119
  154. 340 POKE53253,201:POKE53254,166:POKE53255,201:POKE53256,213:POKE53257,201
  155. 345 POKE53262,170:POKE53263,143:POKE2047,220:POKE53248+46,7:GOSUB600
  156. 350 POKE53258,5:POKE53259,201:POKE53260,52:POKE53261,201:
  157. 355 INPUT"[147]OCEAN #1, OR #2";N:IFN<1ORN>2THEN355
  158. 356 OC=N-1:PRINT"[147]HOLD SPACE BAR FOR XXXXX SECONDS TO QUIT":GOSUB700
  159. 360 FORX=0TO6:POKE2040+X,192:NEXT
  160. 370 GOSUB390:FORX=192+OC*5TO212+OC*5:FORY=1TO7:IFOC=0THENN=Y
  161. 375 POKE2047-Y,X+N:NEXT:IFX=202THENPOKE54276,128
  162. 380 :FORY=0TO65:NEXT:NEXT:FORZ=0TO800:NEXT:GOTO370
  163. 390 POKE54276,129:IFPEEK(203)<>60THENRETURN
  164. 400 GOSUB900
  165. 401 REM MORE DATA
  166. 402 DATA000,255,000,003,255,192,015,255
  167. 403 DATA240,031,255,248,063,255,252,063
  168. 404 DATA255,252,127,255,254,127,255,254
  169. 405 DATA255,255,255,255,255,255,255,255
  170. 406 DATA255,000,000,000,227,115,031,004
  171. 407 DATA004,000,120,241,228,000,000,002
  172. 408 DATA039,143,152,000,000,004,076,241
  173. 409 DATA192,000,004,008,004,224,192,255
  174. 410 GOSUB800:GOTO355
  175. 500 FORX=12288+64*28TO12288+64*29-1:READS:POKEX,S:NEXT:RETURN
  176. 600 POKE56,159:POKE52,159
  177. 610 FORJ=40800TO40888:READA:POKEJ,A:NEXT
  178. 611 SYS40800:RETURN
  179. 612 DATA120,169,127,141,013,220,169,001
  180. 613 DATA141,026,208,169,013,042,042,042
  181. 614 DATA105,050,141,095,159,141,018,208
  182. 615 DATA169,027,141,017,208,169,137,141
  183. 616 DATA020,003,169,159,141,021,003,088
  184. 617 DATA096,173,018,208,205,095,159,208
  185. 618 DATA021,169,000,141,018,208,169,006
  186. 619 DATA141,033,208,169,001,141,025,208
  187. 620 DATA104,168,104,170,104,064,173,095
  188. 621 DATA159,141,018,208,169,014,141,033
  189. 622 DATA208,169,001,141,025,208,076,049
  190. 623 DATA234
  191. 700 FORX=2023TO1864STEP-1:POKEX,160:POKE54272+X,12:NEXT:RETURN
  192. 800 FORX=54272TO54296:POKEX,0:NEXT
  193. 810 RETURN
  194. 900 PRINT"[147]LOOK FOR BETTER STUFF, UNDER THE NAME   'ENTITY' OR 'RAY LABOOT'!"
  195. 910 PRINT"[153]......BYE!!![154]"
  196. 920 END
  197.