10 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
40 :
50 :    REM*** J.J.HROMADIK       ***
60 :    REM*** VENTURA, CA 93003  ***
80 :
110 :       REM*** 110 NAMES ***
120 HS=110:DIMH$(HS),CW(HS),SR$(24),OD(21),D(21),OD$(21),D$(21)
130 POKE53280,0:POKE53281,0:PRINT"[158]"
140 FORI=1TO8:READWX$(I):WZ$(I)=" "+WX$(I)+" ":WY$(I)="[158]"+WZ$(I):NEXT
145 FORI=1TO3:READN$(I):NEXT
148 J=1:FORI=1TO3:NR$(I)="7:"+N$(J):J=J+1:NEXT
150 J=1:FORI=4TO6:NR$(I)="8:"+N$(J):J=J+1:NEXT
152 J=1:FORI=7TO9:NR$(I)="9:"+N$(J):J=J+1:NEXT:NR$(10)="1O:OO P.M.
158 PL$(1)[178]"FIRST......":PL$(2)[178]"SECOND.....":PL$(3)[178]"THIRD......"
160 [129]I[178]1[164]3:PY$(I)[178]"SYS"[170]PL$(I):[130]
170 QH$(1)[178]"CONT(null)":QH$(2)[178]"OPEN(null)":QH$(3)[178]"(null)"
180 QH$(4)[178]"SYS(null)":QH$(5)[178]"LIST(null)":QH$(6)[178]"CLR(null)"
190 QH$(7)[178]"FOR(null)":QH$(8)[178]"(null)":QH$(9)[178]"PRINT(null)"
195 FH$(1)[178]" WIN":FH$(2)[178]"PLACE":FH$(3)[178]"SHOW"
200 PX$(1)[178]"PLAYER 1":PX$(2)[178]"PLAYER 2":PX$(3)[178]"PLAYER 3":[141]3000
205 [129]I[178]1[164]25:BK$[178]BK$[170]" ":[130]
210 [141]2220:[129]I[178]1[164]3:PO(I)[178]1000:[130]
220 SR$(0)[178]"":[129]I[178]1[164]24:SR$(I)[178]SR$(I[171]1)[170]"":[130]
230 SP$[178]SR$(4):SQ$[178]SR$(14):SV$[178]SR$(15)
240 ER$[178]"":[129]I[178]1[164]39:ER$[178]ER$[170]" ":[130]
250 EM$[178][200](ER$,13):BB$[178]""[170][200](ER$,27)
260 [153][199](147):[141]490
270 [129]I[178]1[164]HS:[135]H$(I):CW(I)[178]0:[130]
280 [129]I[178]1[164]7:[135]OD$(I):OD(I)[178][197](OD$(I))[173]2:OD$(I)[178]OD$(I)[170]"-2":[130]
290 [129]I[178]8[164]21:[135]OD$(I):OD(I)[178][197](OD$(I)):OD$(I)[178]OD$(I)[170]"-1":[130]
300 [129]N[178]1[164]10:FL[178][181](13[172][187](1)[170]20)
310 [153]""[163]11)N;[163]28)20[172]FL"YARDS"
320 HY[178][181](3[172][187](1)[170]7):[129]I[178]1[164]HY
330 J[178][181](110[172][187](1)[170]1):[139]CW(J)[178]1[167]330
340 A$(I)[178]H$(J):Y$(I)[178]"SYS"[170]A$(I):CW(J)[178]1:[130]
350 [153]SP$:[129]I[178]1[164]HY:[153]""[163]5)[200](A$(I),1);
352 [129]J[178]2[164][195](A$(I)):[153][202](A$(I),J,1);
354 [129]T[178]1[164]60:[130]:[130]:[153]:[130]
360 [141]840:[141]890:[141]2060
370 [141]2020:[143]*** MSG BRD ***
380 [129]T[178]1[164]2000:[130]:[141]470:[143]*** ERASE MSG BRD ***
390 [141]930:[143]*** BET ROUTINE ***
400 [141]1760:[143]*** RACE ROUTINE ***
410 [141]430:[141]440
420 [130]N:[137]2400
430 [153]SP$:[129]P[178]1[164]9:[153][163]5)"              ";[163]20)"    ":[130]:[142]
440 [153]SQ$:[129]I[178]1[164]9:[153]ER$:[130]:[142]
450 [129]T[178]1[164]500:[130]:[141]1990
460 [161]G$:[139]G$[178]""[167]460
470 [153]SP$:[129]I[178]1[164]3:[153][163]25)EM$:[130]:[142]
480 [153]"":[129]I[178]1[164]9:[153]ER$:[130]:[142]
490 [143]*** CARD POSTING ***
500 [153]"SYS   RACE NO.";[163]19)"DISTANCE:"
510 [153]"  ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN=LENLENLENLEN=LENLENLENLENLENLENLENLENLENLENLENLENLEN^"
520 [153]"  PEEK     ENTRY      WAITPEEKODDSWAITPEEK (null) MESSAGE (null) WAITPEEK"
530 [153]"  -LEN=LENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)LENLENLENLEN(null)LENLENLENLENLENLENLENLENLENLENLENLENLEN<"
540 [153]"  PEEK1PEEK"[163]19)"PEEK    PEEK"[163]38)"PEEK"
550 [153]"  PEEK2PEEK"[163]19)"PEEK    PEEK"[163]38)"PEEK"
560 [153]"  PEEK3PEEK"[163]19)"PEEK    PEEK"[163]38)"PEEK"
570 [153]"  PEEK4PEEK"[163]19)"PEEKCLOSECLOSECLOSECLOSE-LENLENLENLENLENLENLENLENLENLENLENLENLEN<"
580 [153]"  PEEK5PEEK"[163]19)"PEEK    PEEK"[163]38)"PEEK"
590 [153]"  PEEK6PEEK"[163]19)"PEEK    -LENLENLENLENLENLENLENLENLENLENLENLENLEN<
600 PRINT"  [194]7[194]"TAB(19)"[194]    [194]FIRST......  [158][194]"
610 PRINT"  [194]8[194]"TAB(19)"[194]    [194]SECOND.....  [158][194]"
620 PRINT"  [194]9[194]"TAB(19)"[194]    [194]THIRD......  [158][194]"
630 PRINT"  [173][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":RETURN
635 DATA 10,20,30,40,50,60,70,80,OO P.M.,2O P.M.,4O P.M.
640 DATA FAIR HAIRED,GONE TODAY,MISS KERNAL,DAM SITE,ANNIE HALL,SILKEN BOY
650 DATA HIGH BEAM,OUTSIDE GAL,END IT ALL,SHOO FLY PIE,BLUE CARESS,TWO WHEELER
660 DATA CROSS OVER,TEMPER CHEER,ROUND ABOUT,ABC-DEE,GOLD RUSH,TWO BY FOUR
670 DATA TOM'S HANDLE,CAREFUL LEE,FIRST TO GO,KING BEE,KEN'S WISH,SUN DANCER
680 DATA WAY TO GO,MISTER ED,WHISTLER,SPEED DEMON,STEAL AWAY,BLUE BONNET
690 DATA HI JACKS,SURRENDER,CAT-O-NINE,SUPER SAMMY,NUTS-N-BOLTS,FOUNTAIN
700 DATA GOT-MY-GOAL,BURN-EM-UP,CUNNINGLY,GLORY BEE,WELL ENOUGH,SILVER TOY
710 DATA NEVER TO DATE,LAZEE BLUE,DUAL PURPOSE,ELEMENTARY,TOO OLD NOW
720 DATA BUTTERCUP,NEED-TO-KNOW,DIS-CO-TECH,LOVINGLY,MEDICINE MAN,MISS LIBERTY
730 DATA SIR PRIZE,NOW OR NEVER,BETA GIRL,GOLDIE ROCKS,FIRST-IN-LINE
740 DATA OUTSIDER,BEST FOR YOU,CANDY MAN,ENTRY WAY,HEY BURNER,SUPER DUPER
750 DATA QUICK SET,WHILE AWAY,TEN-TO-TWO,WHO NOSE,JO-JO GIRL,IRISH GREEN
760 DATA KISS-N-TELL,BYE BYE BIRDIE,SINK STOPPER,STEAL AGAIN,MICKEY EMERALD
770 DATA POOL SHARK,BIG JAKE,AL'ASK'-A-BEE,NELLY OOP,JUNE BRIDE,VIDEO QUEEN
780 DATA ZIP LOCK,CAL-Q-LATER,FONE ME BABE,LITE BEERS,WILL-O-WISP,P-NUTTY
790 DATACAN O' BEANS,POKE 'N PEEK,PRAY FOR ME,OCTOBER MAE,SIX PACK,WHO CAN TELL
800 DATA LUCKY ME,FLASHLITE,COFFEE UP,CHATTY DADDY,JACK'N JILL,ANY OLE MONDAY
810 DATA FOXY LADY,PAR KING,IN MINOR KEY,NO VACANCY,HER MAJESTY,MYSTIC WAY
820 DATA PENSION PLAN,FRINGE ON TOP,MISS'B'HAVEN,SNORKELIN'SAM,GUT BUSTER
830 DATA 3,5,7,9,11,13,15,2,3,4,5,6,7,8,9,10,12,14,15,18,20
840 REM*** EST ODDS ***
850 D9=0:FORJ=1TOHY:I=INT(21*RND(1)+1)
860 D(J)=OD(I):D9=D9+D(J):D$(J)=OD$(I):NEXT
870 IFD9<6*HYORD9>7*HYTHEN850
880 RETURN
890 REM*** PRINT ODDS ***
900 PRINTSP$:FORJ=1TOHY:D2$=D$(J)
910 TB=21:IFLEN(D2$)=4THENTB=20
920 PRINTTAB(TB)D2$:FORT=1TO90:NEXT:NEXT:RETURN
930 REM*** BETTING ROUTINE ***
940 FORC=1TO3:FORV=1TO3:GOSUB2080:PRINTSP$:M=1:PRINTTAB(5)Y$(M)
950 GETG$:IFG$=""THEN950
960 IFG$="C"THENGOSUB1280:GOTO1230
970 IFG$<>CHR$(13)THEN1010
980 PRINTSR$(M+4)""TAB(5)A$(M)
990 PRINTSV$"  SELECTION IS "A$(M)TAB(33)"NO."M
1000 DG$(C,V)=A$(M):DN(C,V)=M:GOTO1030
1010 PRINT"[145]"TAB(5)A$(M):M=M+1:IFM>HYTHEN940
1020 PRINTTAB(5)Y$(M):GOTO950
1030 PRINTSP$"":M=1:PRINTTAB(25)PY$(M)
1040 GETG$:IFG$=""THEN1040
1050 IFG$<>CHR$(13)THEN1080
1060 PRINTSR$(M+10)""TAB(25)PL$(M)
1070 PRINTSV$""TAB(18)PL$(M)TAB(36)M:P(C,V)=M:GOTO1100
1080 PRINT"[145]"TAB(25)PL$(M):M=M+1:IFM>3THEN1030
1090 PRINTTAB(25)PY$(M):GOTO1040
1100 REM
1110 PRINTSV$+"";:FORI=1TO8:PRINT""WZ$(I);:NEXT
1120 PRINTSV$+"":M=1:PRINTTAB(4)WY$(M);
1130 GETG$:IFG$=""THEN1130
1140 IFG$<>CHR$(13)THEN1160
1150 WG=VAL(WX$(M)):GOTO1180
1160 PRINT"[157][157][157][157]"TAB(4)WZ$(M);:M=M+1:IFM>8THEN1120
1170 PRINTTAB(4)WY$(M);:GOTO1130
1180 PRINTSV$"[146]  AMOUNT OF WAGER IS .............$"WG:W(C,V)=WG
1190 PO(C)=PO(C)-WG
1195 PRINTTAB(10)"ANY KEY TO GO ON."
1200 GETG$:IFG$=""THEN1200
1210 PRINTSQ$:FORI=1TO5:PRINTER$:NEXT
1220 PRINT""SP$+""TAB(5)A$(1):NEXTV
1225 REM*** PRINT COMPUTER SELECTIONS *
1230 T1=7:T2=T1+15:T3=T1+22
1235 PRINT"[158]"SR$(14):FORI=1TO9:PRINTTAB(T1-1)F$(I):NEXT
1240 PRINTSR$(16)TAB(T1)PX$(C)
1245 PRINT""SR$(19):FORJ=1TO3
1250 PRINTTAB(T1)DG$(C,J);TAB(T2+2)P(C,J);TAB(T3)W(C,J):NEXT
1255 PRINTSR$(16)TAB(T3-1)INT(PO(C)):GOSUB450
1260 REM GETG$:IFG$=""THEN2685
1270 PRINTSQ$:FORI=1TO9:PRINTER$:NEXT:NEXTC:RETURN
1280 PRINT""SR$(4+M)TAB(5)A$(M)
1290 FORJ=VTO3:MR=INT(RND(0)*HY+1):DG$(C,J)=A$(MR):DN(C,J)=MR
1300 MR=INT(RND(0)*3+1):P(C,J)=MR
1310 MR=INT(RND(0)*8+1)*10:W(C,J)=MR:PO(C)=PO(C)-MR
1320 NEXT:RETURN
1330 FORC=1TO3:FORV=1TO3:CM(C,V)=0
1340 GOSUB1350:PO(C)=PO(C)+CM(C,V):NEXT:NEXT:GOTO1390
1350 IFDN(C,V)=WN(1)THENCM(C,V)=W(C,V)*C1(P(C,V))/20:RETURN
1360 IFDN(C,V)=WN(2)ANDP(C,V)>1THENCM(C,V)=W(C,V)*C2(P(C,V))/20:RETURN
1370 IFDN(C,V)=WN(3)ANDP(C,V)=3THENCM(C,V)=W(C,V)*C3/20
1380 RETURN
1390 REM*** PAYOFF SUMMARY ***
1392 FORC=1TO3:PRINT"";:FORZ=1TO11:PRINTTAB(8)BB$:NEXT
1395 PRINT""TAB(8)"" PX$(C)" ....SUMMARY   "
1400 PRINTTAB(9)"BET DOG FINISH  $  PAYOFF"
1410 PRINTTAB(9)"[195][195][195][160][195][195][195][160][195][195][195][195][195][195][160][195][195][195][160][195][195][195][195][195][195]"
1420 FORV=1TO3:PRINTTAB(9)""V;TAB(13)DN(C,V);TAB(17)FH$(P(C,V));
1430 PRINTTAB(24)W(C,V);:TB=29:IFCM(C,V)<100THENTB=30
1440 IFCM(C,V)=0THENTB=31
1450 PRINTTAB(TB)INT(CM(C,V)):NEXT:PRINTTAB(16)"POT ="INT(PO(C))
1460 PRINTTAB(12)" ANY KEY TO GO ON "
1470 GETG$:IFG$=""THEN1470
1480 NEXT:RETURN
1490 REM*** CALC PAYOFF ***
1500 C1(1)=INT((1.92*D(WN(1))+2)*10)
1510 C1(2)=INT((.81*D(WN(1))+2)*10)
1520 C1(3)=INT((.32*D(WN(1))+2)*10)
1530 FORI=1TO3:A=C1(I):GOSUB2150:C1$(I)=B$:NEXT
1540 C2(2)=INT((.83*D(WN(2))+2)*10)
1550 C2(3)=INT((.34*D(WN(2))+2)*10)
1560 FORI=2TO3:A=C2(I):GOSUB2150:C2$(I)=B$:NEXT
1570 C3=INT((.36*D(WN(3))+2)*10):A=C3:GOSUB2150:C3$=B$
1580 GOSUB450:GOSUB440:PRINTSQ$
1590 PRINT"  [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1600 PRINT"  [194]       PAYOFF FOR $2 TICKET        [194]"
1610 PRINT"  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][178][195][195][195][195][195][178][195][195][195][195][195][179]"
1620 PRINT"  [194]      DOG       [146][194]  WIN [146][194]PLACE[146][194]SHOW [146][194]"
1630 PRINT"  [171][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][219][195][195][195][195][195][219][195][195][195][195][195][179]"
1640 PRINT"  [194]1[194]              [194]      [194]     [194]     [194]"
1650 PRINT"  [194]2[194]              [194]      [194]     [194]     [194]"
1660 PRINT"  [194]3[194]              [194]      [194]     [194]     [194]"
1670 PRINT"  [173][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][177][195][195][195][195][195][177][195][195][195][195][195][189]"
1680 PRINTSQ$+"":FORI=1TO3:PRINTTAB(5)WN$(I):NEXT:FORT=1TO500:NEXT
1690 FORI=1TO3:TB(1)=21:TB(2)=27:TB(3)=33
1700 IFLEN(C1$(I))=4THENTB(I)=TB(I)+1
1710 PRINTSQ$+""TAB(TB(I))C1$(I);:NEXT:PRINT
1720 FORI=2TO3:TB(2)=27:TB(3)=33
1730 IFLEN(C2$(I))=4THENTB(I)=TB(I)+1
1740 PRINTTAB(TB(I))C2$(I);:NEXT:PRINT
1750 PRINTTAB(34)C3$:RETURN
1760 Z=0:REM*** FINISH RECORD KEEPING
1770 PRINTSQ$:FORI=1TOHY:PRINTI;TAB(FL)"[194]   "I:NEXT
1780 PRINTSQ$:FORJ=1TOHY:T(J)=3:PRINTTAB(T(J))QH$(J):NEXT
1790 FORJ=1TOHY
1800 IFD(J)<4THENX(J)=5:GOTO1860
1810 IFD(J)<6THENX(J)=4:GOTO1860
1820 IFD(J)<8THENX(J)=3:GOTO1860
1830 IFD(J)<10THENX(J)=2:GOTO1860
1840 IFD(J)<15THENX(J)=1:GOTO1860
1850 X(J)=0
1860 T(J)=T(J)+X(J):NEXT:GOSUB2130
1880 PRINTSQ$:FORJ=1TOHY:PRINTTAB(3)" ":NEXT
1890 PRINTSQ$:FORJ=1TOHY:PRINTTAB(T(J))QH$(J):NEXT
1900 J=INT(HY*RND(1)+1):IFT(J)=FL+2THEN1900
1910 PRINTSR$(J+14)TAB(T(J))" ":T(J)=T(J)+1:PRINTSR$(J+14)TAB(T(J))QH$(J)
1920 IFT(J)<FLTHEN1900
1930 IFT(J)=FLTHENZ=Z+1:WN(Z)=J
1940 IFZ<3THEN1900
1960 GOSUB2050:PRINTSR$(10)"[158]":FORI=1TO3:PRINTTAB(36)WN(I):NEXT
1970 FORI=1TO3:WN$(I)=A$(WN(I)):NEXT:GOSUB1490:GOSUB450:GOSUB1330
1980 GOSUB480:PRINT"":GOSUB490:RETURN
1990 M$(1)="=========== "
2000 M$(2)="  ANY KEY   "
2010 M$(3)="=========== ":GOTO2120
2020 M$(1)=" 5 MINUTES. "
2030 M$(2)="   PLACE    "
2040 M$(3)=" YOUR BETS. ":GOTO2120
2050 AR$=BK$+"RESULTS ARE NOW OFFICIAL"+BK$:GOTO2140
2060 AR$=BK$+"NEXT RACE IS AT "+NR$(N)+BK$:GOTO2140
2080 M$(1)=PX$(C)
2090 M$(2)=" BETS OR 'C'"
2100 M$(3)="FOR COMPUTER"
2120 PRINTSP$:FORI=1TO3:PRINTTAB(25)"[158] "M$(I):NEXT:RETURN
2130 AR$=BK$+"HERE COMES THE RABBIT"+BK$
2140 FORI=1TO53:PRINT"[158]"SR$(9)TAB(25)MID$(AR$,I,13):FORT=1TO50:NEXT:NEXT
2145 PRINTSR$(9)TAB(25)"             ":RETURN
2150 REM*** CONVERT TO PAYOFF PRINT ***
2160 R=INT(A/100)
2170 R$=STR$(R):IFR=0THENR$=""
2180 S=INT(A/10)-10*R:S$=STR$(S)
2190 T=A-100*R-10*S:T$=STR$(T)
2200 IFT=0THENT$="O"
2210 B$=RIGHT$(R$,1)+RIGHT$(S$,1)+"."+RIGHT$(T$,1)+"O":RETURN
2220 REM*** TITLE ***
2230 B$(1)="[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2240 B$(2)="[194]                       [146]    [194]"
2250 FORI=3TO4:B$(I)=B$(2):NEXT
2260 B$(5)="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
2270 PRINT"[147]":FORI=1TO5:PRINTTAB(5)B$(I):NEXT
2280 A$=BK$+"GOING TO THE DOGS"+BK$
2290 FORT=1TO1000:NEXT
2300 FORI=1TO25:PRINT""TAB(10)MID$(A$,I,19):FORT=1TO60:NEXT:NEXT
2310 FORT=1TO1000:NEXT
2320 PRINT"TYPE IN THE NAMES OF THE PLAYERS."
2330 PRINT"NO MORE THAN 12 CHARCTERS PER NAME."
2332 PRINT"OR PRESS RETURN FOR PLAYER BY # ONLY"
2340 FORI=1TO3:PRINT"INPUT NAME"I:INPUT" ";PX$(I):P2$(I)=PX$(I):XY=LEN(PX$(I))
2350 IFXY=12ORXY>12THENPX$(I)=LEFT$(PX$(I),12):GOTO2390
2360 IFLEN(PX$(I))<12THENLN=INT(12-LEN(PX$(I)))/2
2370 FORJ=1TOLN:PX$(I)=" "+PX$(I):NEXT
2380 FORJ=LEN(PX$(I))+1TO12:PX$(I)=PX$(I)+" ":NEXT
2390 NEXTI:RETURN
2400 PRINTCHR$(147)""TAB(8)"FINAL STANDING MONEYWISE"
2410 FORJ=1TO3:FORI=LEN(P2$(J))TO12:P2$(J)=P2$(J)+".":NEXT
2420 TB=24:IFPO(J)<1000THENTB=25
2430 PRINTTAB(10)P2$(J)"$"TAB(TB)INT(PO(J)+.5):NEXT
2450 PRINT""TAB(8)"THANK YOU AND GOODNIGHT.":END
3000 REM*** WAGER SUMMARIES FRAME ***
3110 F$(1)="[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][174]"
3120 F$(2)="[194]              [194] POT:$     [194]"
3130 F$(3)="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][178][195][195][195][195][179]"
3140 F$(4)="[194]     PICK     [146][194]FINISH[146][194] $$ [146][194]"
3150 F$(5)="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][219][195][195][195][195][179]"
3160 F$(6)="[194]              [194]      [194]    [194]"
3170 F$(9)="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][177][195][195][195][195][189]"
3180 FORI=7TO8:F$(I)=F$(6):NEXT:RETURN