68 Horse Race
740 IF B(F)<>INT(B(F)) THEN 730
750 PRINT:PRINT"On which horse is this t o be placed ?"
760 INPUT E(F)
770 IF E(F)<1 OR E(F)>6 THEN 760
780 LOCATE 1,17:PRINT SPACE$(80)
790 LOCATE 1,19:PRINT SPACE$(120)
800 NEXT
810 BORDER 18:INK 3,18
820 CLS:RETURN
830 PRINT"THE MEETING IS NOW FINISHED" 840 FOR F= 1 TO A
850 IF P(F)=0 THEN F=F+1:IF F<A+1 THEN 50 ELSE GOTO 880
860 PRINT:PRINT"Punter ";F;" finishes wi th #";P(F)
870 NEXT
880 LOCATE 7,22:PRINT"PRESS ANY KEY TO P LAY AGAIN."
890 IF INKEY$="" THEN 890 ELSE RUN 900 CLS
910 PEN 2:PRINT: PRINT:PRINT"
H	0000 RRRR SSSS EEEE
HO OR RS	E	HHH
H	0 0 RRR SSSS EEE
HO OR R	SE
H	0000 R R SSSS EEEE"
920 PRINT:PRINT"	RRRR AAAA CCC
C EEEE	R RA AC
E	RRR AAAA C EEE	R RA AC
E	RRAACCC C EEEE":PEN 1
930 PEN 2:LOCATE 3,20:PRINT" A gambling game for the whole family.
@ PAUL STANLEY":PEN 1
940 FOR X=1 TO 2000:NEXT
950 CLS:RETURN
960 CLS:LOCATE 1,5:PRINT"Tut Tut! Punter ";R;",you have":PRINT"run out of money.
970 PRINT:PRINT"Therefore no more bettin
H	for you."