home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 December
/
1989-12.d64
/
final.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
869b
|
34 lines
100 ifa=0thena=1:load"final.ml",8,1
110 sys9094:w=250:pokew,40:r=9091
120 print"[147]please wait a minute"
130 q=-16:gosub410:forq=80to40step-40
140 gosub290:gosub270:next:gosub290
150 q=32:gosub410:gosub270:fory=10to21
160 sysr,17,21-y,y:forx=22to48
170 k=9*rnd(0):ifk>3thenk=0
180 sysr,18+k,x-y,y:next:sysr,21,x-y,y
190 next:gosub270:fory=10to21
200 forx=21to49:sysr,8+rnd(0)*4,x-y,y
210 nextx,y:gosub270:fory=10to21
220 pokew,27:fory=10to21:sysr,13,34-y,y
230 forx=36to47:sysr,12,x-y,y:next
240 sysr,13,x-y,y:next:gosub270
250 pokew,25:q=0:gosub410:gosub270
260 sys9696
270 sys9088
280 print"[147]":return
290 forx=0to108step2:sysr,0,x-q,20
300 sysr,0,x+9-q,11:next:forx=0to8
310 sysr,1,x-q,19-x:sysr,1,x+110-q,19-x
320 next:sysr,2,-q,20:sysr,3,118-q,11
330 sysr,4,7-q,15:sysr,5,9-q,15
340 forx=14to102step4:sysr,6,x-q,15
350 next:sysr,5,x-q,15:sysr,7,x+5-q,15
360 sysr,15,q-72,12:sysr,15,q-67,12
370 sysr,16,q-30,12:sysr,16,q-26,12
380 sysr,15,q-20,12:sysr,14,q-16,12
390 sysr,16,q-5,12:sysr,14,q+20,12
400 sysr,14,q+24,12:return
410 fory=10to21step2:forx=35to47step3
420 sysr,14,x-q-y,y:nextx,y:return