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 RWINNER 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 FP(F) OR B(F)<=0 THEN 730