P\D?\ D:\e?(L(A,THIRD))+" " yI1,5;W$;2,5;Y$:X>23,5;Z$ zH<.1}LHO13 HO14X>3ho=13 :" STEWARDS ENQUIRY":c=1300,:1:c:<.4Ldis=first:4,0;"THE WINNER IS DISQUALIFIED":d(first,1)=0:ho=14:c=300-3:.05|L,c:.03{u\,c-5:c:3150N {fho=13 4,5;"--- RESULT STANDS ---":.1}L,10 :1:100d |5ho=14ho=13 1,0 , EF(FIRST,1)=F(FIRST,1)W$=W$+(F(FIRST,1))+"/1" RF(FIRST,1)ɺF(FIRST,1)W$=W$+((F(FIRST,1)*2.01 ))+"/2" UF(SECOND,1)ɺF(SECOND,1)Y$=Y$+((F(SECOND,1)*2.01 ))+"/2" HF(SECOND,1)=F(SECOND,1)Y$=Y$+(F(SECOND,1))+"/1" OX>2F(THIRD,1)=F(THIRD,1)Z$=Z$+(F(THIRD,1))+"/1" \X>2F(THIRD,1)ɺF(THIRD,1)Z$=Z$+((F(THIRD,1)*2.01 ))+"/2" I1,5;W$;2,5;Y$:X>23,5;Z$ KC=1X:R$(L(A,C),16)="0"+R$(L(A,C),15):c 4dis>0r$(l(a,dis),1)="D":dis=0 S(L(A,SECOND),3)=S(L(A,SECOND),3)+(*10 ):S(L(A,SECOND),3)>99cS(L(A,SECOND),3)=92\ nR$(L(A,FIRST),1)="1":R$(L(A,FIRST),7)=((R$(L(A,FIRST),7))+(L(A,13 )*1000)) pR$(L(A,SECOND),1)="2":R$(L(A,SECOND),7)=((R$(L(A,SECOND),7))+(L(A,13 )*200)) X>2R$(L(A,THIRD),1)="3":R$(L(A,THIRD),7)=((R$(L(A,THIRD),7))+(L(A,13 )*100d+100d)) 5,0; &W=110 :CHS=H(W,1) CHS=L(A,FIRST) "CONGRATULATIONS":PRIZE MONEY=PRIZE MONEY+L(A,13 )*1000:"PRIZE MONEY `";L(A,13 )*1000 CHS=L(A,SECOND) "SECOND PLACED PRIZE MONEY `";L(A,13 )*250:PRIZE MONEY =PRIZE MONEY+L(A,13 )*250 nMEETING=25A=7CHS=L(A,FIRST) 20,0;"YOUR HORSE JUST WON THE DERBY !!" X<33260 CHS=L(A,THIRD) "THIRD PLACED PRIZE MONEY `";L(A,13 )*100d+100d:PRIZE MONEY =PRIZE MONEY+L(A,13 )*100d+100d W sBHO=FIRST7,0;"YOU BACKED THE WINNER":P=STAKE*(F(BHO,1)+1):"YOU WON `";P:GAMB=GAMB+P Є#0;"PRESS 0 TO LINE PRINT RESULT ANY TO CONTINUE":1:0:="0"X$'W$'Y$:X>2Z$:.2~L,0 '7:7::.1}L,20 a R#CHANCE=10 -T-(SKILL/3) \*10 *:"!!!! END OF RACE REPORT !!!!" @%X=MON:''"CASH BEFORE RACING `";MON A<''"ENTRY FEES `";ENTRY FEES'"PRIZE MONEY `";PRIZE MONEY B@"TRAINING FEE `";(T$(T,11 15)*10 /30) DSMON=MON+GAMB+PRIZE MONEY-ENTRY FEES-(T$(T,11 15)*10 /30) E"GAMBLING BALANCE `";GAMB F'"CASH REMAINING `";MON P'"WEEKLY BALANCE `";MON-X Z*MEETING=302900T :6000p d%"DO YOU WANT TO SELL A HORSE ?";A$ e>A$="YES"A$="yes"a$="y"a$="Y"FLAG=21004:2000 '.1}L,0:re=r():2900T  7  500 )ENTRY FEES=0:PRIZE MONEY=0 +GOING=(+)/2:GO=(GOING*20) MEETING=MEETING+1 (L(7,13 ):A=17 go=(going*20) hCLASS=(A*3)-2:l(a,12 )=(*16)+5:l(a,13 )=(class/2)+1 X:"MEETING NUMBER ";MEETING;" RACE NUMBER ";A'"GOING :- ";:FLAG=4021:710 3,0;"FOR HORSES WITH A SPEED FACTOR BETWEEN ";CLASS-2;" AND ";CLASS+2;": VALUE `";L(A,13 )*1000 2,0; MEETING=25"DERBY DAY":CLASS=A*3-1:L(A,12 )=(*4)+7:L(A,13 )=A*10 +30:A=7"*** THE DERBY ***","FOR HORSES THAT HAVE WON MORE THAN `80000 THIS SEASON." MEETING=25A<7"FOR HORSES THAT HAVE WON BETWEEN`";CLASS*4000;" AND `";CLASS*4000+12000.;": VALUE `";L(A,13 )*1000 -MEETING/9 =(MEETING/9 )" LOSERS DAY :VALUE `";a*4000:L(A,12 )=(*8)+5:L(A,13 )=A*4:"FOR HORSES THAT HAVE NOT WON PRIZE MONEY AND WITH A SPEED FACTOR BETWEEN ";CLASS-2;" AND ";CLASS+2'": VALUE `";L(A,13 )*1000 MEETING/7=(MEETING/7)"WINNERS DAY":L(A,12 )=(*6)+5:L(A,13 )=A*5+5:"FOR WINNERS WITH A SPEED FACTOR BETWEEN ";CLASS-2;" AND ";CLASS+2;": VALUE `";L(A,13 )*1000 _6,0;"DISTANCE ";L(A,12 );" FURLONGS";:L(A,12 )<6" SPRINT" ('"RUNNERS"':CX=0:RND= 2MEETING/7=(MEETING/7)RND=.9ffff 2MEETING/9 =(MEETING/9 )RND=.9ffff MEETING=255500| .RND<.2~LB=180P:4085 9RND<.4LB=15080P-1:4085 9RND<.6B=120x30-1:4085 9RND<.8LB=15010 -1:4085 B=1150 do=(S(B,1)*20) MEETING/7=(MEETING/7)do>class-2do04110 8do>CLASS-2do04220| nMEETING/7=(MEETING/7)do>class-2doCLASS-2DO04245 EDO>CLASS-2DO99cS(H(C,1),3)=99c H(C,4)=0:C GAMB=0:STAKE=0 go=(going*20) A=17 $L(A,11 )=99c3350 ْ 7::" " " TURF ACCOUNTANT" 8'"RACE :";A;" DISTANCE :";L(A,12 );" FURLONGS" 31;"GOING IS ";:FLAG=4318:710 ' +6;"HORSE NAME S FORM ODDS" Z(10 ,2)  X=10 6b=1x:L(A,B)=0X=B-1:4332 b ob=1x:c=l(a,b):Z(B,1)=S(c,1)+(.004yn*S(c,3))-(.3*((GOING-S(c,4)))) Z(B,2)=S(c,2) ;Z(B,1)*1000<1Z(B,1)=0.001wn B:44000  B=1X B+8,0;(b=xl(a,11 ));B;" ";N$(L(A,B));16;(S(L(A,B),1)*20);19;R$(L(A,B),6);B+8,26;F(B,1);"/1":F(B,1)xHO<14399/  !a$="10"x=10 ho=10 19,0;N$(L(A,HO));" SELECTED","ODDS ARE :";F(HO,1);"/1":F(HO,1)F(HO,1)20,10 ;F(HO,1)*2;"/2" N"HOW MUCH ? (10-5000)";A$:A$>480ƯA$<58:STAKE=A$:4384   4380  -STAKE>5000STAKE<10 4380 !GAMB=GAMB-STAKE:BHO=HO " "` ";STAKE .re=r():2900T / 2950 11TOTAL=0:F(10 ,2):B=1X 2c=l(a,b):f(b,1)=1+((r$(c,2)="1")*100d*a)+((r$(c,2)="2")*502*a)+((r$(c,1)="1")*300,*a)+((r$(c,1)="2")*200*a)+((r$(c,1)="3")*100d*a)+((r$(c,1)="D")*400*a)+(z(b,1)*800 ) 4TOTAL=TOTAL+F(B,1) :b:b=1x D+F(B,1)=(TOTAL/F(B,1))-1 N'F(B,1)=(F(B,1)+.5) XG<.5F(B,1)<6.1C333F(B,1)=F(B,1)-.5 c#f(b,1)<254475{ d0F(B,1)>200F(B,1)=200 eDF(B,1)>25F(B,1)<34"F(B,1)=25 fDF(B,1)>33!F(B,1)<513F(B,1)=33! gEF(B,1)>502F(B,1)<100dF(B,1)=502 lGF(B,1)>100dF(B,1)<200F(B,1)=100d v-F(B,1)<1F(B,1)=.5 B:4339 =C=110 :H(C,1)=BB>0B<150B C <.1}LB<150B 2CX=CX+1:L(A,CX)=B:N$(B),:re+1 |B=1150 GA=7ưR$(B,7)CLASS*4000re=5539:4800 dR$(B,7)CLASS*4000ưR$(B,7)200WHAT=200 w!RTE=((RTE+WHAT)/SEA):RATE=RTE x RATE>100dRATE=100d ysea=sea+1 zEMEETING=0:SKILL=SKILL+1:SKILL=10 SKILL=9 '' SMON800 B(2)<25B(2)=B(2)+1:S(A,1)=Z+.15~ >X1600@X>800 B(2)25S(A,1)= gX3500 X>1600@B(3)<25B(3)=B(3)+1:S(A,1)=Z+.3 ?X3500 X>1600@B(3)25S(A,1)= hX8000@X>3500 B(4)<25B(4)=B(4)+1:S(A,1)=Z+.45ffff ?X8000@X>3500 B(4)25S(A,1)= iX18000PFX>8000@B(5)<25B(5)=B(5)+1:S(A,1)=Z+.55 @X18000PFX>8000@B(5)25S(A,1)= jX60000`X>18000PFB(6)<25B(6)=B(6)+1:S(A,1)=Z+.75@ AX60000`X>18000PFB(6)25S(A,1)= [X>60000`B(7)<25B(7)=B(7)+1:S(A,1)=Z+.9ffff 3X>60000`B(7)25S(A,1)= JS(A,3)=70F+SKILL*3:R$(A)="/"+R$(A,15)+"0" A UA=110 :S(H(A,1),3)=80P-SKILL*3-(*10 ):A  B(1)  500 d: e'" " f[a=502-30-2:.01z# =,a:.02{# =,a+3:.01z# =,a-1:a gK''"CREDITORS MEETING IS THE LAST STRAW"''"YOU DO THE HONOURABLE THING." k1502:"GOODBYE!":3,0:0 =CO=0"NO QU*ALIFIERS IN YOUR STABLES":ho=0 co=15760 _CO>1"CHOICE ? ENTER 0 IF NO ENTRY";I$:HO=I$-480:HO<0HO>CO6620 FLAG=5731c5731c  4231 X::"The next meeting number is ";meeting +1 b'"Meeting number 25 is DERBY DAY To qualify for the DERBY a horsemust win more than `80000 in prize money. Other races this day are classed by prize money." lv'"Every seventh meeting is WINNERSday (only horses which have won a race from their last six will be accepted)." vd'"Every ninth meeting is LOSERS day (only horses which have never won prize money qualify)." B'"All meetings except the DERBY are classed in speed factors." re=499:2900T Q sea=1 R 7700 Vflag=0 ` 8800`" j +s(150,4):h(10 ,4) RATE=0  RTE=0 meeting=0 R$(150,12 ) Đa=1150:S(A,4)=(+)/2:S(A,1)=:S(A,2)=(*12 )+4:S(A,3)=(*SKILL*10 )+502 /S(A,3)>100dS(A,3)=90Z R$(A)=" 0" a  20 H"99 to load a saved game ";a$:a$="99":"Start tape":8610! a$="SAVE 0645"9985' ):5,7;"SELECT SKILL LEVEL" $''"1 (learner) TO 9 (mastermind)" (A$:SKILL=A$-480 F)SKILL<1SKILL>9 7720( P 7510V @23693\,70F:0::'''" PRESS TO"''" T Alter TRAINER name"''" J Alter JOCKEY name"''" H Alter HORSE name"''" K List HORSE names"''" X TO EXIT" JD0:a$=¾23556\:a$="X"23693\,568:500 TBa$="H""Enter the horse name you wish toalter ";a$:8200 ^a$="J"8150 ha$="T"8100 ma$="K"8060| r 8010J |[:"Any key to hold listing":23693\,69E:200:a=1150:n$(a), ~23692\,10 ""8065 a ..1}L,20:re=7999?:2900T :x=14:6+x*2,6;x;" ";t$(x,10 ):x:"which one ? (enter 14)";a$:ho=a$-480:ho<1ho>48000@ ''"Old name : ";t$(ho,10 ):"Enter new name"'a$:a$>10 "Name too long (Max. 10 )":1,20:8000@ re=r():8300l !t$(ho,10 )=a$:8270N ֝:x=14:6+x*2,6;x;" ";t$(x,19):x:"which one ? (enter 14)";a$:ho=a$-480:ho<1ho>48000@ ''"Old name : ";t$(ho,19):"Enter new name"'a$:a$>8"Name too long (Max. 8 )":1,20:8000@ re=r():8300l !t$(ho,19)=a$:8270N @a$<3''"INVALID ENTRY":.73333,-30:8000@ a$="0645819"9999' re=r():8300l x=1150 18,28;x 'n$(x,1)a$(1)8230& n$(x,c)a$8230& ?18,0;n$(x):"ENTER THE NEW NAME"'a$:8250: &Dx:''"Horse name not found try again":1,3:8000@ :Ia$>13 "Name Too long (Max. 13 )":1,10 :8220 ?re=r():8300l D n$(x)=a$ I"new name is ";a$, JQa=110 :h(a,1)=x"RE-REGISTRATION FEE `50":mon=mon-502 Ka N1#0;"O.K.":1:100d:8000@ l23614>\,3:23613=\,209:c=a$:a=1c:a$(a)>96`a$(a)=(a$(a)-32 ):a$(a)>96`8300l qa:re+1 !4Tx$=""::'''"SAVE GAME SELECTED"''"INPUT 99 TO CONTINUE":A$:A$"99"584H !6H(1,3)=SEA:H(2,3)=RATE:H(3,3)=RTE:H(4,3)=SKILL:H(5,3)=MON:H(6,3)=SMON:H(7,3)=T !7h(8,3)=meeting !8#"THE GAME IS SAVED IN FIVE PARTS" !>""H"H():"T"T$():"HORSES"N$() !H"FORM"R$():"FITNESS"S() !R8"ALL SAVED INPUT 99 TO VERIFY";A$:A$"99"584H !W"REWIND AND START TAPE" !\""H"H():"T"T$():"HORSES"N$() !f"FORM"R$():"FITNESS"S() !p 584H !:"LOAD GAME SELECTED" !0"ENTER 99 TO CONTINUE";A$:A$"99"500 !""H"H():"T"T$():"HORSES"N$() !"FORM"R$():"FITNESS"S() !SEA=H(1,3):RATE=H(2,3):RTE=H(3,3):SKILL=H(4,3):MON=H(5,3):SMON=H(6,3):T=H(7,3) !meeting=h(8,3) ! 500 "`W8900":1:23693\,14::23659k\,0:0,535:94^,62>,-.5:x=11 :8850":64@,0:2,14:2,32 :13 ,29,-.73333:82R,102f:x=10 :8850":94^,70F:x=20:8850":a=102f108l:b,c:a,120x:b,-c:a:97a,100d:x=7:8850":124|,62>:x=8:8850":111o,58::7,-8:107k,77M:7,-11 :115s,79O:8,-10 :109m,96`:10 ,-15 "aa=116t120x:94^,a:-70F,-40(,.4L:a:75K,97a:-42*,-27,.3:1,16;"Racing Manager";2,13 ;" VIRGIN GAMES 1983";3,8;"Author : Mark Alexander." "bc23614>\,3:23613=\,209:23659k\,2:23693\,568:7530j "H23614>\,3:23613=\,209:a=1x:b,c:b,c:a: "ļ3,7,9 ,9 ,-4,-10 ,-1,-5,3,0,4,-1,4,4,7,9 ,-3,-9 ,0,-7,-2,-3 "Ū-4,-8,-1,-6,1,-6,2,-4,2,-3,6,-3,4,-2,6,1,5,4,4,4 "M2,-4,4,-2,8,-4,2,-2,2,-6,1,-2,7,0,3,-1,3,1,6,1,1,4,3,3,0,3,2,3,-5,3,-6,7,-8,16,2,6,2,2,-2,1 "}8,16,9 ,17,11 ,20,12 ,20,14,22,20,23,20,18 "x3,-3,2,-1,6,2,-4,4,-2,0,-2,-2,-3,0 "ʈ2,0,2,2,2,-4,-1,-2,-3,-1,-1,1,0,1,-1,1 #(I"ADDRESS ";ADR:"VALUE IS ";ADR+((ADR+1)*256):9000(# 's(1):r$(1581-):23614>\,3:23613=\,209:"Header"23550[,38000p:23614>\,3:23613=\,209:.3,30 '"":10 '$s(1):r$(1):NO NO ' VIRGIN GAMES LTD. oCPeattkilmoCPt   ] XW<#laeetin ntryfee-rizemoneoin~FlasnQamtak ota0hd~L n   RJ irseconhiri  hp,hanc yp@orsqH.CECIL 50000 L.PIGGOTTW.HERN 40000 W.CARSON P.WALWYN 30000 P.EDDERY F.DURR 20000 J.MERCER Σ LOVELOST WYELEA COSTALOTTA ROSY LEE SOBA RENE'S PET DRUMROAN BLUE SWAN WHITE DOVE SPRINGY ROB ROY WINTER SUN PEACETIME DUST STORM GAMBLING LAD ICE STREAM DIRTY DUCK CAKE WALKER RUN FREE NOBLE PRINCE WESTERN NEWS BLACK PIGEON SWEETPEA HALEY'S COMETRAGAMUFFIN SPRINGTIME BEANSMEANS CORNFLAKE WESTWARD HO! DRAGON PALACETHE BOXER BREADWINNNER WHISKY MAC BELLRINGER SMART BOMB FLASHY MOTOR DON'T PANIC VIDEO KING WACKY WAITER KEYSTONE COP SPLURGE DOUBLET EL STING BEE HIVE ROLLERBALL MUMMYS PET FRENCH FRIAR THE WALL TWO TON TESS BOBBY'S DREAMDOPEY GO COME ON DAD MYSTIC MULE ARABIAN NIGHTHERCULES TIMEKEEPER GATEWAY LEGLESS DIAL A DISC HIGH WIRE SPARK PLUG INTERFACE INDIAN JOE GREENPEACE HALF A CROWN JILLS' PONY WAVELENGTH CUTTING EDGE MOONDANCER ROUND TRIP HILL OF SLANEWISHING WELL X RATED TAX DODGE MOST CUNNING BEDBUG SNAKE BITE THE DOLPHIN FLASHBACK NITPICKER FISHWIFE MOTHER IN LAWDANCING LIGHTCHICKWEED BANANA SPLIT DATSTORNIT SLIPPERY DICKLOONY LOOP POLICEMAN POP MUSIC PARK LANE GOLF BALL DON'S DONKEY YOZZER MARKING TIME MARCHING ON BASTION MEWS POKE MY RIBS SURE CLOWN MR MAGOO CAPTAIN KIRK MOBY DICK ELEVATOR CUT ABOVE ROXY MUSIC SLY FOX NIGHT PROWLERFITTER RED ROBIN THE BANDSMAN HOT BRICK TUDOR ROSE PUCKMAN SKATER SPANISH WINE MAYOTTE MAN OF SPIRITACCUSED SHARP TAXI EXPEDITIOUS EQUANAID CASTANET SANDALAY O I OYSTON TIME MACHINE OCTAVIA GIRL FLUKE PRECIS MURILLO MERITOUS TROJAN SECRETCREE SONG EIGHT BALL CROWN CEDARWAY ROMAN ROAD GONE FISHING POLARIS THE DON FRAGMENT SWEET SCENT HAPPY DAYS OLD THUNDER BE MY GUEST MAINSAIL WATERED DOWN LAST TRUMP CORNISH PIE STAR OF AIA DERRINGER  iZXNJCB<01>@L %7;= wojfd_YR  *-.4D~}zx  8:?FMQ^ I1i  )ND ɺ g c i        i RJ g02[HYd@FiFALlre+cWҁShFՔcqw\;5ȁkGWFIRST SNAKE BITE 7/1YSECOND YOZZER 7/1ZTHIRD WYELEA 7/1 ^~\) _~!L( `|\=p a}%I b}> c~n^\ d}J# e|. = f|/=p g|Hp XQdA SAVE 06450- 3 "":9985'   grafs `XMU0UWq0 !G P! H HM\\p Z;a! v> hT $ hTd>U) $ hT$ dW $<@~BfZBBBBbRJFBB|B<<<bBBBB8888888D8<8h8BRBBBBDD<@DD<DTD@J|B>>DDB@<<< 8 8<<<x<<<&aPW K SR P M.ALEXANDER 7500L +r()=23621E\+(23622F\)*256 2re=r():2900T <MON=10CP A smon=mon Fb=(*135)+1 PKa=110 :h(a,1)=a+b:H(A,2)=/5+.04|# =:a J^:"PICK YOUR TRAINER"''"TRAINER ` FEE STABLE JOCKEY":A=14:a;" ";T$(A):A T"'"FEES ARE PER HORSE PER SEASON" ^5a$:t=a$-480:t<1t>4350^ 67:23693\,568:FLAG=0:X$="": mon<06500d !4,8;"PRESS TO" !'10 ;"K LIST HORSES" !'10 ;"R ENTER RACES" %'10 ;"C REPORT FINANCES" !#'10 ;"F LIST FIXTURES" #$'10 ;"T CHANGE TRAINER" $!'10 ;"Q ALTER NAMES" &'10 ;"9 SAVE GAME" 0'10 ;"8 LOAD GAME" :0:x$=¾23556\ ;re=499 ?x$="F"7000X @x$="Q"8000@ Dx$="K"2000 Ex$="T"330J Fx$="R"4000 Gx$="9"85004! HQx$="":"DO YOU WANT TO CONTINUE ?":"ENTER N Y";A$:A$="N"A$="n"0 Ix$="C"600X Jx$="8"8600! W 500 b gB"TRAINER :";T$(T,8)'"STABLE JOCKEY :";T$(T,18) kTOTAL=0 l "HORSES IN TRAINING `VAL `PRIZE":A=110 :H(A,3)=((S(H(A,1),1)*20000 N)*(S(H(A,1),3)/100d)+(.5*R$(H(A,1),7))):A;4;N$(H(A,1));" ";H(A,3);25;R$(H(A,1),7) mTOTAL=TOTAL+H(A,3) nA qFLAG=21059FLAG r''"SEASON :- ";SEA vL"CASH IN HAND `";MON'"TOTAL LIVESTOCK `";TOTAL'"SKILL LEVEL ";SKILL '"MANAGERIAL RATING "; RATE re=r():2900T  500 =:''" TRAINING REPORT FOR"'" ";N$(H(HORSE,1)) 7'"THIS HORSE IS ";S(H(HORSE,1),3);"% FIT" A"HIS BEST DISTANCE IS ";S(H(HORSE,1),2);" FURLONGS" <"HE PREFERS ";:GO=(S(H(HORSE,1),4)*20) GO<6"SOFT "; )GO>5GO<9 "GOOD TO SOFT "; "GO>8GO<14"GOOD "; +GO>13 GO<17"GOOD TO FIRM "; GO>16"FIRM "; FLAG=4318FLAG FLAG=4021FLAG  "GOING" @"HIS SPEED FACTOR IS ";(S(H(HORSE,1),1)*20) 1"CURRENT FORM - ";R$(H(HORSE,1),6) nS(H(HORSE,1),1)<.02{# ="I DON'T THINK THIS HORSE WOULD WIN A DONKEY DERBY :";T$(T,8) kS(H(HORSE,1),1)>.95s333"I THINK THIS HORSE HAS VERY GOODDERBY PROSPECTS :";T$(T,8) FLAG=2137YFLAG .19,0;"ENTER HORSE NUMBER OR 99"  650 ,23614>\,3:23613=\,209 .3::"NAME S F FORM D G" ':A=110 n$(h(a,1));" ";(S(H(A,1),1)*20);17;S(H(A,1),3);20;R$(H(A,1),6);" ";s(h(a,1),2);30; 9GO=(S(H(A,1),4)*20):go<6"S" GO>5GO<9 "GS" GO>8GO<14"G" GO>13 GO<17"GF" GO>16"F" a 236,164:0,-86V:108l,164:0,-86V:0,77M:255,0:210,164:0,-86V:0,164:255,0:132,164:0,-86V:156,164:0,-86V  P''"S = SPEED RATING"'"F = FITNESS %"'"D = BEST DISTANCE"'"G = PREFFERED GOING" #FLAG=21004FLAG $FLAG=21037FLAG %'"FINANCE NOW `";MON * 2900T 4|21,0;"` = VALUES # = LIST + = EXIT":"WHICH HORSE TO SELL? (110)";A$:NO=A$-480:A$="10"NO=10 6%A$="#"FLAG=21037:2000 7A$="+"500 8$A$="`"FLAG=21059:600X 9$NO>10 NO<121004 :H(NO,3)=((S(H(NO,1),1)*20000 N)*(S(H(NO,1),3)/100d)+(.5*R$(H(NO,1),7))):18,3;;N$(H(NO,1));" SOLD FOR `";H(NO,3) ;6MON=MON+H(NO,3):.1}L,-20:100d <EX=100d >B=(*149)+1 H0A=110 :H(A,1)=B2110> RA UH(NO,1)=B VH(NO,3)=((S(H(NO,1),1)*20000 N)*(S(H(NO,1),3)/100d)+(.5*R$(H(NO,1),7))) X&HORSE=NO:FLAG=2137Y:670 [15,0;"TRAINER FEE `";EX;16,0;"MONEY LEFT `";MON-EX;17,0;"SALE PRICE `";H(NO,3) \E19,0;"YOU ARE OFFERED THIS HORSE "'"DO YOU WANT HIM? " f@="y"Ŧ="Y"H(NO,1)=B:MON=MON-H(NO,3):500 p4="n"Ŧ="N"MON=MON-EX:EX=EX*2:2110> z 2150f TR23614>\,3:23613=\,209:#0;"0 = COPY: ANY TO CONTINUE" ^..1}L,12 :1:0:="0" h re+1 m9:"PLEASE WAIT WHILST RACE IS RUN":D(10 ,2) n7f=l(a,12 )-5l(a,12 )-12 opZ=1X:D(Z,1)=d(z,1)+(Z(Z,1)+.3-(((F-Z(Z,2)))/25)+1)*10 xz:f dC=110 :D(C,1)=D(C,1)-10 :D(C,1)<1D(C,1)=0 C:CO=1 #d(x,1)>10 2943 3005 0X=110 :L(A,X)=02963 X DX$="MTG. "+MEETING+"RACE "+A+"DIST. "+L(A,12 )+"GOING " GO<6X$=X$+"S" #GO>5GO<9 X$=X$+"GS" #GO>8GO<14X$=X$+"G" %GO>13 GO<17X$=X$+"GF" GO>16X$=X$+"F" FLAG=4215wx$:FLAG FLAG=5715SFLAG dis=0 +ADD=.2~L:X=X-1:X=NO.OF HORSES a$="" a$=a$+a$+a$:a$=a$+a$+a$ 4:4::10 ,0;"PRESS Y TO WATCH WHOLE RACE OR ANY KEY TO SEE THE FINAL FURLONGDISTANCE IS ";l(a,12 );" FURLONGS":1:0:="y"Ŧ="Y"2985 2925m ADD=0 A<6ADD=.5 A<3ADD=1 MEETING=25ADD=0 CO=1 BD(10 ,2):Z=110 :D(Z,1)=5:Z Pf=1l(a,12 ):21,0;"FURLONG ";F:F>13025 /7:0,107k:255,0 &0,100d:255,0 =C=142*:C*6,100d:0,8:C +0:0,0;6;X$;" " 1,0;:c=1X:(C/2=(C/2))*7;C;" ";N$(L(A,C)),:C:C=1X:9 +C,0;0+(C/2=(C/2))*7;4;" ":C 8:8 (10 ,0;, &C=1X:9 +C,0;C:C \FL(A,12 )20,31;"":252,100d:2;0,-84T Tc=1X:D(C,2)=Z(C,1)+.6-(((F-Z(C,2)))/25)+ADD ,D(C,2)>2D(C,2)=2 C CO=CO+2 :D(1,1)=D(1,1)+D(1,2) :D(2,1)=D(2,1)+D(2,2) :D(3,1)=D(3,1)+D(3,2) :D(4,1)=D(4,1)+D(4,2) :D(5,1)=D(5,1)+D(5,2) :D(6,1)=D(6,1)+D(6,2) :D(7,1)=D(7,1)+D(7,2) :D(8,1)=D(8,1)+D(8,2) :D(9 ,1)=D(9 ,1)+D(9 ,2) =D(10 ,1)=D(10 ,1)+D(10 ,2) Z=1X #D(Z,1)>27DO=1 G9 +Z,D(Z,1);" ";a$(Z*2+COZ*2+1+CO):Z ,.008zn,-20:.008zn,-18 !$DO=1DO=0:3130: & 3040 :/FL(A,12 )0:4:3150N ?dC=110 :D(C,1)=D(C,1)-20:D(C,1)<1D(C,1)=0 DC:CO=1:F N CH=0 X?C=110 :D(C,1)>CHCH=D(C,1):FIRST=C ^WC:CH=0:C=110 :D(C,1)>CHCFIRSTCH=D(C,1):SECOND=C _C:X=23180l `\CH=0:C=110 :D(C,1)>CHCFIRSTCSECONDCH=D(C,1):THIRD=C aC l1,0 , v  HO<13 ƺ(D(FIRST,1))-(D(SECOND,1))=01:1,0; 5; " ":.1}L,20:300, w1,0 , xrW$="FIRST "+N$(L(A,FIRST))+" ":Y$="SECOND "+N$(L(A,SECOND))+" ":X>2Z$="THIRD "+N$