relay.bas

10 RANDOMIZE
20 PRINT"GOSUB RELAY RANDOMIZER"
30 INPUT"HOW MANY RUNNERS";N
40 IF N < 1 THEN PRINT "COME ON": GOTO 20
50 DIM R$(N - 1)
60 FOR I = 0 TO N - 1
70 PRINT "NAME OF RUNNER";I + 1;
80 INPUT R$(I)
90 NEXT I
100 FOR I = 0 TO N - 1
110 J = I + INT((N - I) * RND(1))
120 T$ = R$(I)
130 R$(I) = R$(J)
140 R$(J) = T$
150 NEXT I
160 PRINT"AND THE ORDER SHALL BE:"
170 FOR I = 0 TO N - 1
180 PRINT R$(I)
190 NEXT I