ZXTape! 2 The National D&H Games;P.K. McManus, Tony Huggard, John de Salis, Shaun McClure1988English Simulation9.99NoneOriginal releaseTZXed by Ian Clarke,D&H v62032P:23658j\,8:236066\,194:236077\,241:0:0: x"":4:4:14,0:"":62074z:I=01:RA=(*256):65268+I,RA:I 14,0:"" S D&H>PIC Pq||WU8UUUUP8@L~O`c~|88WǫA?c`|UU@8U@~8~3`?; | 88~8~$??@@c`8UU8>8>< ??һ#?5Hc`88>|> @?uUU?UW?@c~8?}UU8|\ w"8 ?{_ox=/8?8|4ǔ0 UUP_?0?? qw/y o? O?x?>l~??> P_#0_?| l UUUUUUUUUUUUUU_gxw??'A/ l ʿ??? ?P|/^߿o n _?|? ?O-ϟ ? f ???~ ?@_30~{ f ` ?[?~s ?_|??@{| |} f =??0|0.|00?~{m;?&L UU@!dYH1~쪠 ;ff;c~`wwWUT6Z2 eYF1Xc>0fcfn~ffffffffffت*o;cFf`F U6{o޵6Z2 eYF1X~f>o;>|X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD8!>w#{( # >22>2222>22>2>!>w= > !xw#yw !2222>!!`9>'*w!h9>'*w = :0= ͆!:#~N###:(0>2+n+~'w:w+:w#> ###4+++r~ ++~ >2>2f:u:2:w<2##4:(r++~ [##~!( ~ O I###~O: : ?:(40 ++:w=2>####w#>w+++͋͠: ##~(++!(<ó=Ž:O:!w:w:<ˆ~ 8++~(+~2###~O+~GR9:*w##~!X9>*w:!>2##5~ ###4= ##~("8~O+~G:!x9>'*w= >2[2#B(S:!@~# !^!>##++(: :+ ># : >:2= }:2: 6: !4: 2::O:!= "((!x9> *w= :O!>!x !` !h9>'*w= :O!>!X9*>8w= :O!>!` !h9>'*w= :O!>:O:!= "((!p9((> >'*w= >!G>OxAOxOx@GCXGCK!>$&o!+| +| ~O+~G!X9>*w:O:GR9+++~*w!5> ~w+5( 0ʭڭNNJJJJNHHHHHHNBNHHNNBNBBNJJNBBBNHNBBNNHNJJNNBBBBBNJNJJNNJNBBNwuEEwrrBBrwwDDwwwAAwuwAAqwwAAwwwEEwwqAAqwwEEwwwAAwwuwFK`TpDxLhU{EfVXC|MYGrNo]ONJJJJNgHHHHHH^NBNHHNtNBNBBNWJJNBBB_NHNBBNNHNJJNNBBBBBNJNJJNNJNBBNwuEEwrrBBrwwDDwwwAAwuwAAqwwAAwwwEEwwqAAqwwEEwwwAAwwuw߫v>"28")*"20" 1:ç;ٰ"6";ç,"10";"COURSE INFO":B=K(ED,) "2",ç;U$(ED);"2","16";" ";P$(Q(ED,));" ";P$(Q(ED,"2"));"5","5";"COURSE : ";C$(D(ED,));"6","5";"ENTRIES : ";D(ED,"2");" RUN";"7","5";"DISTANCE : ";Q(ED,"4");("70"+(P$(Q(ED,)+"10")="JUMP ")*"7");"8","5";"GOING : ";P$(D(ED,)+"7") "9","5";"TYPE : ";P$(Q(ED,)+"10");"9","22";"RACE";"11","5";"1ST PRIZE : `";D(ED,"4");"12","5";"2ND PRIZE : `";D(ED,"5");"13","5";"3RD PRIZE : `";D(ED,"6") >"16","5";"HORSE ENTERED IN RACE BY";"17","5";T$(P()) 1"17","17";"NON RUNNER":B=çB="99""730" ,C(B,)>ç"17","17";N$(C(B,));" " "3800":"515" l"4":ڰ"4":ç::ڼ;ٰ"7";ç,ç;" ";T$(P());" STABLES ";ڰ"5";ç;"2",ç;"WEEKLY COSTS"  "4","4";"ENTRY FEE : `";I();"5","4";"FEEDING COST : `";I("2");"6","4";"JOCKEY COST : `";I();"7","4";"TRAINING COST : `";I("4");"8","4";"EMPLOYEE COST : `";I("5");"9","4";"VET BILLS : `";I("6") ;I(11 )>ç"10","4";"STUD FEE'S : `";I("11") /SPT="11","4";"SUPERTAX : `";SPT1 f"12","4";"RUNNING COST : `";("45"-(I("7")<ç)*"2");I("7");ڰ"5";ç;"14",ç;"D & H BANK"  "16","4";"BANK : `";P("2");"17","4";"BANK INTEREST : `";I("8"):I("9")>çٰ"7";"18","4";"BANK REPAYMENT: `-";I("9");"19","4";"WEEKS LEFT : ";(I("10")/"1E4") * EW= /@ڼ;ٰ"7";"21",ç;"BANK LOAN MENU " 42"820"+(="M")*"2790"+(="B"I("10")=ç)*"30" R4"4010":ڰ"5";"21",ç;"BANK OFFERS `150000 Y/N" \J="Y"I("10")="2E5":I("9")="1E4":P("2")=P("2")+"1.5E5":"770" f="N""770" p"860" z"770" EC=RC::HH=ç ڰ"4";,ç;U$(RC);" ";P$(Q(RC,));" ";P$(Q(RC,"2"));ڼ;ٰ"7";,ç;"NO HORSE FORM TD TG TT A GD" FI=P():I+"4",ç;I;"2";N$(C(I,));I+"4","11";F$(C(I,)) I+"4","18";G(C(I,),"4");I+"4","21";P$(G(C(I,),)+"7"):I+"4","25";" ";I+"4","26";G(C(I,),);I+"4","28";G(C(I,),"6");I+"4","30";G(C(I,),"2") I+"4","19";"F" (G(C(I,),)="74"I+"4","19";"M" I OZ=P("5"):"1230":"19",;"GRADE :";D(RC,"7");:D(RC,"7")="5""-45" D(RC,"7")="55""-75" D(RC,"7")="85""-95" QINP()DEA=ڰ"2";ٰ"7";"20","2";Y$;"11";"HAS BEEN DESTROYED":"990" 9INP()"20","2";"INJURY TO : ";N$(C(IN,)) Q"4010":ڰ"6";"21",ç;" ENTER TRAIN MENU AUCTION STUD" ="T"TR=ç"1050":"1140" j"1000"+(="E"P("2")>"1E3")*"330"+(="M")*"2610"+(="S"P()>"4")*"42"+(="A"P()>"4")*"400" d"1050":RA=ç:I=̰"6":RA=RA+(F$(C(TH,))(II)>"0"F$(C(TH,))(II)<"4"):I:RA<"4""990" IN="4":M("2",N)=C(TH,):"4412":I("11")=I("11")+(M(,N)/"35") )T=(*"15")+:"1048"-(T=P())*"2" XI=TH:"5023":G(C(TH,),"7")=T:C(TH,)=ç:P()=P()-:TT=ç:"1470":"900" B"4010":ڰ"6";"21",ç;"WHICH HORSE 1-";P():"3750":TH=K$ $ "1062"-(THP())*"12" & 8]"4010":ڰ"6";"21",ç;"DISTANCE:JUMP(1M-4M):FLAT(5F-8F)":"3750":A=K$ B"1100"-(A"8")*"20" L@G(C(TH,),)="70"+(A<"5")*"4":G(C(TH,),"4")=A:"900" VF"4010":ڰ"6";"21",ç;"WHICH GOING 1SOFT 2GOOD 3FIRM" `%"3750":S=K$:"1121"-(S) jG(C(TH,),)=S:"900" tCTR=:"4010":ڰ"6";"21",ç;"TRAIN ON DISTANCE GOING" ~%"1150"-(="D")*"80"-(="G")*"40" Ψ"16",ç;"WEEK.";EC;" ";"16","21";P$(D(EC,)+"7");"16","18";Q(EC,"4");("70"+(P$(Q(EC,)+"10")="JUMP ")*"7");"16","26";("70"+(Q(EC,)="2")*"4") D"19","17";"RUNNERS :";D(EC,"2");"18",ç;"HORSE ENTERED : " CK(EC,)=çK(EC,)="99""18","16";" NON RUNNER ":"1280"  B=K(EC,) ""18","16";N$(C(B,));" "  2?"4010":ڼ;ٰ"7";"21",ç;"WHICH HORSE ? ":"3750":A=K$ <AP()A=IN"1330" >D(EC,"7")="5"G(C(A,),"2")>"45"D(EC,"7")="55"G(C(A,),"2")<"55"D(EC,"7")="55"G(C(A,),"2")>"75"D(EC,"7")="85"G(C(A,),"2")<"85""970" @N=D(RC,"2") BC(A,)=X(N,)N="98" DN:"1350"-(N="99")*"380" Z*K(EC,)=A:C=P("5"):ETD=:I=P("5") dX(C,)=C(A,):"430" nZZ=A:"970" x@"4010":ڰ"6";"21",ç;"SELL WHICH HORSE ":"3750":DED=K$ %DEDP()P()<"4""900" )M("2","4")=C(DED,):N="4":"4412" JG(M("2",N),"6")>"6"RA=G(M("2",N),"6")-"5":M(,N)=(M(,N)/RA) !M(,"4")=:HAS="4":AUC=  "4450" AUC=ç:C(DED,)=ç:TT=ç I=P()+ C(I,)=çTT= gTT=I<"10"C(I,)=C(I+,):C(I,"2")=C(I+,"2"):C(I,)=C(I+,):C(I,"4")=C(I+,"4") I=P()+C(I,)=ç I: "4":ڰ"4":ç::B= !I=D(RC,"2"):RU=I:B=B+"2" DM=RU=Z(I) ܼ:ڼ;ٰ"7";ç,"8";"RUNNERS & RIDERS";ڰ"4";ç;,"2";U$(RC);" ";P$(Q(RC,));" ";P$(Q(RC,"2"));"2",ç;" " X(RU,)=çX(RU,)="99"ڰ"2";ٰ"7";B,ç;I;ڰ"5";ç;" : ------ VACANT ------ ";ڰ"4";B+,ç;" ":"1580" ^ڰ"2";ٰ"7";B,ç;I;ڰ"5";ç;"2";":";F$(X(RU,));" : ";N$(X(RU,));" : ";J$(X(RU,"2")) "mB+,ç;" ";T$(G(X(RU,),"7"));"10";":WEIGHT ";G(X(RU,),"5");B+,"21";":ODDS ";B+,"27"; $O(RU)="EVENS":"1580" & O(RU);"/1" ,qç:B>"15"I=D(RC,"2")ڰ"2";ٰ"7";"20",;D(RC,"2");" RUN : COURSE :";C$(D(RC,)):"3800":ç::B= 6I:ç @ DM= J "3610" TI"5":ڰ"5":ç::ڼ;ٰ"7";"2",ç;"PS TRAINER 1 2 3 PTS PRIZE " ^B=̰"15":I=̰"15" rT(I,)=Bڰ"5"-(I=P());B+,ç;T(I,);"2";T$(I);"12";T(I,);"15";T(I,"4");"18";T(I,"5");"21";T(I,"6");"24";"`";T(I,"7") |I:B  RC=ç ""21","10";"EDIT MENU" ="M""3610" $="E"tot="15":"3932":"1678"  "1672" *I=̰"15":T(I,)=ST$(I)=K$:I="16"  I:"1620" `:CNT=:ڰ"6";,"2";U$(RC);" ";P$(Q(RC,));" ";P$(Q(RC,"2")):"1690":"1770":"1780" mXX="4":I=̰"16":I+"2",ç;" ":I:I=CNTCNT+"14":X(I,)=çX(I,)="99""1694" GXX,ç;I;;N$(X(I,));"13";O(I);"/1":O(I)=XX,"13";"EVENS" XX=XX+:I: ڼ:ٰ"7":I="4"̰"18":I,"19";ڼ;" ":I:"4","20";"D&H BOOKIES";"7","20";"STAKE `";B();"18","19";"BANK `";P("2");"9","20";"BET:";:"1774"-B("6") "REVERSE":"1774" "STRAIGHT":"1774" "WIN" L"12","20";"HORSE No ";B();"13","20";"PRICE ";:B("2")="EVENS" B("2")>B("2");"/1" "1777"+(B("6")<"2")*"2" N"15","20";"HORSE No ";B("5");"16","20";"PRICE ";:B("7")="EVENS" B("7")>B("7");"/1"  ڰ"5":ç: Dڰ"6";"21",ç;"BET TIPSTER NEXT PAGE MENU " !T="N"D(RC,"2")>"15"CNT=CNT+"15":CNT=CNT-(CNT="31")*"30":"1690":"1780" &Q"1825"+(="B"P("2")>ç)*"15"+(="T"P("2")>"1E3")*"2295"+(="M")*"1785" 0kB("7"):"4010":ڰ"4";"21",ç;" 1=WIN 2=STRAIGHT 3=REVERSE ":"3750":A=K$:"1841"-(A) 1'B("6")=A:"1770":"1842"+(A>)* 2V"4010":ڰ"4";"21",ç;"WHICH HORSE ":"3750":E=K$:"1843"-(ED(RC,"2")) 3)"1844"-(X(E,)=çX(E,)="99")*"2" 4)B()=E:B("2")=O(E):"1770":"1870" 5'N=̰"2":Z$="1st":N="2"Z$="2nd" 6Z$=Z$+" HORSE" 7J"4010":ڰ"4";"21",ç;Z$:"3750":E=K$:"1848"-(ED(RC,"2")) 8)"1849"-(X(E,)=çX(E,)="99")*"2" 9N="2"E=B()"1847" :&N=B()=E:B("2")=O(E):"1852" ;B("5")=E:B("7")=O(E) < "1770":N N5"4010":ڰ"6";"21",ç;"HOW MUCH":"3750":F=K$ X)"1885"-(F"1E3"F>P("2"))*"15" ]$B()=F:B("6")=B()=F/"2" bP("2")=P("2")-F c-"1770":B("6")=B("4")=B("2")*B() d,B("6")>B("4")=B("2")*B()*B("7") l4B("4")=B("4")-((B("4")/"100")*"15"):"1780" V:"11","5";"HORSES GOING TO START":X(P("5"),)=çX(P("5"),)="99""6000" =SCO="10":ETD=ç:K(RC,)>çK(RC,)<"99"ETD=K(RC,) ETD=ç"2030" ڝSCO=SCO+(("16"-T(P(),))/)+(U(P("5"),)<"25")*(("26"-U(P("5"),))/"2"):RA=ç:I=̰"6":F$(C(ETD,))(I)<"1"F$(C(ETD,))(I)>"3""2014" !RA=RA+("6"-F$(C(ETD,))(I)) I:SCO=SCO+RA @RA=ç:RA=RA+(G(C(ETD,),)=TYP)*"7"+(C(ETD,"2")=TYP)*"7" GRA=RA+(G(C(ETD,),"4")=Q(RC,"4"))*"7"+(C(ETD,)=Q(RC,"4"))*"7" CRA=RA+(G(C(ETD,),)=D(RC,))*"7"+(C(ETD,"4")=D(RC,))*"7" 9SCO=SCO+RA:(((P("5")-)*"8")+"65003"),(SCO/"10") 7I=D(RC,"2"):SCO="10":P("5")=IETD>ç"2092" SCO=SCO+(("16"-T(G(X(I,),"7"),))/)+(U(X(I,"2"),)<"25")*(("26"-U(X(I,"2"),))/"2"):RA=ç:N=̰"6":F$(X(I,))(N)<"1"F$(X(I,))(N)>"3""2036" RA=RA+("6"-F$(X(I,))(N)) N:SCO=SCO+RA  (RA=:RA=RA+(G(X(I,),)=TYP)*"14" *RA=RA+(G(X(I,),"4")=Q(RC,"4"))*"14"  &RA=RA+(G(X(I,),)=D(RC,))*"14" *3SCO=SCO+RA:("65003"+((I-)*"8")),(SCO/"10") ,I 0"4":ڰ"4":ç::ټ;"2","18";U$(RC);,"18";P$(Q(RC,));" ";P$(Q(RC,"2"));ٰ"6";"6","18";"GOING : ";P$(D(RC,)+"7");ٺ;"7","18";"DISTANCE: ";Q(RC,"4");("70"+(Q(RC,"4")<"5")*"7");ٰ"6";"8","18";"TYPE : ";P$(Q(RC,)+"10")(̰"4");ٰ"7";"9","18";"RUNNERS : ";D(RC,"2") TETD>çٰ"2";"12","18";T$(P());"13","18";P("5");"21";N$(X(P("5"),)) Sٰ"6";"17","18";"BETS ";B();"&";B("5");ٰ"7";"18","18";"STAKE `";B() PI=ç̺:"129","12"+(I*"40"):"126",ç:I:FJ="2""21","21";"FALLERS" "65240",D(RC,"2"):"65247",D(RC,"2"):DI=Q(RC,"4"):FE="30"-(DI="7"DI=)*"6"-(DI="6"DI="2")*"14"-(DI="5"DI=)*"22":FE=FE-(FJ=)*FE:DI=DI-(FJ="2")*DI wFE=FE-(FE>ç):DI=DI-(DI>ç):"65242",DI:"65243",FE:ETD>çCOL="64999"+((P("5")-)*"8"):COL2=COL:COL,COL1  "62914": rOTR=ç:ZZ=ç:SCT=ç:"21",;ۼ;ٰ"7";ڼ;"PLEASE WAIT":ETD>çCOL,COL2 tlI()=ç:I()=ç:K(RC,)>çK(RC,)<"99"I()="200"+(U(X(P("5"),"2"),"2")*"20"):I()="1E3" ,Z("30"):G=D(RC,"2"):N=D(RC,"2") %(((N-)*"8")+"65000")=GZ(G)=N N:G "RA=+(*"10"):RAɺ"3060" ٰ"7";"8",;"STEWARD'S";"9",;"ENQUIRY";"10",;"DISQUALIFIES":RA=+(*(D(RC,"2")-)):RB=Z(RA):"12",;RB;"6";N$(X(RB,)):X=RA+D(RC,"2"):(((Z(X)-)*"8")+"65000"),X-:Z(X-)=Z(X):X:(((RB-)*"8")+"65000"),D(RC,"2"):Z(D(RC,"2"))=RB U(X(Z(),"2"),"2")=U(X(Z(),"2"),"2")+:U(X(Z("2"),"2"),"2")=U(X(Z("2"),"2"),"2")+"2":U(X(Z(),"2"),"2")=U(X(Z(),"2"),"2")+ I=D(RC,"2") [K=̰"5":F$(X(I,),K)=F$(X(I,),K+):K:F$(X(I,),"6")=(((I-)*"8")+"65000") N[(((I-)*"8")+"65000")>F$(X(I,),"6")="0":G(X(I,),"2")=G(X(I,),"2")-"10" X[("65004"+("8"*(I-)))=F$(X(I,),"6")="F":G(X(I,),"2")=G(X(I,),"2")-"10" b I:B=".4" lN=̺:B=B-".1":G(X(Z(N),),"5")=G(X(Z(N),),"5")+B:T(G(X(Z(N),),"7"),"6")=T(G(X(Z(N),),"7"),"6")+"4"-N:T(G(X(Z(N),),"7"),"2"+N)=T(G(X(Z(N),),"7"),"2"+N)+:G(X(Z(N),),"2")=G(X(Z(N),),"2")+"40"-(N*"10") nT(G(X(Z(N),),"7"),"7")=T(G(X(Z(N),),"7"),"7")+D(RC,+N):N:P("2")=P("2")+(P("5")=Z())*D(RC,"4")+(P("5")=Z("2"))*D(RC,"5")+(P("5")=Z())*D(RC,"6") eI=̰"70":G(I,"2")=G(I,"2")-(G(I,"2")>"95")*(G(I,"2")-"95"):G(I,"2")<"5"G(I,"2")="5" I:WI="0"+(B("6")=Z()=B()B("6")="2"Z()=B()Z("2")=B("5")B("6")=Z()=B("5")Z("2")=B()B("6")=Z()=B()Z("2")=B("5")):P("2")=P("2")+(WI=)*B("4") }B=ç::ڰ"2";ٰ"7";ç,ç;" THE WINNER OF THE ";ڰ"6";ټ;,"2";U$(RC);" ";P$(Q(RC,));" ";P$(Q(RC,"2")) gN=̺:B=B+:ټ:N+"4":B,ç;" " =K$=N+("115"-(N="2")*"5"-(N=))+("116"-(N>)*"16") RB,ç;K$;"4";"No ";Z(N);"10";":";N$(X(Z(N),));"21";": ";J$(X(Z(N),"2")) qB+,ç;" ";T$(G(X(Z(N),),"7"));"10";":WEIGHT ";G(X(Z(N),),"5");B+,"21";":ODDS ";B+,"27"; *O(Z(N))=N+"4";ټ;"EVENS":"3255" O(Z(N));"/1" N:ڰ"4":ç ƉS=ç:N=̺:S=S+"2":S+"10","6";N;" PRIZE OF `";D(RC,+N);S+"11","10";"TO ";T$(G(X(Z(N),),"7")):N:"3300"-(WI=)*"20" ~ں;ٰ"7";"18","7";"BOOKMAKERS RETURN";ڰ"5";ç;"19",;T$(P());" BET PAID OUT `";B("4"):P("2")=P("2")+B("4") DM="3390" '"5005":I=̰"15":T(I,)="15":I 'I=̰"15":Z=̰"15":"3330"+(I=Z) RT(I,)=T(I,)-(T(I,"6")>T(Z,"6")):T(I,)=T(I,)-(T(I,"6")=T(Z,"6")IU(I,"2")) }E1=U(X,"1"):E2=U(X,"2"):K$=J$(X):U(X,)=U(I,):U(X,"2")=U(I,"2"):J$(X)=J$(I):U(I,)=E1:U(I,"2")=E2:J$(I)=K$ "I:X:I=̰"30":U(I,)=I:I: >>ڰ"6";"21",ç;" FINISHING ORDER NEXT RACE " H ="F"DM=:"1520":"3230" R ="N""5005":"3350":"10" \ "3400" Y"2":ڰ"2":ٰ"7"::RA="2":RB=:I=D(RC,"2"):"3505"+(X(I,)="99"X(I,)=ç) WRA,RB;I;RB+;N$(X(I,)):RA=RA+:RB=RB+(RA="17")*"15":RA=RA-(RA="17")*"15" I:I="18"̰"19":ڰ"5";I,;" ":I:ڰ"5";ټ;"18","5";"HORSE";"14";"FORM";"26";"AGE":"3512":"3515" !"20","9";"BANK `";P("2"): >ں;"21",ç;" CHOOSE HORSE MENU EDIT HORSE " -"3516"+(="C")+(="M")*"94"+(="E")*"34" SCT=:P("2")=P("2")-"1E3":"3512":"21",ç;"ENTER No OF HORSE TO LOOK AT ":"3750":A=K$:"3525"-(AD(RC,"2"))*"5" ^"21",ç;"ENTER No OF HORSE TO LOOK AT ":"3750":A=K$:"3525"-(AD(RC,"2"))* "3530"-(P("5")=A)*"8" jڰ"5":ټ:"19","4";N$(X(A,));"13";F$(X(A,));"27";G(X(A,),"6"):RA=+(*"4"):"3530"+RA _"18","20";"DIST";"19","21";G(X(A,),"4");("70"+(G(X(A,),)="74")*"7"):"3534" C"18","20";"GOING";"19","20";P$(G(X(A,),)+"7"):"3534" PRA="11"+(G(X(A,),)="74"):"18","20";"TYPE";"19","20";P$(RA)(̰"4") "3800":"3610" O"4010":"21",ç;"WHICH HORSE":"3750":A=K$:"3551"-(AD(RC,"2")) #X(A,)=çX(A,)="99""3500" 3"4010":"21",ç;"HORSE ";A;" NEW NAME (8 MAX)" .K$:"23658","8":"3566"-(K$<űK$>"8") 'K$<"8"I=K$+̰"8":K$=K$+" ":I I=̰"70":K$=N$(I)I="98" I:"3575"-(I="99")*"15" N$(X(A,))=K$:"3500" 1"62033":"62074"::"5":ڰ"5":ç::DM=ç .7"21",ç;"NEXT : ";P$(FJ+"10");"RACE : WEEK NO.";RC 8 ç,;"START RACE";"18";"RUNNERS";,;"AUCTION";"18";"FIXTURES";"6",;"TRAINING";"18";"LEAGUE";"9",;"JOCKEY HIRE";"18";"BANK";"12",;"BOOKIES";"18";"COLOURS";"15",;"SCOUT";"18";"SAVE" B"3655"-(="S"P("2")>"1000"SCT=ç)*"155"-(="X")*"3140"-(="K")*"2885"-(="R")*"2135"-(="T")*"1655"-(="A")*"2755"-(="E")*"2035"+(="L")*"365"+(="V")*"645"+(="O")*"175"+(="U")*"795"-(="I")*"1975" G "3650" K$ K$="""3750"  I=̱K$ $K$(I)<"48"ůK$(I)>"57""3750" I:"23658","8": 8ڼ;ٰ"7";"21",ç;" PRESS C TO CONTINUE "  ="C"  "3800" ç:ڰ"5":B=P("5")::ڰ"4";,ç;" YOUR JOCKEY : ";J$(X(B,"2"));" ";"21",ç;"E EDIT C CHANGE JOCKEY M MENU "  I=̰"15" bڰ"6":ټ:(U(I,)=);(J$(X(B,"2"))=J$(I));I+,ç;I;;J$(I);"13";":";U(I,"2"):ç:ç (U(I+"15",)=);(J$(X(B,"2"))=J$(I+"15"));I+,"17";I+"15";"20";J$(I+"15");I+,"29";":";U(I+"15","2"):ç:ç:I  RC=ç K$="E"TOT="30":"3932":"3830" P7"3915"-(="M")*"305"+(="C"D(RC,"2")<"30")*"25" \G"4010":"21",ç;"WHICH":"3750":S=K$:"3934"-(STOT)*"2" ^O"4010":"21",ç;"NAME":K$:"23658","8":"3936"-(K$<űK$>"9")*"2" ` TOT="15" b J$(S)=K$: dQ"4010":ڰ"6";"21",ç;"WHICH JOCKEY":"3750":S=K$:"3941"-(S"30") n"3960"-(U(S,)=)*"20" xAڰ"7";"20",;J$(S);" WILL COST `";"200"+(U(S,"2")*"20") "99" AT=P("5"):U(X(T,"2"),)=ç:X(T,"2")=S:U(S,)=:"3830" I("7")=ç:I=̰"6":I("7")=I("7")+I(I):I:I("7")=I("7")-I("11"):"4002":P("2")=P("2")-I("7"):EW=:"770":EW=ç: jSPT=(P("2")>"2E6"):SPT1=("0"+(SPT=)*((P("2")/"100")*"30")):I("7")=(I("7")+(SPT=)*SPT1): 0"21",ç;" ": i"4":ڰ"4":ç::"4040":"10","9";"I CHANGE INK";"12","9";"P CHANGE PAPER";"14","9";"M MENU" <="P"COL4=COL4+"1":COL4=COL4-(COL4="8")*"8":"4040" <="I"COL3=COL3+"1":COL3=COL3-(COL3="8")*"8":"4040" "4030"-(="M")*"420" 5ܼ;COL4;COL3;"7","15";"1":COL1=("22767"): DRC=ç:I("11")=(I("11")/"2"):PER=("6.6"*("16"-T(P(),))) T"5":ڰ"5":ç::,"9";"END OF SEASON";"5","5";T$(P());" RATING ";PER;"%" 6"3800":"3830":"3800":"1620":"3800":"5005" PER=ç:K("28",):T("30","7"):N=̰"70":G(N,"6")=G(N,"6")+:G(N,"5")="8.1":N:"5010":I=̰"30":I<"16"T(I,"2")=I:T(I,)=I !U(I,"2")=ç:I:"5005":"10" RP("2")=P("2")-"1E3":ٰ"7";ڰ"2";"20",ç;"TIPSTER SAYS BET ON " $RA=ç:I=D(RC,"2"):RA=RA+O(I) I:RA=(RA/D(RC,"2")) "LRB=ç:K$=" ":I=D(RC,"2"):K$="32"O(I)>çO(I)RAK$=N$(X(I,)) ,#X(I,)=çX(I,)="99""4160" 6iP("5")IG(X(I,),)=D(RC,)G(X(I,),)=TYPRB=:ٰ"7";ڰ"2";"20","21";N$(X(I,)):"99" ;cI=P("5")C(ZZ,"2")=TYPC(ZZ,"4")=D(RC,)RB=:ٰ"7";ڰ"2";"20","21";N$(X(I,)):"99" @'I:RB=çٰ"7";ڰ"2";"20","21";K$ J "1780"  ["23635","23627":"23636","23628":"TN_SG":"23635","203":"23636","92":"3610" 26V("70"):M("6","4"):HAS="0"+(*"4"):HAS=ç 4 N=HAS 6KM("2",N)=+(*"70"):G(M("2",N),"7")=P()V(M("2",N))="4406" 7sM("4",N)=G(M("2",N),):M("5",N)=G(M("2",N),):M("6",N)=G(M("2",N),"4"):FJ=M("4",N)="70""4406" 8"FJ="2"M("4",N)="74""4406" :RA=(*"2"):G(M("2",N),)="70"+(RA=)*"4":G(M("2",N),)=+(*):RA=+(*"4"):G(M("2",N),"4")=RA+(G(M("2",N),)="70")*"4":M(,N)=:V(M("2",N))=:"4412":"4418" RA=("5"-F$(M("2",N),Z)) @M(,N)=M(,N)*RA:Z: BJG(M("2",N),"6")>"6"RA=G(M("2",N),"6")-"5":M(,N)=(M(,N)/RA) DN: b\::B="30000":ڰ"6";ç,"9";"HORSE AUCTION";,ç;"NO. NAME FORM DIST GO TP GD A" dI=HAS:M(,I)=ç"4472" f2I+"2",ç;I;" ";N$(M("2",I));" ";F$(M("2",I)) vI+"2","18";G(M("2",I),"4");I+"2","21";P$(G(M("2",I),)+"7"):I+"2","25";" ";I+"2","26";G(M("2",I),);I+"2","28";G(M("2",I),"2");I+"2","31";G(M("2",I),"6") xI \ڰ"6";"21",ç;"BID ON A HORSE MENU ";"20",ç;"BANK `";P("2") .="B"P()<"10"HAS>çP("2")>ç"4490" AUC=A="4":"4493" ="M""3610"  "4482" <"4010":"21",ç;"WHICH HORSE TO BID ON":"3750":A=K$ AHAS"4450" M(,A)=ç"4450" nTOP=M(,A):RA="20":E=P():"8",ç;"STARTING BID `";M(,A);"9",ç;"FOR SALE ";N$(M("2",A)) AUC="4500" /"4010":"21",ç;"YOUR BID":"3750":B=K$ "4497"-(B>P("2"))*"2" BTOP"4500" :TOP=B:"11",ç;T$(P());" `";B:"4500"+(RA=ç)*"20" \RA="0"+(*"21"):"4501"-(E=P()RA="0"E=P()AUC=çRA>"18"E=P()AUC=RA=ç) B"4502"+(RA=çAUC=)*"18"+(RA>"18"AUC=çRA=çAUC=ç)*"8"  RB=+(*"1000"):TOP=TOP+RB +RZ=+(*"15"):"4505"-(RZ=P()RZ=E) 0E=RZ:"12",ç;T$(E);" `";TOP:"99":"4500" BM(,A)"4520" $"4010":"21",ç;"BID AGAIN Y/N" ="Y"E=P():"4495" "N""4512" >"15",ç;"SOLD TO ";T$(E);" FOR `";TOP:G(M("2",A),"7")=E E=P()"5000" xAUC=RA=(TOP/"100")*"10":RB=(TOP/"100")*"33":TOP=TOP-(RB+RA):P("2")=P("2")+TOP:P()=P()-:"1460" &AUC=ç:M(,A)=ç:"3800":"4450" :P("2")=P("2")-B:P()=P()+:C(P(),)=M("2",A) KC(P(),"2")=M("4",A):C(P(),)=M("6",A):C(P(),"4")=M("5",A): <ڰ"2";ٰ"7";"21",ç;" PLEASE WAIT ": "5020":I=̰"28":RA=(I/"2"):RA=RA-RA:D(I,"7")="55"-(RA>ç)*"50":D(I,"7")=D(I,"7")+(I="6"I="14"I="22"I="28")*"30":D(I,"4")=("15000"+(D(I,"7")="55")*"10000"+(D(I,"7")="85")*"45000")+(*"10000"+(D(I,"7")="55")*"25000"+(D(I,"7")="85")*"30000") D(I,"5")=(D(I,"4")/"20"):D(I,"6")=(D(I,"4")/"30"):D(I,)=(+*):D(I,"2"):D(I,)=(+"15"*):I:D("28",)="15": "15","8","22","14","9","30","11","27","5","14","13","24","12","7","20","17","15","11","18","15","25","14","9","19","12","8","17","30" [G(I,"2")="45":Z=̰"6":A=-"4"+(*"9"):A=A-(A<ç)*A:A="4"F$(I,Z)="F":"5025"  F$(I,Z)=A G(I,"2")=G(I,"2")+(A>çA<"4")*(("4"-A)*"10")-(A=çA="4")*"10":G(I,"2")=G(I,"2")+(G(I,"2")<"5")*("5"-G(I,"2"))-(G(I,"2")>"95")*(G(I,"2")-"95"):Z:G(I,"5")="8.1":G(I,"6")=(+"7"*) jRA=+(*"2"):G(I,)="70"+(RA="2")*"4":G(I,"4")=+(*"4")+(RA=)*"4":G(I,)=+(*): pRA=+(*"70") q4I=D(RC,"2"):X(I,)=çX(I,)="99""6003" rN$(X(I,))=N$(RA)I="98" sI:I="99""6000" t)I=P():N$(C(I,))=N$(RA)I="98" uI:I="99""6000" v>X(P("5"),)=RA:I=P("5"):ETD=:"430":ETD=ç:"2002" pptcololol0tƩF FM NOVICESTAKESHURDLECHASE MAIDENCUP SOFT GOOD FIRM FLAT JUMP MIPOLISH MASKEEN EYELIGHTCONVICT IMPANY RESHA ROCKY FANMAN SEASKILLMURHAF COOL SUNISSEN FLOYD LECTOR HARLEY DEL MAR PURE T MERWOOD HOW NOW WAZAN NERINA KINGTOR SHOUT SKY CAT ALL FAIRGREER INHERIT AMENABLECANTINA MEGABIT BRUNAN OWEN TAXIADS MAD MAX COWLEY RUNAWAY MY REEF AJAL RED RUM GRITTER JAZETAS BELL BOYVALTAKA NOTUS DEBDEN ALCEBAR GOMEZ PETROC SUN DOG PRADEL I.O.U. CARMELS ZOOMIN NATELL JESTON MR MOSS KEYCORN DARKSIDEACTIA JEZAIL SIDVIC LUCKSIN DROWSY BAD CAT PANIC VELESO CUMREW UP WELL SAY YOU ACLAIM MISS IT FARMER DABBER Ԍ M.PIPE F.WINTER J.EDWARDSA.MOORE J.GIFFORDG.BALDINGN.CRUMP D.BARONS T.FOSTER C.LAMB E.GRAY W.JONES D.SMITH F.WALWYN S.MELLOR ù ASCOT HAYDOCK CHEPSTOW DONCASTER KEMPTON NEWBURY KELSO SANDOWN WINDSOR WORCESTER DEVON & EX FOLKESTONE HEXHAM CATTERICK AINTREE  J.QUINN P.TUCK S.NIGHT R.ROWE C.GRANT R.LAMB M.DWYER C.SMITH G.MOORE T.MORGAN P.LEACH S.CAUTHENA.WEBB P.HOBBS L.PIGGOT T.WALL K.JONES M.LOWE R.CRANK C.MANN P.EDDERY B.HALES P.SHORT F.GRAY J.DESALIST.HUGGARDP.MCMANUSW.CARSON C.CULLEN C.RUTTER ՍPRINCE CHARLESKING GEORGE IVFLYING CHILDERCAREL ECLIPES THE NOVEMBER THE DERBY CHARTERHOUSE FLYING CHILDER1000 GUINEAS THE LINCOLN THE MACASON YORKSHIRE CHARITY GOLD THE ST LEDGER TOTE GOLD CHARTERHOUSE TSAREVICH SAPLING MAIDENSOUTHFEET DUNSTALL ST LEDGER THE OAKES D&H BANK CUP THE GOLD CUP CATHCART 1000 GUINEAS CHAMPAGNE GRAND NATIONAL5S  4HR2  %DEA=ç:RC=RC+:RC>"28""4080" @I("10")=I("10")-"1E4":I("10")P()"50" *1I("6")=I("6")+"500":"50"-(P()>"4")*"6" ,(RA=+(*"20"):"46"+(RA>"2")*"4" .]DED=IN:Y$=N$(C(IN,)):P()=P()-:DEA=:"1460":I=C(IN,):"5023":G(I,"6")= 2 < N=P() F PkG(C(N,),"6")>"9"U="20000":DED=N:I=C(N,):P()=P()-:"1450":"5023":G(I,"6")=:"60" ZN dI=̰"70":"110":"120" n'G(I,"6")>"9""5023":G(I,"6")= s xI I=̰"5" I="2"I(I)="250"*P() I="4"I(I)="300"*P() I="5"I(I)="200"*P() I("7")=I("7")+I(I):I oI("7")=I("7")-I("11"):I("11")=I("11")-(I("11")>"1E4")*(I("11")-"1E4"):I("11")<"100"I("11")=ç ;"4002":X("30","2"):V("70"):P("2")=P("2")-I("7") CM=Q(RC,"4")  FJ=Q(RC,) "4402" FJ=TYP="70":"250" TYP="74" =EM=+(*D(RC,"2")):I=D(RC,"2"):"260"+(I=EM)*"30" PK=+(*"70") "PK=PK+:PK=PK-(PK="71")*"70" V(PK)="261" G(PK,"7")=P()"261" X(I,)=PK:V(PK)= "I , 6P("5")=EM:X(EM,)="99" @ JB("7"):A=K(RC,) TA>çX(P("5"),)=C(A,) ^%V("30"):N=̰"30":U(N,)=ç:N hI=D(RC,"2") r$GM=(+"30"*):V(GM)="370" |0X(I,"2")=GM:U(GM,)=:V(GM)=:ETD=ç:I "4000":I("8")=(P("2")/"600"):I("8")=I("8")+(I("8")<)*I("8"):P("2")=P("2")+I("8"):P("2")çP()<"5":ۼ;"11","8";"YOU ARE BANKRUPT":ç: V("70"):O("30") I=D(RC,"2") "X(I,)=çX(I,)="99""490" :O(I)=:Z=̰"6":F$(X(I,),Z)="F"RA="2.6":"450" &F$(X(I,),Z)="0"RA="2.2":"450" !RA=".6"+(".4"*F$(X(I,),Z)) O(I)=O(I)*RA Z -O(I)=(O(I)/"2"):D(RC,"2")>"11""480" &RA="12"-D(RC,"2"):O(I)=(O(I)/RA) O(I)<"2"O(I)=  ETD=  I:"3610" P1="1":P2="8" P:A="2":ٰ"7";ڰ"2";ç,ç;"(NO.) RACE MEETINGS ";ç,"24";"WEEK ";RC