15 lines
307 B
Plaintext
15 lines
307 B
Plaintext
10 LET r$="Red": LET w$="White": LET b$="Blue"
|
|
20 LET c$="RWB"
|
|
30 DIM b(10)
|
|
40 PRINT "Random:"
|
|
50 FOR n=1 TO 10
|
|
60 LET b(n)=INT (RND*3)+1
|
|
70 PRINT VAL$ (c$(b(n))+"$");" ";
|
|
80 NEXT n
|
|
90 PRINT ''"Sorted:"
|
|
100 FOR i=1 TO 3
|
|
110 FOR j=1 TO 10
|
|
120 IF b(j)=i THEN PRINT VAL$ (c$(i)+"$");" ";
|
|
130 NEXT j
|
|
140 NEXT i
|