Back to Main page.
Back to Main tapes page.
10  REM*****MADE BY BILL MCFADDEN ON 10/12/76*****
12  REM*****LAST ACCESS 11/22/76*****
15  REM*****HORSE RACE SIMULATOR*****
20  C=D=0
30  Z9=0
40  A$="A"
50  B$="B"
60  ENTER 2,A,C$
70  IF A<0 THEN 90
80  Z9=1
90  PRINT "HOW MANY LENGTHS ";
100  INPUT E
110  IF C$="." THEN 130
120  PRINT "START"TAB(66)"FINISH"
130  FOR X=1 TO E
140  A1=INT(.5+RND(0))
150  IF A1 THEN 190
160  B=INT(10*RND(0))
170  A=INT(10*RND(0))
180  GOTO 210
190  A=INT(10*RND(0))
200  B=INT(10*RND(0))
210  C=C+A
220  D=D+B
230  IF C>69 OR D>69 THEN 310
240  IF  NOT Z9 THEN 280
250  IF C$="." THEN 140
260  IF X=E THEN 280
270  GOTO 140
280  PRINT  USING "+,A";TAB(C),A$
290  PRINT  USING "+,A";TAB(D),B$
300  GOTO 140
310  C=C-70
320  D=D-70
330  IF  NOT Z9 THEN 350
340  IF E#X THEN 360
350  PRINT 
360  NEXT X
370  IF C>D THEN 420
380  IF C=D THEN 440
390  IMAGE"HORSE",XAX,"WINS BY",XD.DDX,"LENGTHS"
400  PRINT  USING 390;B$,(D-C)/70
410  STOP 
420  PRINT  USING 390;A$,(C-D)/70
430  STOP 
440  PRINT "TIE!! WE MUST RUN AN EXTRA LENGTH"
450  E=1
460  GOTO 130
470  END