home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / tunnels (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  414b  |  21 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 a=1:b=-1:c=40:d=-40:n=1:p=54272:v=1984
  3. 30 forz=1to12:gosub110
  4. 40 v=v-39:n=n+1
  5. 50 next
  6. 60 v=v+42:n=n-1
  7. 70 forz=1to12:gosub110
  8. 80 v=v+42:n=n-1
  9. 90 next
  10. 100 end
  11. 110 q=int(15*rnd(1))+1
  12. 120 forx=1ton:pokev+a,67:pokev+a+p,q:v=v+a:next
  13. 130 pokev,75:pokev+p,q
  14. 140 forx=1ton:pokev+d,66:pokev+d+p,q:v=v+d:next
  15. 150 pokev,73:pokev+p,q
  16. 160 forx=1ton:pokev+b,67:pokev+b+p,q:v=v+b:next
  17. 170 pokev,85:pokev+p,q
  18. 180 forx=1ton:pokev+c,66:pokev+c+p,q:v=v+c:next
  19. 190 pokev,74:pokev+p,q
  20. 200 return
  21.