home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-08_2002_CSW_Side_A.d64 / multicol-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  225b  |  9 lines
  1. 10 poke53280,0:poke53281,0:print"[155][147]"
  2. 12 fori=0to255:poke1024+i,i:next
  3. 14 poke53270,peek(53270)or16
  4. 16 poke53281,int(rnd(0)*16):poke53282,int(rnd(0)*16)
  5. 18 poke53283,int(rnd(0)*16)
  6. 20 forz=55296to55575:pokez,int(rnd(0)*16):next
  7. 22 getk$:ifk$=""then16
  8. 24 poke53270,peek(53270)and239:print"[147]"
  9.