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