start tok64 d64-bMN3Mb
0 REM***rock fall m/c and graphics***
100 REMOFF
101 POKE808,251:POKE774,226:POKE775,252
102 PRINT"{clear}{white}":POKE53281,0:POKE53280,0
103 PRINT"{down*2}{reverse on}{space*39}"
104 PRINT"{cyan}{reverse on}{space*16}{reverse off}rock fall{reverse on}{space*14}{white}"
105 PRINT"{reverse on}{space*39}"
106 PRINT"{down*2}{green}{space*2}Z{red}{space*2}please wait while graphics are set"
107 PRINT"{down}{green}{space*2}Z{red}{space*2}put joystick in port 1"
109 ad=49152:x=0
110 READa:IFa=-1THEN:SYS49547:GOTO112
111 POKEad+x,a:x=x+1:GOTO110
112 ad=14336:x=0
113 READa:IFa=-1THEN115
114 POKEad+x,a:x=x+1:GOTO113
115 READa:IFa=-1THEN117
116 FORi=0TO7:READb:POKE14336+a*8+i,b:NEXT:GOTO115
117 ad=5e4:x=0
118 READa:IFa=-1THEN123
119 POKEad+x,a:x=x+1:GOTO118
123 PRINT"{clear}{white}{down*2}load"CHR$(34)"rock fall ii"CHR$(34)",8{home}";
124 POKE631,13:POKE632,82:POKE633,117
125 POKE634,13:POKE198,4:NEW
126 DATA0,32,32,0,50,11
127 DATA11,0,28,28,0,3
128 DATA162,0,232,236,11,192
129 DATA240,92,254,4,192,189
130 DATA4,192,221,7,192,208
131 DATA239,224,1,208,6,169
132 DATA0,133,253,240,14,224
133 DATA2,208,6,169,7,133
134 DATA253,208,4,169,14,133
135 DATA253,189,0,192,41,254
136 DATA160,4,145,253,32,143
137 DATA192,201,0,240,44,201
138 DATA255,208,3,32,209,192
139 DATA157,7,192,169,0,157
140 DATA4,192,32,143,192,160
141 DATA0,145,253,32,143,192
142 DATA160,1,145,253,189,0
143 DATA192,9,1,160,4,145
144 DATA253,76,14,192,76,49
145 DATA234,160,0,169,0,145
146 DATA253,200,192,24,208,249
147 DATA169,15,145,253,169,49
148 DATA141,20,3,169,234,141
149 DATA21,3,76,49,234,172
150 DATA4,192,192,0,208,2
151 DATA230,252,177,251,204,202
152 DATA192,208,46,164,252,204
153 DATA203,192,208,39,172,204
154 DATA192,185,219,194,141,4
155 DATA192,200,185,219,194,133
156 DATA252,200,185,219,194,141
157 DATA202,192,200,185,219,194
158 DATA141,203,192,200,140,204
159 DATA192,76,143,192,212,194
160 DATA6,238,4,192,96,32
161 DATA143,192,157,0,192,160
162 DATA4,145,253,41,64,240
163 DATA14,32,143,192,160,2
164 DATA145,253,32,143,192,160
165 DATA3,145,253,32,143,192
166 DATA160,5,145,253,32,143
167 DATA192,160,6,145,253,32
168 DATA143,192,168,41,7,240
169 DATA26,152,160,23,145,253
170 DATA32,143,192,160,21,145
171 DATA253,32,143,192,160,22
172 DATA145,253,32,143,192,160
173 DATA24,145,253,32,143,192
174 DATA96,169,0,141,204,192
175 DATA169,219,141,170,192,141
176 DATA177,192,141,183,192,141
177 DATA190,192,141,82,193,141
178 DATA89,193,169,194,141,171
179 DATA192,141,178,192,141,184
180 DATA192,141,191,192,141,83
181 DATA193,141,90,193,172,204
182 DATA192,185,219,194,141,202
183 DATA192,200,185,219,194,141
184 DATA203,192,200,140,204,192
185 DATA32,143,192,141,11,192
186 DATA162,1,169,0,157,4
187 DATA192,169,1,157,7,192
188 DATA232,236,11,192,208,240
189 DATA169,212,133,254,120,169
190 DATA12,141,20,3,169,192
191 DATA141,21,3,88,96,169
192 DATA166,141,4,192,169,193
193 DATA133,252,169,219,141,39
194 DATA193,169,194,141,59,193
195 DATA169,15,141,24,212,76
196 DATA33,193,3,255,32,10
197 DATA0,0,5,0,0,255
198 DATA32,10,0,0,5,0
199 DATA0,7,154,21,28,37
200 DATA17,7,227,22,14,177
201 DATA25,7,214,28,28,107
202 DATA14,7,94,32,14,75
203 DATA34,7,126,38,28,114
204 DATA11,7,52,43,14,198
205 DATA45,14,126,38,28,216
206 DATA12,14,94,32,14,94
207 DATA32,28,177,25,14,177
208 DATA25,14,177,25,28,47
209 DATA16,14,227,22,7,154
210 DATA21,28,37,17,7,227
211 DATA22,14,177,25,7,214
212 DATA28,28,107,14,7,94
213 DATA32,14,75,34,7,126
214 DATA38,28,114,11,7,52
215 DATA43,14,198,45,14,126
216 DATA38,28,216,12,14,94
217 DATA32,14,177,25,28,177
218 DATA25,14,94,32,28,75
219 DATA34,28,37,17,7,52
220 DATA43,7,37,17,7,198
221 DATA45,7,63,19,14,97
222 DATA51,14,154,21,7,52
223 DATA43,7,37,17,7,198
224 DATA45,7,63,19,14,97
225 DATA51,14,154,21,7,52
226 DATA43,7,37,17,7,198
227 DATA45,7,63,19,14,97
228 DATA51,14,154,21,14,172
229 DATA57,28,114,11,14,198
230 DATA45,14,198,45,28,126
231 DATA38,14,126,38,14,126
232 DATA38,28,63,19,14,214
233 DATA28,7,126,38,7,47
234 DATA16,7,52,43,7,37
235 DATA17,14,198,45,14,63
236 DATA19,7,126,38,7,47
237 DATA16,7,52,43,7,37
238 DATA17,14,198,45,14,63
239 DATA19,7,126,38,7,47
240 DATA16,7,52,43,7,37
241 DATA17,14,198,45,14,63
242 DATA19,14,97,51,28,154
243 DATA21,14,52,43,14,52
244 DATA43,28,37,17,14,75
245 DATA34,14,75,34,28,37
246 DATA17,14,75,34,40,75
247 DATA34,40,37,17,0,50
248 DATA194,183,193,212,194,183
249 DATA193,212,194,183,193,44
250 DATA194,212,194,0,0,120
251 DATA169,49,141,20,3,169
252 DATA234,141,21,3,88,96,-1
253 DATA60,102,110,110,96,98,60,0,24,60,102,126,102,102,102,0
254 DATA124,102,102,124,102,102,124,0,60,102,96,96,96,102,60,0
255 DATA120,108,102,102,102,108,120,0,126,96,96,120,96,96,126,0
256 DATA126,96,96,120,96,96,96,0,60,102,96,110,102,102,60,0
257 DATA102,102,102,126,102,102,102,0,60,24,24,24,24,24,60,0
258 DATA30,12,12,12,12,108,56,0,102,108,120,112,120,108,102,0
259 DATA96,96,96,96,96,96,126,0,99,119,127,107,99,99,99,0
260 DATA102,118,126,126,110,102,102,0,60,102,102,102,102,102,60,0
261 DATA124,102,102,124,96,96,96,0,60,102,102,102,102,60,14,0
262 DATA124,102,102,124,120,108,102,0,60,102,96,60,6,102,60,0
263 DATA126,24,24,24,24,24,24,0,102,102,102,102,102,102,60,0
264 DATA102,102,102,102,102,60,24,0,99,99,99,107,127,119,99,0
265 DATA102,102,60,24,60,102,102,0,102,102,102,60,24,24,24,0
266 DATA126,6,12,24,48,96,126,0,60,48,48,48,48,48,60,0
267 DATA12,18,48,124,48,98,252,0,60,12,12,12,12,12,60,0
268 DATA0,24,60,126,24,24,24,24,0,16,48,127,127,48,16,0
269 DATA0,0,0,0,0,0,0,0,24,24,24,24,0,0,24,0
270 DATA102,102,102,0,0,0,0,0,102,102,255,102,255,102,102,0
271 DATA24,62,96,60,6,124,24,0,98,102,12,24,48,102,70,0
272 DATA60,102,60,56,103,102,63,0,6,12,24,0,0,0,0,0
273 DATA12,24,48,48,48,24,12,0,48,24,12,12,12,24,48,0
274 DATA0,102,60,255,60,102,0,0,0,24,24,126,24,24,0,0
275 DATA0,0,0,0,0,24,24,48,0,0,0,126,0,0,0,0
276 DATA0,0,0,0,0,24,24,0,0,3,6,12,24,48,96,0
277 DATA60,102,110,118,102,102,60,0,24,24,56,24,24,24,126,0
278 DATA60,102,6,12,48,96,126,0,60,102,6,28,6,102,60,0
279 DATA6,14,30,102,127,6,6,0,126,96,124,6,6,102,60,0
280 DATA60,102,96,124,102,102,60,0,126,102,12,24,24,24,24,0
281 DATA60,102,102,60,102,102,60,0,60,102,102,62,6,102,60,0
282 DATA0,0,24,0,0,24,0,0,0,0,24,0,0,24,24,48
283 DATA14,24,48,96,48,24,14,0,0,0,126,0,126,0,0,0
284 DATA10,42,47,175,189,189,181,181,189,173,45,45,43,11,10,2
285 DATA128,160,232,248,250,126,126,94,94,126,126,122,248,232,224,160
286 DATA3,3,15,13,61,53,246,214,214,246,53,61,13,15,3,3
287 DATA192,192,240,112,124,92,159,151,151,159,92,124,112,240,192,192
288 DATA254,254,254,170,239,239,239,170,63,243,255,60,255,255,207,252
289 DATA255,255,195,195,195,195,195,195,195,195,195,195,195,195,255,255
290 DATA195,195,195,195,195,195,195,195,36,60,60,24,126,24,36,102
291 DATA12,31,51,63,31,15,3,63,63,3,3,7,14,12,12,28
292 DATA48,248,204,252,248,240,192,252,252,192,192,224,112,48,48,56
293 DATA252,192,192,224,112,52,60,24,0,0,0,0,0,0,0,0,-1
294 DATA001,060,038,038,062,102,102,102,000
295 DATA002,062,038,038,060,102,102,126,000
296 DATA003,062,038,032,032,096,102,126,000
297 DATA004,056,044,038,038,102,102,126,000
298 DATA005,062,038,032,056,096,102,126,000
299 DATA006,062,032,032,056,096,096,096,000
300 DATA007,062,038,032,046,098,098,126,000
301 DATA008,038,038,038,062,102,102,102,000
302 DATA009,126,008,008,008,024,056,126,000
303 DATA010,060,008,008,008,012,196,120,000
304 DATA011,038,044,056,048,120,108,102,000
305 DATA012,096,096,096,096,224,230,254,000
306 DATA013,130,238,254,214,199,199,199,000
307 DATA014,102,102,118,126,238,230,230,000
308 DATA015,126,102,102,102,230,230,254,000
309 DATA016,126,102,102,062,224,224,224,000
310 DATA017,126,102,102,230,230,252,014,000
311 DATA018,126,102,102,062,248,236,230,000
312 DATA019,126,102,096,126,006,102,126,000
313 DATA020,126,024,024,024,056,056,056,000
314 DATA021,102,102,102,102,230,230,254,000
315 DATA022,230,230,230,230,102,060,024,000
316 DATA024,231,102,060,024,060,230,231,000
317 DATA025,102,102,102,060,024,056,056,000
318 DATA026,126,102,012,024,048,102,126,000
319 DATA048,126,102,110,118,230,230,254,000
320 DATA049,024,024,056,024,056,056,126,000
321 DATA050,124,102,006,012,112,102,126,000
322 DATA051,126,102,006,028,006,102,126,000
323 DATA052,012,012,204,204,254,012,012,000
324 DATA053,126,096,126,006,006,102,126,000
325 DATA054,126,102,096,126,230,230,254,000
326 DATA055,126,102,012,028,028,028,028,000
327 DATA056,126,102,102,126,230,230,254,000
328 DATA057,126,102,102,062,006,102,126,000
329 DATA -1
330 DATA160,0,162,255,189,213
331 DATA6,201,62,240,13,201
332 DATA63,240,9,201,64,240
333 DATA5,201,65,208,25,234
334 DATA141,170,195,189,253,6
335 DATA201,32,208,14,169,32
336 DATA157,213,6,173,170,195
337 DATA157,253,6,234,234,234
338 DATA202,224,255,208,207,200
339 DATA192,4,240,15,206,86
340 DATA195,206,109,195,206,118
341 DATA195,206,124,195,76,82
342 DATA195,169,6,141,86,195
343 DATA141,109,195,141,118,195
344 DATA141,124,195,96,0,0,-1
stop tok64
(bastext 1.0)