100  READ C$(0),C$(1),C$(2)
 110  DATARED,WHITE,BLUE,0
 120  PRINT "RANDOM:
 130  FOR N = 0 TO 9
 140      LET B%(N) =  RND (1) * 3
 150      GOSUB 250
 160  NEXT N
 170  PRINT
 180  READ S
 190  PRINT "SORTED:
 200  FOR I = 0 TO 2
 210      FOR N = 0 TO 9
 220          ON B%(N) = I GOSUB 250
 230  NEXT N,I
 240  END
 250  PRINT  SPC( S)C$(B%(N));
 260  LET S = 1
 270  RETURN