Listing of file='HORSE ' on disk='vmedia/gamesall.wvd.zip'
# Sector 224, program filename = 'HORSE' 0010 REM HORSERACE LESNICK/PATTERSON WANG 2200 R&D 0030 DIM W(5),D(5) : Z=5 0040 R=300 : Q=0 0050 FOR I=1 TO Z : W(I)=1 : NEXT I 0060 FOR I=1 TO 10+Z : PRINT : NEXT I : GOSUB 500 0070 PRINT HEX(0C); 0080 FOR I=1 TO Z : D(I)=0 : NEXT I : N=0 : J=Z 0090 FOR I=1 TO J 0100 PRINT HEX(0C); 0110 NEXT I 0120 PRINT HEX(0C0C); 0130 PRINT "AND THEY'RE OFF....."; 0140 PRINT "TIME =";N : GOSUB 500 0150 A=RND(1) : I=1/Z 0160 FOR J=1 TO Z 0170 IF A>I THEN 180 : K=J : J=Z 0180 I=I+1/Z : NEXT J 0190 J=K 0200 D(J)=D(J)+1 0210 N=N+1 0220 IF J=1 THEN 240 0230 FOR I=1 TO J-1 : PRINT : NEXT I 0240 PRINT TAB((D(J))-3);"/)*)'" 0250 IF D(J)=60 THEN 270 0260 GOTO 90 0270 W(J)=W(J)+1 0280 PRINT HEX(0A0A0A0A0A0A0A); 0290 PRINT "THE WINNER IS HORSE #";J; 0300 L=60 0310 FOR I=1 TO Z 0320 D(I)=60-D(I) 0330 IF D(I)<>0 THEN 340 : D(I)=60 0340 IF L<D(I)THEN 350 : L=D(I)/5 0350 NEXT I 0360 PRINT " BY ";L;" LENGTHS" 0370 PRINT "TIME FOR RACE = ";N 0380 IF N<R THEN 390 : GOTO 400 0390 R=N : Q=J : PRINT "IT'S A NEW TRACK RECORD....." 0400 PRINT "WANG 2200 RACING RESULTS" : PRINT 0410 PRINT "HORSE #","WINS","ODDS" : PRINT 0420 T=0 0430 FOR I=1TO Z : T=T+W(I) : NEXT I 0440 FOR I=1 TO Z 0450 PRINT I,W(I),INT(100*T/W(I))/100;"TO 1" : NEXT I 0460 PRINT : PRINT "TRACK RECORD = ";R;" HELD BY HORSE #";Q 0470 FOR I=1TO 230 0480 X=2^8 : NEXT I 0490 GOTO 60 0500 PRINT "-------------1/4------------1/2------------3/4--------------1" : RETURN