18 lines
380 B
Text
18 lines
380 B
Text
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
|