home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-08_2002_CSW_Side_A.d64 / extended-demo1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  228b  |  9 lines
  1. 10 poke53280,0:poke53281,0:print"[155][147]"
  2. 12 fori=0to255:poke1024+i,i:next
  3. 14 poke53265,peek(53265)or64
  4. 16 poke53281,int(rnd(0)*16):poke53282,int(rnd(0)*16)
  5. 18 poke53283,int(rnd(0)*16):poke53284,int(rnd(0)*16)
  6. 20 forz=0to200:getk$:ifk$<>""then24
  7. 22 next:goto16
  8. 24 poke53265,peek(53265)and191:print"[147]"
  9.