1?ǻ!6D:\^!612345>"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+"10":DB=1BA=BA+SDF+Q$ VWIN1HE>021,4;1;A$(HE);" WAS UNPLACED":190 WWIN="1"PR=PR+"10":"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" lipd&E (C)1989 G.T.IE HEBEGEBE BLACK LAMPFLYING PIGCOMMANDO RAMBO INFILTRATESPEAKER ZILOG LAD JESTER NOONEY SPECCY BOYLOFTY WATTIE FOURSOME DATADAY ABATHATC ABUZZ CAPE WILD CEDESA LOCHTILLUMLADY CARA LAPIERE DRAIDOR FOURWALK FOX PATH FLOOD MARKGHAAR HONEY PLUMIN FACT INFAMY KEEN EDGE MARSOOM # S.CAUTHEN P.EDDERY W.CARSON 7 ZEENA DIRTY DEN FRANKIT QUICK STEPSTEWARDESS DONCASTER ASCOT KEMPTON SANDOWN NEWBURY EPSOM LINGFIELD NEWMARKET CHESTER HAYDOCK YORK RIPON THIRSK BATH FOLKESTONEWINDSOR YARMOUTH WARWICK AYR NEWCASTLE 7 YUPPIE BAYRUMMAGE X-RAY BOY "" MM3pM33-MM1&^ǻ}&>!X~W_8w# x !@>#z  !X 6! ͵ 6# !XZ  > w#>G>!X~(=w# x v < >͞ #$* \^F >({{ƀOF^ >({{ƀ!Xw#q#F>08qw#wq#q#w#C9{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<B<S,b&d&d&d&E$E$E$E$00 000 00 0  0 0 0 0  0 0 0  0 0 0 0 0 0  0 0 0 0 0 00 0 0'00 0 010 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="10":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);