ZXTape! 0Created with Ramsoft MakeTZXracing 2J racing  ]w(3):l$(4,6):b(10 ):n(20):h$(60<,9 ):d(4) =g(4):o$(20,11 ):o(20):p(10 ) <j(4):p$(10 ,4):t(10 ):x(60<) 4k(4):y(60<):z(60<):u$(10 ) <h(60<):e(10 ):f(60<):x$(4,9 ) Ua$(10 ,17):m(60<):s$(12 ,20):i(13 ):l(10 ) 2:5:0: Y0,9 ;1;"RACING LEAGUE";2,3;"COPYRIGHT C.R.PEARMAN 1985"  t(1)=999:70F @c=625:7,c;1;"`";13 ,c;"`":c @c=713 :c,6;1;"`";c,25;"`":c 1c=9 22:10 ,c;1;"":c   844L 8tw=0:t(1)=0:cr=0:sh=0 !a$(1)="aaaaaaaaaaaaaaaaa" !!a$(2)="bbbbbbbbbbbbbbbbb" "!a$(3)="ccccccccccccccccc" #!a$(4)="ddddddddddddddddd" $!a$(5)="eeeeeeeeeeeeeeeee" %!a$(6)="fffffffffffffffff" &!a$(7)="ggggggggggggggggg" '!a$(8)="hhhhhhhhhhhhhhhhh" (!a$(9 )="iiiiiiiiiiiiiiiii" )"a$(10 )="jjjjjjjjjjjjjjjjj" +c=110 :u$(c):c ,c=160<:f(c)=((c/3)+0.75@):m(c)=0:x(c)=0:y(c)=0:z(c)=0:h(c)=0:h$(c):c -c=220:o$(c):c .6c=120:n(c)=3:o(c)=3000 :c /Vc=14:x$(c):d(c)=0:g(c)=0:j(c)=99c:k(c)=0:c 0c=112 :s$(c):c 1w$="HIT ANY KEY TO CONTINUE" 2'n$=" " 3c$="PRESS y OR n AND ENTER" 4gg=1:v=0.1}L 516,7;1;1;"HOW MANY PLAYERS ?";17,10 ;"1,2,3 OR 4 ?";19,0;"THEN PRESS ENTER" 6@mm:mm>4546:a=1mm:o$(a)=" ":a 7a=1mm::2,9 ;"OWNER NUMBER ";a;5,2;"TO START THE GAME TYPE YOUR";6,6;"INITIAL AND SURNAME";7,5;"(UP TO 10 CHARACTERS)";9 ,7;"e.g.:S.MITCHELL=10";16,12 ;"AND ENTER" 8q$:o$(a)=q$ 9o$(a)=" "+o$(a) ::5,3;"THE RACING LEAGUE WELCOMES ";7,10 ;o$(a);11 ,0;"YOUR HORSES ARE:";13 ,11 ;h$((3*a)-2);15,11 ;h$((3*a)-1);" AND";17,11 ;h$(3*a):200 ;a < :a=1 =a=1q$="YELLOW" >a=2q$="RED" ?a=3q$="WHITE" @a=4q$="CYAN" A9 ,0;"THE RACING COLOURS ARE:";12 +a,6;o$(a);12 +a,19;"-";q$:200:a=a+1:a C:2,8;1;1;"FOR DONKEYS ONLY";7,5;0;0;"IF DURING THE GAME YOU";9 ,5;"ACCIDENTALLY BREAK INTO";11 ,5;"THE PROGRAM GOTO 100";13 ,5;"AND ENTER";19,5;w$:0 DF:5,0;"THE MEMBERS OF THE RACING LEAGUEAND THEIR STARTING CREDITS ARE AS SHOWN ON THE FOLLOWING CREDITDISPLAY WHICH WILL BE KEPT UP TO DATE BY THE COMPUTER DURING";10 ,12 ;"THE GAME.";11 ,1;"THE NUMBER OF HORSES OWNED BY EACH MEMBER IS ALSO SHOWN ON";13 ,10 ;"THE DISPLAY" E18,4;w$:0 F.380|:a=07:c:""+a,c:a G#a=07:c:""+a,c:a H#a=07:c:""+a,c:a I#a=07:c:""+a,c:a J#a=07:c:""+a,c:a K#a=07:c:""+a,c:a Mt(1)=999 N236099\,502 P:2:5:0: Qaa=1:c=1 U90;c;2;o$(c);14;n(c);16;o(c) V#c=c+1:c=2190Z Xo(c)>o(aa)aa=c Y 85U Z5aa-1,22;1;1;"TOP CREDIT" [K21,4;w$:0:cr=12 t(6)=99c857Y _.a=(*6)+1:a=6600X `#aa>mmo(aa)>6500d550& d :gg>mmmm=1gg=1 e<12 ;1;"OPTIONS";:n$:cr>12 cr=0 f$"FOR HORSES 1-20 FORM PRESS 1" g$"FOR HORSES 21-40 FORM PRESS 21" h%"FOR HORSES 41-60 FORM PRESS 41" i(n$:"TO CHECK OWNERS CREDITS PRESS 2" j$"TO BUY OR SELL A HORSE PRESS 3" k$"TO SET UP A RACE PRESS 4" l(n$:"TO RAISE A LOAN PRESS 5" m$"FOR YOUR HORSES/STATUS PRESS 6" nn$:"TO SAVE GAME PRESS 7";15,11 ;"AND ENTER":mm>117,0;"OPTIONS 3 & 5 -";o$(gg);" ONLY" o%q:q=4cr=12 685 p,q=1q=21q=41)400 qq=280P r!q=3mm>1419 s'q=3o(aa)4240419 tKmm=1q=4 d(1)=0o(1)g(1)140 u!q=4mm>1685 vmm=1q=4o(1)0v=0.2~L:17,0;"YOU CANNOT AFFORD THE NEXT LOAN REPAYMENT AND MUST OBTAIN SOME CREDIT BY SELLING OR A NEW LOAN":300,:100d wmm=1q=4o(1)0540 zq=5n(gg)=017,0;"SORRY-NO LOANS ALLOWED WITHOUT SECURITY.IF YOU HAVE SOME CREDITPLAY ON. OTHERWISE THIS IS THE END FOR YOU!":250:100d |bq=5mm=118,0;"NO CASH AVAILABLE-STOP CHEATING!":100d:100d ~q=65600 ?q=718,0;"See Handbook and Save racing": hq1q21q41)q2q3q4q5q6q7100d 'q=3o(aa)<4240100d `:1,6;1;"LOAN REPAYMENTS MADE";10 ,10 ;1;"LOAN BALANCES" a=1mm /2+a,2;o$(a);" HAS REPAID `";g(a) 6o(a)=o(a)-g(a):d(a)=d(a)-g(a):g(a)d(a)g(a)=d(a) 011 +a,2;o$(a);" STILL OWES `";d(a) a 100d*mm :7: Q0;1;" HORSE";14;"OWNER";24;"RES";28;"S.P."  bc=0:q=0:j(1)=0:k(1)=0:dd=0:cr12 v=0 &cr12 sh=0:twk=0 )a=sh+110 :e(a)=61=:a &cr=12 sh0a=1sh sh0cr=12 0;e(a);3;h$(e(a));12 ;o$(f(e(a)));24;x(e(a));25;y(e(a));26;z(e(a)):m(b(a))=x(b(a)):x(b(a))=y(b(a)):y(b(a))=z(b(a)):z(b(a))=0 a a=sh+110 -twk \r=(*60<)+1:r=(*60<)+1:cr=12 y(r)+z(r)=0168 cr=12 f(r)mm168 +cr=12 o(f(r))<1000168 cr=12 r=tw168 r=e(1)r=e(2)r=e(3)r=e(4)r=e(5)r=e(6)r=e(7)r=e(8)r=e(9 )168 .b$=" ":rr=0:r=twb$="*":rr=1 e(a)=r:q$="a" 0cr12 dd=0o(f(r))<240bb=r 3cr12 dd=0o(f(r))<240cc=f(r) 5cr12 o(f(r))<240dd=0480 5cr12 o(f(r))<240dd=1168 (cr=12 o(f(r))=o(f(r))-470 (cr12 o(f(r))=o(f(r))-240 Dcr12 f(r)=1mm=1o(1)30c=1 9mm>1cr12 f(r)mmo(f(r))30c=f(r) 8204 0;r;2;0+rr;0+rr;b$;3;0;0;h$(r);12 ;o$(f(r));24;x(r);25;y(r);26;z(r):cr=12 a=10 tw011 ,2;1;1;b$: b(a)=r:t(a)=0 !x(r)=1t(a)=t(a)+2 !x(r)=2t(a)=t(a)+1 !y(r)=1t(a)=t(a)+4 !y(r)=2t(a)=t(a)+3 !y(r)=3t(a)=t(a)+1 !z(r)=1t(a)=t(a)+9 !z(r)=2t(a)=t(a)+4 !z(r)=3t(a)=t(a)+2 !z(r)=0t(a)=t(a)+1 r=twt(a)=t(a)+1 q$="t"428 q$="z"554* q$="cr" q$="st"575? a=1fo=t(a):fp=a "a>1t(a)>fofo=t(a):fp=a a>fpt(a)=fofp=11 v=v+t(a) /m(r)=x(r):x(r)=y(r):y(r)=z(r):z(r)=0 a <cr=12 tw0a=10 r=tw:b$="*":187 Ycr=12 tw0a=10 m(tw)=x(tw):x(tw)=y(tw):y(tw)=z(tw):z(tw)=0 a=110 p(a)=(v-t(a))/t(a) p$(a)=" 4-6" p(a)>0.76B\)p$(a)="8-11" p(a)>0.86\(p$(a)=" 4-5" p(a)>0.95s333p$(a)="EVEN" p(a)>1.1 p$(a)=" 5-4" p(a)>1.3&fffp$(a)="11-8" p(a)>1.43333p$(a)=" 6-4" p(a)>1.55Ffffp$(a)="13-8" p(a)>1.68W =qp$(a)=" 7-4" p(a)>1.8ffffp$(a)="15-8" p(a)>1.9s333p$(a)=" 2-1" p(a)>2.12zp$(a)=" 9-4" p(a)>2.37{p$(a)=" 5-2" p(a)>2.62'zp$(a)="11-4" p(a)>2.888Qp$(a)=" 3-1" p(a)>3.24O\(p$(a)=" 7-2" p(a)>3.75pp$(a)=" 4-1" p(a)>4.24zp$(a)=" 9-2" p(a)>4.75p$(a)=" 5-1" p(a)>5.25(p$(a)="11-2" p(a)>5.758p$(a)=" 6-1" p(a)>6.25Hp$(a)="13-2" p(a)>6.75Xp$(a)=" 7-1" p(a)>7.25hp$(a)="15-2" p(a)>7.75xp$(a)=" 8-1" p(a)>8.5p$(a)=" 9-1" p(a)>9.5p$(a)="10-1" p(a)>10.5(p$(a)="11-1" p(a)>11.58p$(a)="12-1" p(a)>13.5Xp$(a)="15-1" p(a)>17.5 p$(a)="20-1" p(a)>22.54p$(a)="25-1" p(a)>27.5\p$(a)="30-1" 3a+1,23;" ";a+1,28;p$(a) a )cr=12 t(10 )>fofp=10 )cr=12 t(10 )=fofp=11 gfp<11 fp+1,23;1;1;"F";fp+1,28;1;1;p$(fp) dd=114,0;1;1;"NEWS FLASH";o$(cc);" HAS SOLD ";h$(bb);"TO";o$(aa):300,:o(aa)<014,0;"YOU'RE MAKING ME LAUGH!";n$;n$;n$:200 9c>0cr12 5:n(c)>3487  jcr12 c>0r=((*6)+1)*10 :rr=(*4)+1:mm>1620l  cr12 mm=1c=1o(1)r+60<14,0;x$(rr);" OFFERS TO RIDE FOR YOU(FEE ";r+60<;" POUNDS).DO YOU ACCEPT?";20,0;c$:q$:q$="y"500  kcr=12 tw>1rr=((*4)+1):19,0;1;h$(tw);"RIDDEN BY ";x$(rr);  649 Z19,0;"TO START RACE PRESS ENTER OR FORGRANDSTAND VIEW PRESS oo & ENTER":q$ q$"oo"19,0;1;1;"THE HORSES ARE NOW RUNNING ";14,0;"WINNER";14,6;0;0;n$;20,0;n$;15,0;"SECOND ";16,0;"THIRD " q$"oo"n$:n$:300, q$="oo"800  4y$=a$(1)(1(t(1)+h(b(1)))) 4d$=a$(2)(1(t(2)+h(b(2)))) 4e$=a$(3)(1(t(3)+h(b(3)))) 4f$=a$(4)(1(t(4)+h(b(4)))) !4g$=a$(5)(1(t(5)+h(b(5)))) #4i$=a$(6)(1(t(6)+h(b(6)))) %4j$=a$(7)(1(t(7)+h(b(7)))) '4k$=a$(8)(1(t(8)+h(b(8)))) )4m$=a$(9 )(1(t(9 )+h(b(9 )))) +7r$=a$(10 )(1(t(10 )+h(b(10 )))) ,"b$=y$+d$+e$+f$+g$+i$+j$+k$+m$+r$ 7t$="q":v$="w" 9 a=1 :.c=(*500)+1:c=(*b$)+1 < z$=b$(c) =a=1t$=z$ >a=1325E ?a=2z$=t$314: @a=2v$=z$ Aa=2325E Ba=3z$=t$314: Ca=3z$=v$314: Eu=110 F3z$=u$(u)z(b(u))=a:i(a)=b(u):e(a)=u:w(a)=p(u) Gz$=u$(u)o(f(b(u)))=o(f(b(u)))+(1800/a)-350^:cr=12 z$=u$(u)o(f(b(u)))=o(f(b(u)))+(1800/a)-350^ H?q$"oo"z$=u$(u)13 +a,(31-(a*8));h$(b(u)) I[z$=u$(u)a=1o(f(b(u)))=o(f(b(u)))+(20*p(u))+20:cr=13 tw=b(u) Lu Ma=3sh=0:cr=cr+1:twk=0:gg=gg+1:q$"oo"19,0;1;1;w$;" ":0:670 O*a=3q$="oo"sh=9 :700 Pa<3a=a+1 Qa<4314: Scr=13 770 Tcr13 80P ^M"a","b","c","d","e","f","g","h","i","j","ALI BABA ","BLUE MAX ","CAPTAIN " _%"DEADLOSS ","EAGER B ","FLY ME " `%"GEMSTONE ","HAMELIN ","I CLAUDE " a%"JERRYCAN ","KWINANA ","LASER " b%"MY GIRL ","NIMBUS ","OLD HERO " c'"PICKLED ","QUENTIN ","ROMANY " d%"STEAMING ","TOM BELL ","UNCAS " e%"VIMTO ","WALLY ","XERXES " f%"YES MAN ","ZEPPELIN ","ADVANCER " g%"BUS STOP ","COOL CAT ","DRYAD " h%"ELLY MAY ","FRAME-UP ","GERONIMO " i%"HARRY O ","INK SPOT ","JASON " j%"KINSMAN ","LUCY LEE ","MOONBEAM " k%"NOBBY ","ORACLE ","PAGE-BOY " l%"Q.L. ","RUN RUN ","SPECTRUM " m%"THE BAG ","USHER ","VOLATILE " n%"WET SUIT ","X-RAY ","YULETIDE " o*"ZOOT ","AMBER SU ","BAIL OUT " p%"CHAPLIN ","DEEP END ","EXAMINER " q%"FAILURE ","GREY OWL ","HARRIER " r" G.BOYCOTT "," B.CLOUGH " s+" H.COOPER "," S.DAVIS "," N.EDMONDS " t+" D.ESSEX "," N.FALDO "," D.GOWER " u+" K.KEEGAN "," N.KINNOCK "," R.MAXWELL " v+" L.PIGGOTT "," H.M.QUEEN "," C.SINCLAIR" w+" J.SAVILLE "," J.TARBUCK "," M.THATCHER" x)" T.WOGAN "," M.YARWOOD ","W.CARSON " y%"P.EDDERY ","E.HIDE ","J.MERCER " z|"HAS IMPROVED STAMINA","IS GOOD FOR A BET","IS IN PEAK CONDITION","IMPROVED IN TRAINING","LOOKS GOOD","HAS IMPROVED SPEED" {j "HAS LOST CONFIDENCE","HAS SLIGHT COUGH","IS NOT WELL","HAS GONE LAZY","IS OFF FOOD","HAS LEG TROUBLE" |0,10 ,23,189,124|,124|,68D,130,0,0,0,0,255,1,1,1,0,0,0,0,255,0,0,0,3,2,3,1,1,1,1,1,128,128,128,0,0,0,0,0,1,1,1,1,255,0,0,0 :1,11 ;1;1;"LOAN SHOP";14,0;0;0;"TYPE MEMBERSHIP NUMBER + ENTER":q:q=q:j(4)=0:q<1q>mmqa100d :14,0;"THE RACING LEAGUE WILL LEND YOU UP TO `";3000 -d(q);16,0;"HOW MUCH DO YOU REQUIRE?";17,0;"TYPE AMOUNT (IN POUNDS)";18,11 ;"AND ENTER" ra:a=a:a>(3000 -d(q))a<019,0;1;1;"NO CHEATING!":100d:390 >o(q)=o(q)+a:d(q)=d(q)+a+(a/5):g(q)=(d(q)/10 ) :14,0;"YOUR TOTAL DEBT IS NOW `";d(q);15,0;"YOUR REPAYMENTS WILL BE `";g(q);16,0;"PER RACE-STARTING NOW" #cr=12 150:100d 150:80P  c=qq+19 [0;c;3;h$(c);16;x(c);17;y(c);18;z(c);20;o$(f(c)) c Ftw>40(q=41)tw-41),13 ;1;1;"TW" Rq=21tw>20tw<41)tw-21,13 ;1;1;"TW" Ptw>0tw<21q=1tw-1,12 ;1;1;"*TW" 20,4;1;w$ 50:cr=12 t(6)=99c857Y  100d :mm>11,10 ;1;"TRADING POST";14,1;0;"WHAT IS YOUR MEMBERSHIP NUMBER? AND ENTER":q:q=q:qgg16,10 ;1;"NO CHEATING!":100d:100d :1,10 ;1;"TRADING POST";14,2;0;"TYPE THE NUMBER OF THE HORSE";15,4;"YOU WISH TO BUY OR SELL";17,11 ;"AND ENTER";19,0;n$ *q:q=q:q<61=q>0423 519,0;"TRY AGAIN!":75K:420 v=0.1}L426 Ka=1:t(1)=0:r=q:q$="t":ss=0:q$="9"470 ;:f(q)>mmrr=(*5)+1:rr>2191 f(q)>mm4,12 ;1;1;"NO DEAL";14,0;0;0;o$(f(q));" REFUSES SALE";n$;n$;n$;n$:100d:v=0.1}L:100d :mm>1f(q)ggf(q)mm10 ,0;"HAVE YOU AGREED TO TRADE WITH ";11 ,10 ;o$(f(q));"?";16,0;"IF SO TYPE THE PRICE AND ENTER";17,0;"IF NOT TYPE 0 AND ENTER":a:a=a:460 *:rr=3:v0.1}Lf(q)=ggaa>mmaaggo(aa)>4240rr=(*2)+1:rr=22,2;1;"AN OFFER YOU CAN'T REFUSE!!";12 ,0;0;o$(aa);" OFFERS TO BUY YOUR";13 ,1;"HORSE FOR `4000. IF YOU ACCEPT PRESS t AND ENTER.":435  :f(q)=ggrr2aa>mmv=0.1}L:4,12 ;1;1;"NO DEAL";14,0;0;0;o$(aa);" WILL NOT TRADE. ";16,1;"TOUGH LUCK!":v=0.1}L:150:100d Ff(q)=ggaamm16,10 ;"NO CHEATING":75K:100d :f(q)ggo(gg)(t(1)*100d)+40002,10 ;1;"NAG FOR SALE";12 ,0;0;o$(f(q));" OFFERS TO SELL YOU ";14,1;h$(q);"FOR `";(t(1)*100d)+4000;". TO ACCEPT";16,8;"PRESS t AND ENTER":435 H:f(q)=ggaa=gg16,10 ;"NOT ALLOWED":75K:100d S:f(q)=ggo(aa)<424016,10 ;"NOT ALLOWED":75K:100d :f(q)ggo(gg)<(t(1)*100d)+4000v=0.1}L:10 ,2;"YOU DO NOT HAVE ENOUGH CREDIT";15,2;"(GOOD TRY THOUGH!)":100d:100d +19,1;"OTHERWISE PRESS ENTER" q$:q$"t"100d !f(q)=ggo(gg)=o(gg)+4000 :f(q)ggo(gg)=o(gg)-((t(1)*100d)+4000) f(q)ggss=1 !f(q)=ggo(aa)=o(aa)-4000 f(q)=ggss=2 <f(q)ggo(f(q))=o(f(q))+(t(1)*100d)+4000 3f(q)=ggn(aa)=n(aa)+1:n(gg)=n(gg)-1 7f(q)ggn(gg)=n(gg)+1:n(f(q))=n(f(q))-1  ò:ss=22,8;1;1;"SUCCESSFUL DEAL";14,3;0;0;h$(q);" HAS BEEN SOLD TO";16,10 ;o$(aa):100d:453 ı:ss=12,8;1;1;"SUCCESSFUL DEAL";14,0;0;0;o$(gg);" HAS BOUGHT ";h$(q);15,8;"FROM";o$(f(q)):150 'f(q)=ggss=2f(q)=aa:80P (f(q)ggss=1f(q)=gg:100d S:o(gg)3o(1)3014,0;"DO YOU WISH TO CANCEL THIS RACE? ";15,0;c$;" ":490 cr12 mm>1n(c)>3o(c)3014,0;"DOES";o$(c);" WISH TO CANCEL THIS RACE? ";16,0;c$:490  q$:q$"y" ku=110 :z(b(u))=y(b(u)):y(b(u))=x(b(u)):x(b(u))=m(b(u)):o(f(b(u)))=o(f(b(u)))+240:u o(c)=o(c)-30 .19,0;1;"RACE CANCELLED "  100d  80P 14,0;"TYPE NO. OF HORSE HE IS TO RIDE AND ENTER ";18,0;n$;19,0;n$;20,0;n$ +q:q=q:q<1q>60<500: f(q)1500 $o(1)=o(1)-(r+60<)  a=1 b(a)=q510 @b(a)qa=10 o(1)=o(1)+r+60<:500 a=a+1:507 Kv=v+1:t(a)=t(a)+1:t(a)>15t(a)=15:v=v-1 T14,0;x$(rr);" WILL RIDE ";h$(q);" ";15,0;n$ c=0:q=0 t(a)>fofp=a $t(a)=fot(a)<15fp=11  213 j(4)=a389 :mm>11,11 ;1;"LOAN SHOP";14,0;0;"WHAT IS YOUR MEMBERSHIP NUMBER? ";15,0;"AND ENTER":q:qgg16,10 ;1;"NO CHEATING!":75K:100d d(gg)<3000 1,11 ;1;"LOAN SHOP";14,0;0;"THE RACING LEAGUE WILL LEND YOU UP TO ";3000 -d(gg);" POUNDS" 16,0;"HOW MUCH DO YOU WISH TO BORROW?";17,0;"(TYPE NUMBER OF POUNDS)";18,0;"AND ENTER"  kq:q<0q>3000 -d(gg)19,0;1;1;"NO CHEATING !":80P:100d !o(gg)=o(gg)+q:d(gg)=d(gg)+q+(q/5):g(gg)=(d(gg)/10 ):g(gg)<1g(gg)=1:d(gg)=0g(gg)=0 " :2,7;1;1;"CONGRATULATIONS!!";8,0;0;0;"LOAN AGREED. YOUR TOTAL DEBT IS ";10 ,0;"NOW ";d(gg);" POUNDS.";12 ,0;"REPAYMENTS TO THE LEAGUE WILL BE";14,0;g(gg);" POUNDS PER RACE" #F16,0;"STARTING NOW!":300,:cr=12 100d $ 80P &1rr=(*10 )+1:rr7100d 'ar=(*60<)+1:a=1:t(1)=0:q$="z":f(r)aaz(r)0191 (!f(r)=aaz(r)=0551' *:6,11 ;1;1;"NEWS FLASH":14,4;0;0;o$(aa);" HAS BOUGHT ";15,11 ;h$(r);16,8;"FROM";o$(f(r));17,11 ;"FOR `";4000+(t(1)*100d):250 +do(aa)=o(aa)-(4000+(t(1)*100d)):o(f(r))=o(f(r))+4000+(t(1)*100d) ,An(aa)=n(aa)+1:n(f(r))=n(f(r))-1:f(r)=aa:80P 0q=1::mm>114,1;"WHAT IS YOUR MEMBERSHIP NUMBER?";16,1;"PLEASE TYPE AND ENTER":q:q=q:q>mm100d 1@:j(q)=o(q)-d(q):6;1;"LIST OF HORSES OWNED":n$ 2c=160< 3Pf(c)=q6;c;9 ;h$(c);23;x(c);24;y(c);25;z(c) 5,f(c)=qq$="st":r=c:a=1:191 6 585I ?Aj(q)=j(q)+4000+(t(1)*100d):t(1)=0 Ic JSj(q)=(j(q)/300,):17,3;1;"YOUR STATUS RATING IS: ";j(q) NA20,4;1;w$:0:j(q)=0:100d XY:1,11 ;1;1;"WHISPERS";20,12 ;"PSSST!":c=1 Y%a=160<:h(a)=0:a Z2a=(*60<)+1:r=(*12 )+1 [r<7h(a)=2 \r>6h(a)=-1 ]Jr+5,2;1;h$(a);s$(r):502:r+5,2;n$ ^#c=c+1:c<6602Z _ lc>mm269  m~14,0;x$(rr);" OFFERS TO RIDE IN THISRACE.IS HE NEEDED? ";16,0;c$:q$:q$"y"269  n<14,0;"ENTER YOUR MEMBERSHIP NUMBER ";n$:n$ o$q:q=q:q<1q>mm622n p14,0;"ENTER THE FEE OFFERED-YOUR CASH CREDIT IS `";o(q):fee:fee60<625q r^o(q)16t(a)=16:v=v-1 z@14,0;x$(rr);" WILL RIDE ";h$(u);n$:n$:150 {t(a)>fofp=a |t(a)=fofp=11 }-c=0:dd=0:q=0:213 Ka=1mm:j(a)=0:k(a)=0:e(a+3)=0:l$(a)=" " 20,0;n$;14,0;o$(a);".ENTER THE NUMBER OF THE HORSE YOU WISH TO BACK. IF NONE PRESS 99 AND ENTER":k(a):k(a)=k(a):k(a)=99c661 'k(a)<1k(a)>60<650 5c=110 :c<11 b(c)=k(a)656 c c=11 650 o(a)=0n(a)=014,0;"FOR YOU THE GAME IS OVER. ADIOS!";15,0;n$;16,0;n$:400:661 14,0;"ENTER YOUR STAKE(WIN OR PLACE). e.g. w250 OR p300. YOUR CREDIT IS `";o(a);n$;n$:n$:n$:l$(a):l$(a)(1)"w"l$(a)(1)"p"657:16,0;n$ j(a)=l$(a)(2̱l$(a)):j(a)=j(a):j(a)>o(a)j(a)<1j(a)>1000k(a)=0:j(a)=0:14,0;"BET NOT ALLOWED";n$;15,0;n$:n$:n$:150:661 o(a)=o(a)-j(a)  a60<q$=" NO BET ":14+a,0;o$(a);q$;" " e(a+3)=.25~j(a)>0k(a)=i(1)14+a,0;o$(a);q$;((j(a)*w(1))*.25~);" POUNDS":o(a)=o(a)+j(a)+(((j(a)*w(1))*.25~)) e(a+3)=.25~j(a)>0k(a)=i(2)14+a,0;o$(a);q$;((j(a)*w(2))*.25~);" POUNDS":o(a)=o(a)+j(a)+(((j(a)*w(2))*.25~)) e(a+3)=.25~j(a)>0k(a)=i(3)14+a,0;o$(a);q$;((j(a)*w(3))*.25~);" POUNDS":o(a)=o(a)+j(a)+(((j(a)*w(3)*.25~))) e(a+3)=1j(a)>0k(a)=i(1)14+a,0;o$(a);q$;(j(a)*w(1));" POUNDS":o(a)=o(a)+j(a)+((j(a)*w(1))) ne(a+3)=1j(a)0k(a)i(1)k(a)<61=14+a,0;o$(a);q$;j(a);" POUNDS" e(a+3)=.25~j(a)>0k(a)i(1)k(a)i(2)k(a)i(3)14+a,0;o$(a);q$;j(a);" POUNDS" j(a)=0:k(a)=0:a #250:cr=13 770  80P a=1mm o(a)0(g(a)-o(a))3000 -d(a)17,0;1;o$(a);". YOU CANNOT AFFORD THE NEXT LOAN REPAYMENT SO YOU MUST BORROW AGAIN!":j(4)=a:150:540 o(a)017,0;1;o$(a);". YOU CANNOT AFFORD THE NEXT LOAN REPAYMENT SO YOU MUST SELL A HORSE!":150:695 o(a)60<f(q)a17,10 ;1;1;"NO CHEATING!":75K:695 :14,13 ;h$(q);15,8;"HAS BEEN SOLD TO";16,12 ;o$(aa);17,12 ;"FOR `4000":150 ~t(6)=98b:n(aa)=n(aa)+1:n(a)=n(a)-1:o(aa)=o(aa)-3500 :o(a)=o(a)+4000:f(q)=aa:80P i8,17;1;"HERE ";10 ,17;"THEY ";12 ,17;"COME!":835C a=110 t(a)=22  b(a)=i(1)t(a)=28  b(a)=i(2)t(a)=26  b(a)=i(3)t(a)=25 b(a)=0 a  c=0 (a=10 2-2:720 a=9 1-2 r=(*2)+1  c=c+1 .t(a)=28c>110nb(a)=b(a)+3 <t(a)=26b(a)26c>110nb(a)=b(a)+2 (t(a)=25c>110nb(a)=b(a)+r c<111ob(a)=b(a)+r .c>110nt(a)<25b(a)=b(a)+1 Eb(a)>3a+2,4;l(a);n$(1b(a)-4);"" ac=288,17;" ";10 ,17;" ";12 ,17;" " 2b(a)>27t(a)=28502:750 a=2719 a  718 :cr=13 760 +1,10 ;1;"RACE RESULTS" M5,5;1;1;"FIRST ";h$(i(1));p$(e(1)) ;7,5;"SECOND ";h$(i(2));p$(e(2)) ;9 ,5;"THIRD ";h$(i(3));p$(e(3))  670 21,6;1;"CLASSIC RACE RESULTS"  752 c:tw=i(1):3,6;1;"RACING LEAGUE TROPHY";10 ,2;0;"AS A RESULT OF THE LAST RACE THE RACING LEAGUE TROPHY HAS BEEN AWARDED TO:";14,2;1;1;h$(i(1));14,12 ;0;0;" OWNED BY ";14,21;1;1;o$(f(i(1))):350^:80 P  O:2:4::cr=12 0,9 ;1;"CLASSIC RACE" !9a=4302:2,a;7;"":a "a=4302:13 ,a;7;"":a:1,29;7;"";1,30;7;"";2,29;7;"" #Ia=110 :a+2,0;b(a);a+2,30;b(a):a $fp<11 fp+2,0;1;1;b(fp);fp+2,30;b(fp):15,0;0;1;"FAVOURITE ";1;"NO.";b(fp);15,15;"-";15,16;h$(b(fp));15,24;"(";p$(fp);") " %"16,0;"THE BETS ARE" &Ea=1mm:16+a,0;o$(a);" ";l$(a)(1);"`";j(a) 'Zk(a)>0k(a)<61=16+a,19;k(a);16+a,22;"- ";h$(k(a)) (a *@8,18;1;"RACE";10 ,17;"STARTED" + 4f(r)>mml(a)=0 5f(r)=1l(a)=6 6'f(r)=2mm>1l(a)=2 7'f(r)=3mm>2l(a)=7 8'f(r)=4mm=4l(a)=5 9 D.r=(*3)+1:r=1840H Er=2842J Fr=3844L H.2~L,0:.2~L,0:.2~L,0:.2~L,0:.2~L,0:.2~L,7:.2~L,0:.4L,7 I Jn.4L,-5:.3,0:5:.1}L,4:5:.4L,-5:.73333,0 K L~.3,7:.3,7:.3,4:.3,7:.3,9 :.3,7:.5,4 M R:1,10 ;1;1;"CLASSIC RACE";10 ,0;0;0;"THE NEXT RACE IS FOR THE RACING LEAGUE TROPHY.IF YOUR CREDIT IS NOT BELOW `1000 AFTER THE NEXT LOAN REPAYMENT YOU MAY ENTER ONEHORSE.IT MUST HAVE BEEN PLACED IN ITS LAST RACE TO QUALIFY. THEWINNER WILL RETAIN THE TROPHY UNTIL THE NEXT TROPHY RACE";19,0;"PRESS ENTER IF YOU WISH TO TAKE PART.OTHERWISE PRESS n AND ENTER" Tdtw>0r=tw:t(10 )=0:twk=1:b(10 )=tw:a=10 :q$="cr":191 U,tw>0r=tw:v=t(10 ):8204 Wq$:q$="n"140 Y*:20,0;"OR PRESS 99 AND ENTER";3,0;"TO CHECK CREDITS AND FORM";8,0;"CREDITS PRESS 2 AND ENTER";10 ,0;"HORSES 1-20 PRESS 1 AND ENTER";12 ,0;"HORSES 21-40 PRESS 21 AND ENTER";14,0;"HORSES 41-60 PRESS 41 AND ENTER":q ZAq99cq2q1q21q41)857Y [Kq=2q=1q=21q=41)t(6)=99c:112p \Jq=99cv=0:a=0::c=1:tw0v=t(10 ) ]:5,11 ;1;o$(c);9 ,0;0;"TYPE THE NUMBER OF THE HORSE YOUWISH TO ENTER.IF NONE TYPE 99. THEN ENTER":q:q=99cc0f(q)=co(c)>999+g(c)q99cz(q)>0867c c18,3;1;1;h$(q);"ACCEPTED FOR RACE":150:a=a+1:r=q:b(a)=q:e(a)=q:q$="cr":o(c)=o(c)-470:t(a)=0:191 g 8204 k0v=v+t(a):a=1fo=t(1):fp=1 l"a>1t(a)>fofo=t(a):fp=a ma>fpt(a)=fofp=11 nc