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