10 lines
216 B
Text
10 lines
216 B
Text
s$ = "#########################"
|
|
dim num(100)
|
|
for i = 1 to 1000
|
|
n = (rnd(1) * 10) + 1
|
|
num(n) = num(n) + 1
|
|
next i
|
|
|
|
for i = 1 to 10
|
|
print using("###",i);" "; using("#####",num(i));" ";left$(s$,num(i) / 5)
|
|
next i
|