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