ZXTape! 2 Classic Trainer GTI Software  Stephen Bye1989EnglishManagement StrategyUnknownNoneOriginal ReleaseTZXed by Andrew Barkertrainer ]f ,60599:4:4:4: /0;" LOOK OUT FOR CLASSIC PUNTER":"" 20,0; ("" 220,0; <"" 2  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>0r|~~@)q@~~~~~~ A u?C U@~~~~~>@]XU@~~~~~Q@x~~~]w@TA~~A?ƙX@>8DTB~~>@;|?|~C $\G~~````````````````````````g`` @|```````````````````a`P1``````````````b``(?`````````````8PP0c8P @>R$p?u <??<???~ s|??8s~ 9!<<<?<<<<<<<<0  c0c   1 <<?????@@xz<?<<<<<9GG|?<<<#z  !X 6! ͵ 6# !XZ  > w#>G>!X~(=w# x v < >͞ #$* \^F >({{ƀOF^ >({{ƀ!Xw#q#F>08qw#wq#q#w#9{80  DHpHDBBfZBBBBbRJFB蘀bd&F(*D:  >>> ~BFF~~~@~|~~`f~~@~~|@~F~~ <$~f~~B~ >>K\:Q8 :Q8 K\ ![%"6\:QK\ =  :Q_GK\{ =  CzzW*V"6\!["N*Lnů%0>2P #:QKR[T:P !0:Q O"0 W #0_= CRST*N:QKR[Tp=q( =r(=s#= "N:QGH>[<RJ<|BB|DB<@<B<BBBBB<*]\"_\CÕ4 B"23607","250":"23675","48":"23676","242":"23609","70" l="63700":"23607","250" BL="63700":"23607","60":"0":ڰ"0":ٰ"6"::E$="CLASSIC":"65361","4":"5","2";:L="64929":E$="TRAINER":9 ,2;:L=64929:0:0:2:E$="(C)1989 G.T.I":65361Q,2:15,2;:L=64929:236077\,60<:19,9 ;4;"AUTHOR S.BYE" ]"23607","250":U(I,P,L)="60830":I="5":P="1":L="20":D=U(I,P,L)  "9900" "23658","8" "PLEASE INPUT YOUR NAME ";Y$ Y$>10 7 Y$=""Y$="MR A. GIT" "31" C:''"ARE YOU SURE YOU WANT":'"TO SAVE THE GAME?":Q$:Q$="Y" "300" O:''"PLEASE CONFIRM YOU WANT":'"TO LOAD A SAVED GAME?":"Y/N";Q$:Q$="Y" "300" RN="1"EC=RC1:DIS="5" RN="2"EC=RC2:DIS="14" RN="3"EC=RC3:DIS="16" HE="1"FC=F1:CC=C1 HE="2"FC=F2:CC=C2 HE="3"FC=F3:CC=C3 HE="4"FC=F4:CC=C4 HE="5"FC=F5:CC=C5  "300" HE="1"RN="1"RC1"500"BA=BA-500:JH="1":RET="1":JJ=(*3)+1:"18","8";ٰ"2";;V$(JJ);" HIRED":HH=JJ:.9ffff,"12":"200":"80" ^="W"BA>"199"F1=F1+(*2):BA=BA-200:F2=F2+(*2):F3=F3+(*2):F4=F4+(*2):F5=F5+(*2):"130":"18","6";ٰ"2";"WORK OUT IN PROGRESS":L="60780":"0":L=60640:"80" _="V"BA>"2000"IN1="0":IN2="0":IN3="0":IN4="0":IN5="0":BA=BA-2000:"18","7";ٰ"2";"ALL INJURIES CURED":.9ffff,"36":"80" `="E"L="60640":"1000" a="L"L="60640":"200" c"92" dERC1=(*9 )+"1":RC2=(*9 )+"1":RC3=(*9 )+"1" o xs"15","6";"HORSE";ٰ"4";" 1 2 3 4 5";"16","8";ٰ"7";"FIT";ٰ"6";" ";F1;" ";F2;" ";F3;" ";F4;" ";F5: .F1>9 IN1=1IN1="1":F1=0 1F2>9 IN2=1IN2=1:F2=0 1F3>9 IN3=1IN3=1:F3=0 1F4>9 IN4=1IN4=1:F4=0 1F5>9 IN5=1IN5=1:F5=0  DOD2TD2HD2FD2ID29996 '  HE="1"IN1="1""197" HE="2"IN2="1""197" HE="3"IN3="1""197" HE="4"IN4="1""197" HE="5"IN5="1""197"  ;"21","0";ڰ"1";۰"1";A$(HE);" WAS INJURED IN RACE ": OL>"20000"OL="20000" F"0":ڰ"0":ٰ"9"::B$="CURRENT BALANCE $":"8992":"1","17";BA 7OLǰ"0"WL<"4"B$="OVERDRAFT UNAVAILABLE":"8992" [ PP>"0"''"YOU STILL OWE US $";PP:"PAY OFF LOAN? Y/N";Q$:Q$"N""260":250 U PP>"0"OLǰ"0"WL<"4""21","0";"ANY KEY":"0":L="60780":"0":"1000" .B$="CREDIT LIMIT $":"8992":"3","14";OL +B$="CURRENT INTEREST RATE 12.5%":"8992" ':B$="MINIMUM LOAN IS $1000":"8992" %"DO YOU STILL WANT A LOAN? ";Q$ Q$="N"L="60780":"1000" <"HOW MUCH DO YOU WISH TO BORROW? $";S$:"8801":LOAN=S$ FF=LOAN/"8" *LOAN>OLLOAN<"1000"װ"1","1":"1000" BBA=BA+LOAN::B$="YOUR CASH IS NOW $":"8992":"9","18";;BA zB$="YOU OWE THE BANK $":"8992":"11","18";LOAN:"50":.09}8Q,"10":ٰ"6";'"+$";ٰ"7";;FF;ٰ"6";" INTEREST" PP=LOAN+FF K ٰ"6":LK=WL+"20":P=PP/LK:';WL+"20";" WEEKLY PAYMENTS AT $";ٰ"7";P OL=OL-LOAN ""0":L="60780":"0":"1000" #BA"9":KK=OR/9 :"10","0";"AFTER 9 SEASONS":'"YOUR OVERALL RATING IS ";KK;"%":'"YOU WON ";DW;" DERBYS":'ٰ"6";"PRESS A KEY FOR A NEW GAME":װ"2","15":"100":"0":"3" EK$="Q"L="60640":"3" F&K$="C"WL>"0"L="60640":"1000" G,START="0":SEAS="1"WL="20"START="1" JlK$="D"START="1""NEW LEVEL? 1 (EASY) TO 3 ";X$:X$>"51"ůX$<"49"űX$ɰ"1"װ"1","1":"300" KK$="D"START="1""8800" MK$="D"START="1"XX="1"I$="EASY":BA="5000":C1="3":C2="3":C4="4":C5="4":C3="4":F1="3":F2="3":F3="4":F4="4":F5="5":"300" NK$="D"START=1XX="3"I$="HARD":BA="3000":C1="1":C2="1":C3="1":C4="1":C5="1":F1="0":F2="1":F3="1":F4="1":F5="0":"300" PK$="D"START="1"XX="2"I$="AVERAGE":BA="4000":C1="2":C2="2":C3="2":C4="2":C5="2":F1="2":F2="2":F3="2":F4="2":F5="2":"300" |K$="""310" }"310"  BH="0" 1"100":"50":PM1="100000":RC1="9":RN="2" OD="1"ODO="5" OD="2"ODO="14" OD="3"ODO="16" 5WL/2=(WL/2)G="1":G$="SOFT":"441"  G$="GOOD" 'DB="0":DRR="1":"0":ڰ"2":ٰ"9": E"65361","3":E$="THE DERBY":ٰ"5":"3","2";:L="64929":ٰ"9" PO="0":ST="0" `"7","6";C$(6);"7","21";g$:"10","2";ٰ"0";"CLASS ";RC1;" 14F";" $";PM1 E"65361","3":E$="THE DERBY":ٰ"5":"3","2";:L="64929":ٰ"9" 1"13","6";ڰ"1";"ENTRANCE FEE $";PM1/10  "21","0";ڰ"6";"BANK $";BA BA<"10000"RN="0":BH="0":"17","0";ڰ"6";ٰ"0";ܰ"1";۰"1";"YOU HAVEN'T ENOUGH CASH TO ENTER THE DERBY THIS SEASON ":"0":TC="0":JF="0":WIN="0":.73333,"55":L="60710":"7200" JH="0":BH="0": PA="2" u#1;"1","0";PA;"E";ڰ"1";"NTER RACE";PA;"1","14";"S";ڰ"1";"TABLE";PA;"1","24";"N";ڰ"1";"O ENTRY" ="E"TC=*400+"100":DD="1":"8990":"NUMBER HORSE? ";S$:"8818":HE=S$:"17","6";ڰ"6";۰"1";A$(HE);" ENTERED ":"495"::"500":.6,"10":.9ffff,"30":L="60710":"6000" ="S"L="60710":"1000" K="N"TC="0":RN="0":PO="0":JF="0":WIN="0":L="60710":"7200" PA="3"PA="2":"470" PA="2"PA="3":"470" ?BA=BA-10000':"21","0";ڰ"1";"CASH NOW $";BA;" ": ODDS=(*5)+"1" =۰"1";"18","0";" YOUR HORSE IS ";ODDS;"/1 DO YOU BET? " "Y/N ";Q$:Q$="N" 9"HOW MUCH? $";Q$:Q$>BAŰQ$>"5000"ŰQ$<"10""520"  BA=BA-Q$:DB=1  R1>"9"R1="0" R2>"9"R2="0" R3>"9"R3="0" R4>"9"R4="0" R5>"9"R4="0"  PA="2"::WL>"20"WL="20" JH="0"RET="0" IN1="1"F1="0" IN2="1"F2="0" IN3="1"F3="0" IN4="1"F4="0" IN5="1"F5="0" K"900":HE="0":"0":ڰ"0":ٰ"9"::.009ztj,6:WL<"1"WL="1" F"109","63":"63","0":"0","73":-63?,"0":"0",-73I #"0","0";"DIFFICULTY ";I$ ""0","24";ٰ"6";"SEASON ";SEAS *"3","1";ݰ"1";"T";"3","3";ݰ"1";Y$ M"3","15";ݰ"1";"NOTES";"3","22";"F";"3","25";"C";"3","28";"W-R" r"21","0";ڰ"2";"BANK $";BA;"21","19";"WEEKS LEFT ";WL:WLǰ"3""21","19";۰"1";ڰ"2";"WEEKS LEFT ";WL 2BAǰ"1000""21","0";ڰ"2";۰"1";"BANK $";BA dٰ"9":"5","1";"1";" ";ڰ"2";A$(1);"5","22";F1;"5","25";C1;"5","28";W1;"-";R1 b "7","1";"2";" ";ڰ"6";A$(2);"7",22;F2;"7","25";C2;"7","28";W2;"-";R2 ^"9","1";"3";" ";ڰ"3";A$(3);"9","22";F3;"9","25";C3;"9","28";W3;"-";R3 $b"11","1";"4";" ";ڰ"4";A$(4);"11","22";F4;"11","25";C4;"11","28";W4;"-";R4 'b"13","1";"5";" ";ڰ"5";A$(5);"13","22";F5;"13","25";C5;"13","28";W5;"-";R5 (/JH="1""15","1";"J";" ";ڰ"1";V$(HH) ) "1072" *JIN1=115,14;2;1;A$(1);" INJURED" +JIN2=116,14;6;1;A$(2);" INJURED" ,JIN3=117,14;3;1;A$(3);" INJURED" -JIN4=118,14;4;1;A$(4);" INJURED" .JIN5=119,14;5;1;A$(5);" INJURED" / 01066*: 9 : #1;1,0;PA;"O";0;"PTIONS";PA;1,8;"N";0;"OTES";1,14;PA;"R";0;"ACECARD";1,23;PA;"S";0;"ELL";1,28;PA;"E";0;"DIT" 85,14;2;Z$(1);7,14;6;Z$(2);9 ,14;3;Z$(3);11 ,14;4;Z$(4);13 ,14;5;Z$(5) L9="R"A=16:L=60600:A:3000 O"="O"L=60640:300, Q="N"8990#:2000 RNHFS=1Ʀ="S"8990#:#1;1,0;6;9 ;" ALL HORSES SOLD ":400:1000 Sc="S"NHFS=08990#:"TYPE HORSE NUMBER FOR SALE ";S$:8804d":HS=S$:1200 T ED=0 UF="E"8990#:"HORSE NUMBER TO EDIT ? ";S$:8804d":ED=S$ V.ED>0"NEW NAME? ";A$(ED):1000 t$PA=2PA=3:10720 u$PA=3PA=2:10720 4HS>5HS<11,1:1000 *HS=1OF=C1*700:IN1=0 *HS=2OF=C2*700:IN2=0 *HS=3OF=C3*700:IN3=0 *HS=4OF=C4*700:IN4=0 *HS=5OF=C5*700:IN5=0 OF<1000OF=1000 GA=1519:A,0;" ":A D18,0;"YOU ARE OFFERED $";OF:"ACCEPT OFFER? Y-N ";S$ {S$"Y"OF=0:18,0;1;" AUCTION FEES COST YOU $250 ":BA=BA-250:100d:1000 )2:2:9 ::8990# H1=0:BA=BA+OF KZ1=(*5)+1:Z2=(*5)+1:Z3=(*5)+1 R2,11 ;6;"THE SALES":19,10 ;0;"BANK $";BA 2Z4=(*5)+1:Z5=(*5)+1 Ֆ6,0;0;"1";2;". ";O$(1);" CLASS ";Z1;" $";Z1*1000:S1=16,15;" " ֕8,0;7;"2";2;". ";O$(2);" CLASS ";Z2;" $";Z2*1000:S2=18,15;" " ؏10 ,0;6;"3";2;". ";;O$(3);" CLASS ";Z3;" $";Z3*1000:S3=110 ,15;" " ٍ12 ,0;5;"4";2;". ";O$(4);" CLASS ";Z4;" $";Z4*1000:S4=112 ,15;" " ۏ14,0;3;"5";2;". ";O$(5);" CLASS ";Z5;" $";Z5*1000:S5=114,15;" " M"WHICH NUMBER HORSE WILL YOU BUY AS REPLACEMENT? ";S$:8807g":HTB=S$ KHTB=1S1=0H1=Z1:BA=BA-Z1*1000:S1=1:Z$(HS)="" KHTB=2S2=0H1=Z2:BA=BA-Z2*1000:S2=1:Z$(HS)="" KHTB=3S3=0H1=Z3:BA=BA-Z3*1000:S3=1:Z$(HS)="" KHTB=4S4=0H1=Z4:BA=BA-Z4*1000:S4=1:Z$(HS)="" KHTB=5S5=0H1=Z5:BA=BA-Z5*1000:S5=1:Z$(HS)="" =H1=01,1:2:2::1232 FS1=1S2=1S3=1S4=1S5=1NHFS=1 (A$(HS)=O$(HTB):O$(HTB)=" SOLD " CHS=1C1=H1:F1=0:W1=0:R1=0:1000 CHS=2C2=H1:F2=0:W2=0:R2=0:1000 CHS=3C3=H1:F3=0:W3=0:R3=0:1000 CHS=4C4=H1:F4=0:W4=0:R4=0:1000 CHS=5C5=H1:F5=0:W5=0:R5=0:1000 9"MAKE NOTES ON WHICH HORSE ? ";S$:8804d":NH=S$ ,"TYPE NOTE, UP TO 7 LETTERS ";f$(NH) %NH=1Z$(1)=f$(1) %NH=2Z$(2)=f$(2) %NH=3Z$(3)=F$(3) %NH=4Z$(4)=F$(4) %NH=5Z$(5)=F$(5)  1000 GO=0:WL="1""402" 0OK="0":BH="0":HE="0": "1":ڰ"0":ٰ"9": "SC="0""100":"50":SC="1": HE="0":WIN="0" !"3","8";ڰ"2";C$(WL);" ";G$ `"20","132":"216","0":"20","115":"216","0":"0","17":"20","132":"0",-17 eٰ"2":"20","107":"216","0":"20","90":"216","0":"0","17":"20","107":"0",-17 ʍ1:20,84T:216,0:20,65A:216,0:0,17:20,84T:0,-17 9 A6,3;5;"RACE 1:CLASS ";RC1;" 5F ";" $";PM1 89 ,3;"RACE 2:CLASS ";RC2;" 14F ";" $";PM2 B12 ,3;6;"RACE 3:CLASS ";RC3;" 16F ";" $";PM3 )21,0;5;"BANK $";BA 2BAǰ"1000""21","0";ڰ"2";۰"1";"BANK $";BA 5"0","0";ٰ"4";"ENTRANCE FEE= 10% OF PRIZE MONEY"  #1;1,0;PA;"N";0;"O ENTRY";1,12 ;PA;"E";0;"NTER HORSE";1,26; PA;"S";0;"TABLE" &4 ="S"A=16:L="60600":A:"1000" (1="N"TC="0":JF="0":RN="0":"0":"7200" )MHE="0":="E""8990":"TYPE HORSE NUMBER ";S$:"8804":HE=S$:"3145" +CHE>"0""8990":"TYPE RACE NUMBER ";S$:"8811":RN=S$:"32" ,#RN="0"PA="2"PA="3":"3100" -/RN=0PA=3PA=2:3100 /TC=(*200)+100d 0 RN=1BA=BA-PM1/10 1 RN=2BA=BA-PM2/10 2 RN=3BA=BA-PM3/10 :RN=03110& D%BA10 OK=1:4000 EOK="0"ODDS=3:"21","0";ڰ"2";"CASH NOW $";BA;" ":"18","0";ڰ"6";۰"1";"SORRY YOU CANT BET ON THIS RACE.";" MINIMUM STAKE $10 ":"200":"6000" I4HE>5HE<11,1:3000 JHE=53170b KHE=13152P LHE=23154R MHE=33158V OHE=43160X P#HE="1"F1ǰ"0"IN1="1""3190" Q "3115" R#HE="2"F2ǰ"0"IN2="1""3190" S "3115" V#HE="3"F3ǰ"0"IN3="1""3190" W "3115" X#HE="4"F4ǰ"0"IN4="1""3190" Y "3115" b#HE="5"F5ǰ"0"IN5="1""3190" l "3115" vJ18,0;5;1;"UNFIT":1,1:3000 GO="0""4200" "16","10";ڰ"2";"BANK $";BA;" ":"21","0";ڰ"5";"BANK $";BA;" ":"17","1";ڰ"3";۰"1";"YOUR HORSE IS ";ODDS;"-1 DO YOU BET?":"Y-N ";J$  J$="N"PO=0:6000p _J$"N"DD=1BH=1:8990#: "HOW MUCH DO YOU BET? $";S$:8814n":ST=S$ _J$"N"DD=0BH=1:8990#: "HOW MUCH DO YOU BET? $";S$:8814n":ST=S$ ES$>50001,1:PO=0:ST=0:3999 $ST>BA1,1:4010 $J$"N"J$=""BA=BA-ST:6000p  4005 k'GO=1:ODDS=(*4)+1   NI=(*5)+1  %IN1=1NI=1IN1=0 %IN2=1NI=2IN2=0 %IN3=1NI=3IN3=0 %IN4=1NI=4IN4=0 %IN5=1NI=5IN5=0   pD"20"::"5900":PT1="0":PT2="0":PT3="0":PT4="0":PT5="0" q1DR=0:WIN=0:HE>16012| r'G=1OG=1PT1=PT1+2 s'G=2OG=2PT1=PT1+2 uaHE="1"ƺ(*7-X X)+"1"="1"IN1="1":PT1="0":R1=R1+"1":C1=C1-(C1>1):"6070" v?HE=1RN=1OD=1PT1=PT1+3:DR=1 wGHE=1R1=R1+1:PT1=PT1+C1+F1-5+(*3)+1 x?HE=1RN=2OD=2PT1=PT1+3:DR=1 y?HE=1RN=3OD=3PT1=PT1+3:DR=1 z362008:HE=1F1=F1-1:6070 |HE>26029 'G=1TG=1PT2=PT2+2 'G=2TG=2PT2=PT2+2 `HE="2"ƺ(*7-XX)+"1"="1"IN2="1":PT2="0":R2=R2+"1":C2=C2-(C2>1):"6070" GHE=2R2=R2+1:PT2=PT2+C2+F2-5+(*3)+1 K62008:HE=2RN=1TD=1PT2=PT2+3:DR=1 ?HE=2RN=2TD=2PT2=PT2+3:DR=1 ?HE=2RN=3TD=3PT2=PT2+3:DR=1 362008:HE=2F2=F2-1:6070 HE>36046 'G=1HG=1PT3=PT3+2 `HE="3"ƺ(*7-XX)+"1"="1"IN3="1":R3=R3+"1":PT3="0":C3=C3-(C3>1):"6070" GHE=3R3=R3+1:PT3=PT3+C3+F3-5+(*3)+1 ?HE=3RN=1HD=1PT3=PT3+3:DR=1 ?HE=3RN=2HD=2PT3=PT3+3:DR=1 K62008:HE=3RN=3HD=3PT3=PT3+3:DR=1 'HE=3F3=F3-1:6070 HE>46061 'G=2FG=2PT4=PT4+2 `HE="4"ƺ(*7-XX)+"1"="1"IN4="1":R4=R4+"1":PT4="0":C4=C4-(C4>1):"6070" GHE=4R4=R4+1:PT4=PT4+C4+F4-5+(*3)+1 ?HE=4RN=1FD=1PT4=PT4+3:DR=1 ?HE=4RN=2FD=2PT4=PT4+3:DR=1 ?HE=4RN=3FD=3PT4=PT4+3:DR=1 362008:HE=4F4=F4-1:6070 'G=1IG=1PT5=PT5+2 'G=2IG=2PT5=PT5+2 `HE="5"ƺ(*7-XX)+"1"="1"IN5="1":R5=R5+"1":PT5="0":C5=C5-(C5>1):"6070" GHE=5R5=R5+1:PT5=PT5+C5+F5-5+(*3)+1 3HE=5RN=1ID=1PT5=PT5+3 3HE=5RN=2ID=2PT5=PT5+3 3HE=5RN=3ID=3PT5=PT5+3 HE=5F5=F5-1 R62008:WIN=0:A1=6+RC1+XX:A2=6+RC2+XX:A3=6+RC3+XX 7 RN=1HE=1PT1>A1W1<9 WIN=1 6RN=2HE=1PT1>A2W1<9 WIN=1 6RN=3HE=1PT1>A3W1<9 WIN=1 6RN=3HE=2PT2>A3W2<9 WIN=2 6RN=2HE=2PT2>A2W2<9 WIN=2 6RN=1HE=2PT2>A1W2<9 WIN=2 6RN=1HE=3PT3>A1W3<9 WIN=3 6RN=2HE=3PT3>A2W3<9 WIN=3 6RN=3HE=3PT3>A3W3<9 WIN=3 6RN=1HE=4PT4>A1W4<9 WIN=4 6RN=2HE=4PT4>A2W4<9 WIN=4 6RN=3HE=4PT4>A3W4<9 WIN=4 6RN=1HE=5PT5>A1W5<9 WIN=5 6RN=2HE=5PT5>A2W5<9 WIN=5 6RN=3HE=5PT5>A3W5<9 WIN=5  7000X 8= HE=1RN=1OD1WIN=0:PT1=0 :<HE=1RN=2OD2WIN=0:PT1=0 ;<HE=1RN=3OD3WIN=0:PT1=0 =<HE=2RN=1TD1WIN=0:PT2=0 ><HE=2RN=2TD2WIN=0:PT2=0 @<HE=2RN=3TD3WIN=0:PT2=0 A<HE=3RN=1HD1WIN=0:PT3=0 C<HE=3RN=2HD2WIN=0:PT3=0 E<HE=3RN=3HD3WIN=0:PT3=0 F<HE=4RN=1FD1WIN=0:PT4=0 G<HE=4RN=2FD2WIN=0:PT4=0 I<HE=4RN=3FD3WIN=0:PT4=0 J<HE=5RN=1ID1WIN=0:PT5=0 K<HE=5RN=2ID2WIN=0:PT5=0 M/HE=5RN=3ID3WIN=0 O !"8900":PPM="0" 'WL="1""7595" )&SC="0":"4":ڰ"0":ٰ"9"::"8990" *Iٰ"0":ڰ"5":E$="RESULTS":"65361","2":"2","9";:L="64929":ڰ"0" ,ERO=(*30)+"1":RT=(*30)+"1":RH=(*30)+"1" -RO=RTRT=RHRH=RO"7212" .$PO="0":WIN>"0"BH="1"PO="1" /ٰ"9":WIN>"0"RN="1"PPM=PM1:"5","3";"RACE 1: 5F CLASS ";RC1;" $";PM1:ٰ"6";" 1ST. ";ٰ"2";۰"1";A$(HE);۰"0";ٰ"6";" ";ODDS;"/1":BA=BA+PM1:PR=PR+PM1:WIN="0":O="1":"7245" 1WIN>"0"RN="2""7251":PPM=PM2:"9","3";"RACE 2: 14F CLASS ";RC2;" $";PM2:ٰ"6";" 1ST. ";2;1;A$(HE);۰"0";ٰ"6";" ";ODDS;"/1"::PR=PR+PM2:BA=BA+PM2:WIN="0":T="1" 2WIN>"0"RN="3""7258":PPM=PM3:"13","3";"RACE 3: 16F CLASS ";RC3;" $";PM3:ٰ"6";" 1ST. ";ٰ"2";۰"1";A$(HE);۰"0";ٰ"6";" ";ODDS;"/1":PR=PR+PM3:WIN="0":F="1":BA=BA+PM3 3KU1=(*9 )+1:U2=(*7)+1:U3=(*8)+1 4qٰ"9":WIN="0"O="0""5","3";"RACE 1: 5F CLASS ";RC1;" $";PM1:ٰ"6";" 1ST. ";N$(RO);ٰ"2";" ";U1;"/1" 5=PPM>"0""18","3";۰"1";"YOU WIN $";PPM;" PRIZE MONEY" >tٰ"7": WIN="0"T="0""9","3";"RACE 2: 14F CLASS ";RC2;" $";PM2:ٰ"6";" 1ST. ";N$(RT);ٰ"2";" ";U2;"/1" Cuٰ"7":WIN="0"F="0""13","3";"RACE 3: 16F CLASS ";RC3;" $";PM3:6;" 1ST. ";N$(RH);ٰ"2";" ";U3;"/1" E*ٰ"9":"21","0";ڰ"6";"BANK NOW $";BA FPI=2:BA100021,0;6;1;"BANK NOW $";BA GI>5I=1 HbI:22,480:210,0:0,28:-210,0:0,-28 IbI:22,81Q:210,0:0,28:-210,0:0,-28 JcI:22,113q:210,0:0,28:-210,0:0,-28 K =""I=I+1:7239G L;60695,18:6:L=60660:7500L M+HE=1W1=W1+1:RC1>C1C1=RC1 N+HE=2W2=W2+1:RC1>C2C2=RC1 O+HE=3W3=W3+1:RC1>C3C3=RC1 P+HE=4W4=W4+1:RC1>C4C4=RC1 Q+HE=5W5=W5+1:RC1>C5C5=RC1 R S+HE=1W1=W1+1:RC2>C1C1=RC2 T+HE=2W2=W2+1:RC2>C2C2=RC2 U+HE=3W3=W3+1:RC2>C3C3=RC2 V,HE=4 W4=W4+1:RC2>C4C4=RC2 W,HE=5 W5=W5+1:RC2>C5C5=RC2 X Z,HE=1 W1=W1+1:RC3>C1C1=RC3 [-HE=2 W2=W2+1:RC3>C2C2=RC3 \-HE=3 W3=W3+1:RC3>C3C3=RC3 ]-HE=4 W4=W4+1:RC3>C4C4=RC3 ^-HE=5 W5=W5+1:RC3>C5C5=RC3 _ L"1":ڰ"1":ٰ"9": MTOT="0":WL="21"RET="1" N0JF="0":PPǰ"0"PP="0":P="0":OL="20000" ORN>"0"JF=502*XX PRET="1"JF="0" Q&"0","7";"THIS WEEKS EXPENSES" S'PPǰ"0"PP="0":P="0":OL="20000" V0SW=200*XX:FT=(*100d)+10 *XX W"3","0";"STABLE STAFF WAGES........";"3","25";"$";SW:"5","0";"HORSE FEED-TACKLE........";"5","25";"$";FT:"7","0";"BANK LOAN REPAYMENT.......";"7","25";"$";P Y PP=PP-P jx"9","0";"TRAVEL TO COURSES........";"9","25";"$";TC:"11","0";"JOCKEY FEES..............";"11","25";"$";JF v!WW="0":PO="1"WW=ST*ODDS+ST yUPO="1"ST>"0""13","0";1;"WINNINGS ON BET..........$";WW:BA=BA+WW ~TOT=TOT+TC+JF+SW+FT+P 0"15","0";"TOTAL: $";TOT:BA=BA-TOT "BANK NOW $";BA EBA100016,0;2;1;"BANK NOW $";BA ~HDD=1SEAS<10 "0":L=60640::"11","7";"START OF SEASON ";SEAS:HDD=0:"0":"1000" !SEAS>9 K$="C":324D BHE="1"F1="0":F2=F2+"1":F3=F3+"1":F4=F4+"1":F5=F5+"1" BHE="2"F2="0":F1=F1+"1":F3=F3+"1":F4=F4+"1":F5=F5+"1" BHE="3"F3="0":F1=F1+"1":F2=F2+"1":F4=F4+"1":F5=F5+"1" BHE="4"F4="0":F1=F1+"1":F2=F2+"1":F3=F3+"1":F5=F5+"1" BHE="5"F5="0":F1=F1+"1":F2=F2+"1":F3=F3+"1":F4=F4+"1" F1>9 F1=0 F2>9 F2=0 F3>9 F3=0 F4>9 F4=0 F5>9 F5=0 C1>9 C1=9 C2>9 C2=9 C3>9 C3=9 C4>9 C4=9 C5>9 C5=9 \21,4;ڥ*6+2;9 ;"PRESS ENTER TO CONTINUE": =""7586 `BA0WL>1WL=WL-1:0:60695,0:L=60660:1000 BA0WL<1JH=0:RET=0:IN1=0:IN2=0:IN3=0:IN4=0:IN5=0:WL=20:1000 BA<06:6:9 ::13 ,7;"YOU ARE BANKRUPT":19,0;" PRESS A KEY FOR A NEW GAME" JH=0:RET=0:65361Q,4:E$="CLASSIC":2:4,2;:L=64929:E$="TRAINER":8,2;:L=64929:9 NS=SEAS-1:"8825"::*7:"16","3";ڥ*7;"YOUR OVERALL RATING IS ";KK;"%":="".007ye`A,*40(:"7593"  BA<03 WL>17200  )"7700": TRAR="0":WINȰ"1"WIN="1" d"0":ڰ"0":ٰ"9"::TRAR=TRAR+W1+W2+W3+W4+W5:TRAR=TRAR/2*10 :TRAR>"100"TRAR="100" 5ٰ"6";"7";"";ٰ"2";" RESULT OF DERBY";ٰ"6";" " NN=(*25)+1 PWINɰ"1""2","7";"1ST ";N$(NN+2);ٰ"2";" ";(*5)+1;"/1" ~"4","7";"2ND ";N$(NN);ٰ"2";" ";(*3)+"1";"/1":"6","7";"3RD ";N$(NN+1);ٰ"2";" ";(*8)+"1";"/1" DB=1SDF=Q$*ODDS WIN="1"TRAR=TRAR+"5":DW=DW+"1":"2","7";"1ST ";ڰ"1";A$(HE);ڰ"0";ٰ"2";" ";ODDS;"/1":JH="0":WL="21":BA=BA+"100000":DB=1BA=BA+SDF+Q$ VWIN1HE>021,4;1;A$(HE);" WAS UNPLACED":190 WWIN="1"PR=PR+"100000":"21","0";ڰ"2";۰"1";"CONGRATULATIONS YOU WIN $100,000" ĩ1:0,116t:255,0:0,47/:-255,0:0,-47/:6:8,7;2;"SEASON ";SEAS;" STATISTICS" *'"WINNERS ";ٰ"7";W1+W2+W3+W4+W5 X'ٰ"6";"SEASON RATING ";7;TRAR;"%":'6;"CASH LEFT ";7;BA 6OR=OR+TRAR:'"PRIZEMONEY WON ";ٰ"7";PR:PR=0 5DB="1"WIN="1"'"WINNINGS ON BET ";ٰ"7";SDF+Q$ *'6;"DERBY WINS ";7;DW mJH=0:RET=0:0:L=60710&:IN1=0:IN2=0:IN3=0:IN4=0:IN5=0:RET=0:HDD=1:SEAS=SEAS+1:F1=2:F2=2:F3=2:F4=2:F5=2:WL=21:W1=0:W2=0:W3=0:W4=0:W5=0:R1=0:R2=0:R3=0:R4=0:R5=0:7500L $HE=1C1<9 WIN=0 $HE=2C2<9 WIN=0 $HE=3C3<9 WIN=0 $HE=4C4<9 WIN=0 $HE=5C5<9 WIN=0  B "` XX=X$: "a)S$<21,1:300, "bN A=1̱S$:S$(A)>579ůS$(A)<4801,1:300, "cA: "d*S$11,1:1000 "e)S$>"53"ůS$<"49"װ"1","1":"1000" "f "gS$ɰ"1"װ"1","1":"1245" "h)S$>"53"ůS$<"49"װ"1","1":"1245" "i "kS$ɰ"1"װ"1","1":"3115" "l)S$<"49"ůS$>"51"װ"1","1":"3115" "m "nS$<"2""4010" "o@ A=1̱S$:S$(A)>"57"ůS$(A)<"48"װ"1","1":"4010" "pA: "rS$ɰ"1"װ"1","1":"400" "t(S$>"53"ůS$<"49"װ"1","1":"400" "v "yBSEASǰ"1"KK="0":KK=W1+W2+W3+W4+W5::KK=KK/2*10 : "zSEAS>"1"KK=OR/NS: "} "~Jٰ"7":"255","0":"0","175":-255,"0":"0",-175:ٰ"9": "a0:4:4:9 ::9 ,10 ;0;;"";10 ,9 ;" " "310 ,13 ;"";11 ,12 ;" " "k1:3:0:E$="RACE IN PROGRESS":65361Q,1:21,0;:L=64929 "0:4:9 "'B$="" "7,0;B$ "16,0;B$ "113 ,6;"";14,5;" " "<12 ,26;0;"";13 ,25;" " "'B$="" "'4:4:0,0;B$ "'1,0;5;5;B$ "'0:2,0;0;B$ "1:0:1:E$="CLASSIC":65361Q,1:2,1;:L=64929:2:E$="TRAINER":2,17;:L=64929 "SPA=25:PU=135:PA,PU:PA+36$,PU-10 :PA+58:,PU+7 "TPA=100d:PU=135:PA,PU:PA+36$,PU-10 :PA+58:,PU+7 "&DRR=1EC=9 :DRR=0 "HE>"0""19","31";" " "ٰ"9":HE>0"17","0";" ";A$(HE);" CLASS ";CC;" FIT ";FC;" ";ODDS;"/1";"19","0";ٰ"6";" RACING IN ";" CLASS ";EC;" ";DIS;" FURLONG" "/HEǰ"0""18","8";ٰ"6";"NO HORSE ENTERED" #&A=14:L=60780l:A #"4":ܰ"0":ٰ"9":"100": # # f:I=1̱B$:6;B$(II);1;2;;" ";(8);:.008zn,30:I:" ";: &1,1: &6 n$(32 ,10 ):j=132 :n$(j):j &"HEBEGEBE","BLACK LAMP","FLYING PIG","COMMANDO","RAMBO","INFILTRATE","SPEAKER","ZILOG LAD","JESTER","NOONEY","SPECCY BOY","LOFTY","WATTIE","FOURSOME","DATADAY" &"ABATHATC","ABUZZ","CAPE WILD","CEDESA","LOCHTILLUM","LADY CARA","LAPIERE","DRAIDOR","FOURWALK","FOX PATH","FLOOD MARK","GHAAR","HONEY PLUM","IN FACT","INFAMY","KEEN EDGE","MARSOOM" &3V$(3,10 ):J=13:V$(J):J &#"S.CAUTHEN","P.EDDERY","W.CARSON" &4 o$(5,10 ):j=15:o$(j):j &9"ZEENA","DIRTY DEN","FRANKIT","QUICK STEP","STEWARDESS" &6 c$(20,10 ):j=120:c$(j):j &"DONCASTER","ASCOT","KEMPTON","SANDOWN","NEWBURY","EPSOM","LINGFIELD","NEWMARKET","CHESTER","HAYDOCK","YORK","RIPON","THIRSK","BATH","FOLKESTONE","WINDSOR","YARMOUTH","WARWICK","AYR","NEWCASTLE" &4 a$(5,10 ):j=15:a$(j):j &*Z$(5,7):F$(5,7) &:"YUPPIE BAY","RUMMAGE","X-RAY BOY","SEEYASOON","SPECLAD" &OL="20000":WW=0:ST=0:ODDS=0:SC=0:OV=0:PT1=0:PT2=0:PT3=0:PT4=0:PT5=0 'DRR=0:OR=0:PO=0:DD=0:RET=0:DW=0:PP=0:LOAN=0:I$="EASY":DR=0:P=0:F1=3:F2=3:F3=4:F4=4:F5=5:C1=3:C2=3:C3=4:C4=4:C5=4 'XX="1":JH=0:HH=0:NHFS=0:S1=0:S2=0:S3=0:S4=0:S5=0:W1=0:W2=0:W3=0:W4=0:W5=0:R1=0:R2=0:R3=0:R4=0:R5=0 '6PR=0:BA=5000:SEAS=1:WL=20 ' AIN1=0:IN2=0:IN3=0:IN4=0:IN5=0 ' KOG=(*2)+1:TG=(*2)+1:HG=(*2)+1 ' 2FG=(*2)+1:IG=(*2)+1 ' 2OD=(*3)+1:TD=(*3)+1 ' KHD=(*3)+1:FD=(*3)+1:ID=(*3)+1 ' 150: 'F:۰"1";"ERROR! RESTARTING GAME":װ"1","60":"23607","250":"2" lE (C)1989 G.T.IipdE  &