home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / tunnels.t (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  10 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 n=1:p=54272:v=1984:forz=1to12:gosub50:v=v-39:n=n+1:next:v=v+42:n=n-1
  3. 30 forz=1to12:gosub50:v=v+42:n=n-1:next
  4. 40 end
  5. 50 q=15andrnd(0):ifq=0then50
  6. 60 forx=1ton:pokev+1,67:pokev+1+p,q:v=v+1:next:pokev,75:pokev+p,q
  7. 70 forx=1ton:pokev-40,66:pokev-40+p,q:v=v-40:next:pokev,73:pokev+p,q
  8. 80 forx=1ton:pokev-1,67:pokev-1+p,q:v=v-1:next:pokev,85:pokev+p,q
  9. 90 forx=1ton:pokev+40,66:pokev+40+p,q:v=v+40:next:pokev,74:pokev+p,q:return
  10.