home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-08_2002_CSW_Side_A.d64
/
extended-demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
243b
|
9 lines
10 poke53280,0:poke53281,0:print"[155][147]"
12 fori=0to255:poke1024+i,i:next
14 poke53265,peek(53265)or64
16 poke53281,int(rnd(0)*16):poke53282,int(rnd(0)*16)
18 poke53283,int(rnd(0)*16):poke53284,int(rnd(0)*16)
20 forz=55296to55575:pokez,int(rnd(0)*16):next
22 getk$:ifk$=""then16
24 poke53265,peek(53265)and191:print"[147]"