Listing of file='HORSE' on disk='vmedia/more_games.wvd.zip'
# Sector 676, program filename = 'HORSE'
0010 REM *HORSE*
: LOAD DC T#6,"GAMES"
0020 PRINT HEX(03)
0030 DIM W(5),D(5)
: Z=5
0040 R=300
: Q=0
0050 FOR I=1TO Z
: W(I)=1
: NEXT I
0060 FOR I=1TO 10+Z
: PRINT
: NEXT I
: GOSUB 630
0070 PRINT "LADIES AND GENTLEMEN -- PLACE YOUR BETS"
0080 INPUT "YOUR BET IS:",Z1
0090 INPUT "YOUR HORSE IS #:",Z2
0100 FOR I=1TO 10+Z
: PRINT
: NEXT I
: GOSUB 630
0110 PRINT HEX(0C);
0120 FOR I=1 TO Z
: D(I)=0
: NEXT I
: N=0
: J=Z
0130 FOR I=1 TO J
0140 PRINT HEX(0C);
0150 NEXT I
0160 PRINT HEX(0C0C06);
0170 PRINT "AND THEY'RE OFF.....";
0180 PRINT "TIME =";N
: GOSUB 630
0190 A=RND(1)
: I=1/Z
0200 FOR J=1 TO Z
0210 IF A>I THEN 220
: K=J
: J=Z
0220 I=I+1/Z
: NEXT J
0230 J=K
0240 D(J)=D(J)+1
0250 N=N+1
0260 IF J=1 THEN 280
0270 FOR I=1 TO J-1
: PRINT
: NEXT I
0280 PRINT TAB((D(J))-3);"/)*)'"
0290 IF D(J)=60 THEN 310
0300 GOTO 130
0310 W(J)=W(J)+1
0320 PRINT HEX(0A0A0A0A0A0A0A);
0330 PRINT "THE WINNER IS HORSE #";J;
0340 L=60
0350 FOR I=1 TO Z
0360 D(I)=60-D(I)
0370 IF D(I)<>0 THEN 380
: D(I)=60
0380 IF L<D(I)THEN 390
: L=D(I)/5
0390 NEXT I
0400 PRINT " BY ";L;" LENGTHS"
0410 PRINT "TIME FOR RACE = ";N
0420 IF N<R THEN 430
: GOTO 440
0430 R=N
: Q=J
: PRINT "IT'S A NEW TRACK RECORD....."
0440 PRINT "WANG 2200 RACING RESULTS"
: PRINT
0450 PRINT "HORSE #","WINS","ODDS"
: PRINT
0460 T=0
0470 FOR I=1TO Z
: T=T+W(I)
: NEXT I
0480 FOR I=1 TO Z
0490 PRINT I,W(I),INT(100*T/W(I))/100;"TO 1"
: NEXT I
0500 PRINT
: PRINT "TRACK RECORD = ";R;" HELD BY HORSE #";Q
0510 IF J=Z2 THEN 530
0520 IF J<>Z2 THEN 570
0530 Z3=Z3+Z1*INT(100*T/W(I))/100
0540 PRINT "CONGRATULATIONS, YOU WON:";Z1*INT(100*T/W(I))/100;"DOLLARS THAT RA
CE!"
0550 PRINT "YOUR TOTAL WINNINGS ARE:";Z3;"DOLLARS"
0560 GOTO 600
0570 Z3=Z3-Z1
0580 PRINT "YOU HAD A BUM FOR A HANDICAPPER"
0590 PRINT "YOUR TOTAL WINNINGS ARE NOW:";Z3;"DOLLARS"
0600 FOR I=1TO 230
0610 X=2^8
: NEXT I
0620 GOTO 70
0630 PRINT "-------------1/4------------1/2------------3/4--------------1"
: RETURN