Skip to content

Instantly share code, notes, and snippets.

@jonahb
Created January 26, 2015 06:05
Show Gist options
  • Save jonahb/dbeb26527159dd95c766 to your computer and use it in GitHub Desktop.
Save jonahb/dbeb26527159dd95c766 to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment