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