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