REM PROGRAMMED BY: TRAVIS SCHULTZ
10 CLS
20 RANDOMIZE TIMER
30 MAXJUMP = 6: INC = .05: LOWJUMP1 = -2: LOWJUMP2 = -2: LOWJUMP3 = -2
40 PRINT : PRINT "WELCOME TO THE MASON COUNTY FROG RACE": PRINT
50 PRINT "THE COURSE IS 100 FEET LONG.  THERE WILL BE 10 RACES."
60 PRINT "MAY THE BEST FROG WIN!": PRINT
70 FOR I = 1 TO 10
90 D1 = 0: D2 = 0: D3 = 0
100 JUMP1 = INT(MAXJUMP * RND + LOWJUMP1 + .5)
110 JUMP2 = INT(MAXJUMP * RND + LOWJUMP2 + .5)
120 JUMP3 = INT(MAXJUMP * RND + LOWJUMP3 + .5)
130 D1 = D1 + JUMP1: D2 = D2 + JUMP2: D3 = D3 + JUMP3
140 IF D1 < 100 AND D2 < 100 AND D3 < 100 THEN 100
150 PRINT : PRINT "THE FINAL RESULTS OF RACE #"; I; ":"
160 PRINT "FROG #1 -"; D1; "FEET"
170 PRINT "FROG #2 -"; D2; "FEET"
180 PRINT "FROG #3 -"; D3; "FEET"
190 PRINT
200 IF D3 > D2 AND D3 > D1 THEN 230 ELSE IF D2 > D1 THEN 220
210 W = 1: WIN1 = WIN1 + 1: LOWJUMP1 = LOWJUMP1 + INC: GOTO 240
220 W = 2: WIN2 = WIN2 + 1: LOWJUMP2 = LOWJUMP2 + INC: GOTO 240
230 W = 3: WIN3 = WIN3 + 1: LOWJUMP3 = LOWJUMP3 + INC: GOTO 240
240 PRINT "FROG #"; W; "IS THE WINNER."
250 PRINT "THE SCORE IS NOW ("; WIN1; "-"; WIN2; "-"; WIN3; ")"
260 NEXT I
270 PRINT : PRINT "-----FINAL RESULTS-----"
280 PRINT "FROG #1 HAD"; WIN1; "WINS."
290 PRINT "FORG #2 HAD"; WIN2; "WINS."
300 PRINT "FROG #3 HAD"; WIN3; "WINS."
310 END