home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 May
/
1994-05b.d64
/
quilt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
271b
|
11 lines
10 printchr$(147)chr$(5):poke53280,0:poke53281,0
20 r=54272:a=1
30 n=int(10*rnd(1))+1:p=int(10*rnd(1))+1:q=int(15*rnd(1))+1
40 v=int(1000*rnd(1))+1024:m=int(255*rnd(1))+1
50 ifv+n>2023thenv=v-n:goto40
60 ifv+(40*p)>2023thenv=v-(v0*p):goto40
70 forz=1top
80 forx=1ton:pokev+a,m:pokev+a+r,q:v=v+a:next
90 v=v+40-n
100 nextz:goto30