1 CLEAR500
5 FORY=1TO5:X=Y:T=Y
6 IFY>3THENT=T+2
7 W=(T-1)*16
10 G=151+W:K=152+W:E=147+W:F=148+W:A$(X,1)="��"+CHR$(E)+CHR$(G)+CHR$(K):A$(X,2)="��"+CHR$(K)+CHR$(F)+"�"
20 A$(X,3)="�"+CHR$(F)+"�"+CHR$(K)+"�":A$(X,4)="��"+CHR$(F)+"�"+CHR$(K):NEXTY
500 CLS0:Y=0
510 PRINT@Y,"�������������������������������";
520 Y=Y+96:IFY<500THEN510
540 FORX=0TO30:SET(10,X,1):SET(62,X,8):SET(63,X,8):NEXTX
600 H(1)=32:H(2)=128:H(3)=224:H(4)=320:H(5)=416
605 GOSUB4000:FORX=1TO5:SOUND200,1:NEXTX
610 X=RND(5)
615 H(X)=H(X)+1:G(X)=G(X)+1
620 IFG(X)=1THENW=3
622 IFG(X)=2ORG(X)=4THENW=2
624 IFG(X)=3THENW=4
630 IFG(X)=5THENG(X)=1:W=3
632 PRINT@H(X)+32,A$(X,W);
635 PRINT@H(X),A$(X,1);
655 IFH(X)>58+((X-1)*96)THEN3000
700 GOTO610
3000 FORY=1TO10:SOUND236,1:NEXTY
3010 G=0:K=0
3100 K$=INKEY$:G=G+1:IFG=10THENPRINT@H(X)-15,"WINNER";
3110 IFG=20THENPRINT@H(X)-15,"winner";:G=0
3120 K=K+1:IFK=500THEN500
3130 IFK$=""THEN3100
3200 GOTO500
4000 FORX=1TO5
4010 PRINT@H(X),A$(X,1);:PRINT@H(X)+32,A$(X,2);
4050 IFX=1THENPRINT@41,"quarter�horse�race";
4060 IFX=2THENPRINT@139,"the�horses�are";
4070 IFX=3THENPRINT@236,"at�the�gate";
4080 IFX=4THENPRINT@331,"press�any�key";
4090 IFX=5THENPRINT@427,"to�begin�race";
4091 SOUND(X*20)+100,1
4095 FORY=1TO100:NEXTY
4100 NEXTX
4120 DATA 100,3,100,3,141,3,163,3,178,2,178,2,178,2,163,2,163,2,163,2,141,2,163,2,141,2,100,4
4150 DATA 1,1
4190 G=0:F=0
4200 K$=INKEY$:G=G+1:IFG=20THENPRINT@41,"quarter�horse�race";
4201 IFA=1THEN4205
4202 READA,B:IFA=1ANDF=0THENRESTORE:FORT=1TO100:NEXTT:F=5:GOTO4202
4203 SOUND A,B
4205 IFG=40THENPRINT@41,"QUARTER�HORSE�RACE";:G=0
4206 IFK$=""THEN4200
4210 FORX=1TO5:PRINT@40+((X-1)*96),"�������������������";:NEXTX
4500 RESTORE:A=0:RETURN