home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Corkscrew (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  457 b   |  14 lines
  1. 63000 a=55747:b=55764:c=55867:d=55884
  2. 63002 print"[147][144]";:a$="                                       [146]":rem 39 spaces
  3. 63004 forg=1to24:printa$:nextg:printa$""
  4. 63006 e=0:forf=1to10:gosub63014:nextf
  5. 63008 a=a-41:b=b-39:c=c+39:d=d+41
  6. 63010 e=0:forf=1to10:gosub63016:nextf
  7. 63012 goto63012:rem change to return if you had a gosub come to this routine
  8. 63014 a=a-41:b=b-39:c=c+39:d=d+41:goto63018
  9. 63016 a=a+41:b=b+39:c=c-39:d=d-41
  10. 63018 e=e+1:forg=a+1tob:pokeg,e:nextg
  11. 63020 forg=btodstep40:pokeg,e:nextg
  12. 63022 forg=dtocstep-1:pokeg,e:nextg
  13. 63024 forg=ctoastep-40:pokeg,e:nextg:return
  14.