home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 May
/
1994-05b.d64
/
quilt.t
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
600b
|
7 lines
100 printchr$(147);chr$(5):poke53280,0:poke53281,0
110 q=rnd(0)and15:ifq=0then110
120 n=(rnd(0)and15)+1:p=(rnd(0)and15)+1
130 v=(rnd(0)and1023)+1024:m=(255andrnd(0))
140 if(v+n>2023)or(v+40*p)>2023then120
150 forz=1top:forx=1ton:pokev,m:pokev+54272,q:v=v+1:next:v=v+40-n:next:goto110