19 lines
315 B
Text
19 lines
315 B
Text
|
flag$ = "Red,White,Blue"
|
||
|
|
|
||
|
|
print "Random: |";
|
||
|
|
for i = 1 to 10
|
||
|
|
color = rnd(0) * 3 + 1
|
||
|
|
balls$(i) = word$(flag$,color,",")
|
||
|
|
print balls$(i);" |";
|
||
|
|
next i
|
||
|
|
|
||
|
|
print :print "Sorted: |";
|
||
|
|
for i = 1 to 3
|
||
|
|
color$ = word$(flag$,i,",")
|
||
|
|
for j = 1 to 10
|
||
|
|
if balls$(j) = color$ then
|
||
|
|
print balls$(j);" |";
|
||
|
|
end if
|
||
|
|
next j
|
||
|
|
next i
|