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