home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 October / 1990-10.d64 / progpage2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  132b  |  5 lines
  1. 5 print"[147]":poke53280,0:poke53281,0
  2. 10 print chr$(147)tab(14)"s h a k e!"
  3. 20 for x=1 to 10:for i=0 to 5:poke 53270,(peek(53270)and248)+i:next
  4. 30 poke 53270,200:next
  5.