home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-08_2002_CSW_Side_A.d64 / color-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  175b  |  8 lines
  1. 10 poke53280,0:poke53281,0:print"[155][147]"
  2. 12 tx$="":fori=33to127:tx$=tx$+chr$(i):next:fori=161to191:tx$=tx$+chr$(i):next
  3. 14 printtx$:print""tx$
  4. 16 :
  5. 18 forz=55296to55622
  6. 20 pokez,int(rnd(0)*16):next
  7. 22 getk$:ifk$=""then18
  8.