home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 May / 1993-05.d64 / monroe1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  207 b   |  12 lines
  1. 1 poke53280,6:poke53281,6:print"[147]"
  2. 10 ti$="000000"
  3. 20 printchr$(147)
  4. 30 c=52:q=rnd(-ti/101)
  5. 40 dimr(c),x(c)
  6. 50 fori=1toc:x(i)=i:next
  7. 60 fori=1toc:a=int(c*rnd(.))+1:b=x(i):x(i)=x(a):x(a)=b:next
  8. 70 printti:print
  9. 80 fori=1toc
  10. 90 printx(i),
  11. 100 next
  12.