66 Horse Race
170 LOCATE 38,1:PRINT"o"
180 GOTO 190
190 SOUND 1,180,50: LOCATE 1,16:PRINT"RE ADY";:FOR S=1 TO 500:NEXT 5:LOCATE 1,16: PRINT" ";:SOUND 1,120,50:LOCATE 1,1 6:PRINT"STEADY";:FOR 5=1 TO 500:NEXT:LOC
ATE 1,16:PRINT"	";:SOUND 1,90,50:LO
CATE 1,16:PRINT"GO!	";:FOR S=1 TO 500:
NEXT
200 LOCATE 1,16:PRINT"
210 GE=0:FOR C=1 TO 6:X(C)=2:NEXT
220 FOR C=1 TO 6
230 ENT 1,100,2,5:ENV 1,100,-7,5:SOUND 1 ,300,25,3,1,5
240 X(C)=X(C)-(F(C)=1 AND RND<0.8)-(F(C) =2 AND RND<0.77)-(F(C)=4 AND RND<0.74)-( F(C)=8 AND RND <0.71)-(F(C)=16 AND RND<0 .68)-(F(C)=32 AND RND <0.65)
250 V$=" ":IF X(C)=2 THEN V$=""
260 LOCATE X(C)-1-(X(C)=2),C*2:PRINT V$; CHR$(231)
270 IF X(C)=37 THEN GE=1
280 NEXT C
290 IF GE=1 THEN 310
300 GOTO 220
310 MANY=0:FOR C=1 TO 6
320 IF X(C)=37 THEN MANY =MANY+1:H(MANY)
330 NEXT C
340 IF MANY=1 THEN WINNER=H(1):GOTO 510 350 LOCATE 1,14:PRINT"There is a photo-f inish between"0(1);"and";h(2);
360 FOR X = 1 TO 500:NEXT
370 IF MANY=3 THEN PRINT H(3);
380 IF MANY =4 THEN PRINT" ";H(4); 390 FOR C=1 TO 600
400 NEXT C
410 ER=INT(RND*4)+1
420 WINNER=H(ER)
430 IF WINNER=0 THEN 410
440 IF RND<0.33 THEN G$="a short head":9 OTO 470
450 IF RND<0.4 THEN G$="a neck":GOTO 470 460 G$="1 length"