Horse Race 67
470 LOCATE 1,14:PRINT SPACE$(40);
480 LOCATE 1,14:PRINT"The winner is";WIN NER;"who won by "; G$
490 FOR X=1 TO 1000:NEXT
500 GOTO 530
510 LOCATE 1,14:PRINT"The winner is";WIN NER;"who won by";INT(RND*3)+2;"lengths" 520 FOR x=1 TO 1000:NEXT
530 FOR R=1 TO A
540 IF P(R)=0 THEN R=R+1:IF R<A+1 THEN G OTO 540 ELSE GOTO 610
550 IF E(R)=WINNER THEN P(R)=P(R)+B(R)*F (WINNER):GOTO 570
560 P(R)=P(R)-B(R)
570 IF P(R)<=0 THEN 960
5e0 IF E(R)<>WINNER THEN 600
590 PRINT"Punter";R;"your horse won.You have #";MID$(STR$(P(R)),2):GOTO 610
600 PRINT"Punter";R;"you lost. You have #";MID$(STR$(P(R)),2)
610 NEXT R
620 LOCATE 1,24:INPUT "	PRESS [ENTE
R] TO CONTINUE";X$
630 GOTO 80
640 RACES=RACES-1:IF RACES=-1 THEN GOTO 830
650 FOR C=1 TO 6:F(C)=2'(INT(RND*6)):NEX T
660 PRINT"THE TIPSTERS RECKON THE BETTIN
1G .1
670 FOR C=I TO 6:LOCATE 2,2*C:PRINT"Hors e ";C;"	";F(C);":1"
680 IF F(C)=1 THEN LOCATE 17,2*C:PRINT"E VENS"
690 NEXT
700 FOR F=1 TO A
710 IF P(F)=0 THEN F=F+1:IF F<A+1 THEN 7 10 ELSE e20
720 LOCATE 1,14:PRINT"Punter ";F;" :":PR INT:PRINT"You have ";CHR$(163);P(F);".
":PRINT"How much would you like to bet ?"
730 INPUT B(F):IF B(F)>P(F) OR B(F)<=0 THEN 730