home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / hyperwarp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  202b  |  6 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15:poke54277,8:poke54278,255
  3. 20 poke54276,21:f1=2:forz=1to24:f2=80:poke54273,f1:fory=1to5:poke54287,f2
  4. 30 f2=f2/1.1:nexty:f1=f1+9:nextz:poke54278,15:rem super crunched sound
  5. 40 list10-30
  6.