272 Newmarket
740 LOCATE 9,25:PRINT"PRESS ANY KEY TO S TART"
750 IF INKEY$="" THEN 750 ELSE CLS 760 REM GRAPHICS
770 SYMBOL 241,0,0,0,12,3,3,5,10
780 SYMBOL 242,8,12,26,113,255,254,1,1 790 SYMBOL 243,0,128,224,144,192,128,64, 72
800 SYMBOL 244,0,0,1,195,63,63,80,80
810 SYMBOL 245,128,196,174,153,252,224,2 0,34
820 SYMBOL 246,0,0,0,0,0,0,0,0
830 REM ***SET UP SCREEN POSITIONS*** e4o FOR 0=1 TO 7
850 A(0)=3:X(0)=3
860 B(D)=(Q*3+1):Y(0)=B(Q)
870 NEXT 0
880 BORDER 0
890 GOTO 60
900 REM .
910 IF I=N THEN 950
920 LOCATE 1,1:PRINT SPACE$(40):LOCATE 1 ,1:PRINT"THE WINNER....HORSE NUMBER ";I;
11	11
930 SOUND 1,150,3
940 GOTO 970
950 LOCATE 1,1:PRINT SPACE$(40):LOCATE 1 ,1:PRINT"	YOU WON! WELL DONE"
960 BORDER 6,1:L=0:WHILE L<3: ENT 1,2,17 ,70:SOUND 1,142,140,5,0,1:L=L+1:WEND
970 FOR 0=1 TO 50
980 LOCATE X(I),Y(I):PRINT CHR$(244);CHR $(245);CHR$(246)
990 NEXT 0
1000 LOCATE 8,22:PRINT"PRESS ANY KEY TO PLAY AGAIN"
1010 IF INKEY$<>"" THEN 1010
1020 IF INKEY$="" THEN 1020 ELSE 840