home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / 3 reasons.pp (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  233 b   |  12 lines
  1. 0 clr
  2. 2 print"[147]"poke53280,6:poke53281,6
  3. 10 rem three reasons
  4. 20 forl=54272 to 54295:pokel,0:next:poke54296,15
  5. 30 poke54277,8:poke54278,255:poke54276,23
  6. 40 f1=100:f2=4
  7. 50 for z=1 to 3:poke54287,f2
  8. 60 for f1=1to200
  9. 70 poke54273,f1:f2=f2+.01
  10. 80 next f1,z
  11. 90 poke54278,15
  12.