ZXTape! 0Created with Ramsoft MakeTZXmFPTP  P54499:23658j\,8:236066\,228:236077\,211 f0:0::"PIC":17,0:4:1:4:"FIRSTCODE":55268  19,0:"FIRST PTP" =nPIC Pq 88p8p8px @/.x ?q ?`A8@p$ b88p8p8p@A1 `HX  b88p8p8p@"p @ EA@! B88p8p8p 1  @Da  ` IB1F ??888p./H /`@`> QA ???888Q@?]  ?`BAaH" ???888@Q@@b  ` b APh 30|g8p8p88p88P Q@P  ` b ?39g033`f0 34>s1``a@03a@@03 3`f0F~w1~g3p'03cg1 03 3`fFw1~g3p' g3g3$I ?3 3~xg74F 3cq 1`ca3/ f$y ?3 3~~8g~?3Fğ|>0|?3 3sq 1`ca3 fpό$I 03 3`f`?34F~9s 331  1`ca3 f03 g3$I 03 3`f0 34F 1``a 3?< 1a303caI 0c 3`f 34c1``a~ 3> 1?~a303a@@ @  ~~p~<@ g@ `ٌf76ll 3f8Ⱦǐ~~|8Ⱦǐ 9$N<@6 |ٌfσg 8?~x 3$ $ f3`c`` $ $ &I @ 3 _|fᏃc`0?<0l$' gl|c|< $'%Ig8@<|?oc`?<0  $  g |c| $ y$$ @>|?X>|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~L2~pppv8DD8i`*=\s#rv{=\!:\~6} ( !'"B\2D\v*]\~$ #"]\},~@1333333331 p8~~??00??000̏ s33031 ~~000??000χ  33 ~~?~?00??>73̏ s333338<<66331χ p8~~~G?00??00? ǃs33s ~G?100001?00BB900009̌!333s!f<BB900??000󀀀````````~~?00??>73χ00~~900??000 13333scÁ  <~9??60000χBB?00??00?̈3pp0````````l ~~?00??00?󃃃88<66331ǃ0pp0~G800??000s33s!333s!B~?00??000~@900009͌33ql  BB?100001?00006??9χ800118 ̈!300000 ````````~~~~?00??00?󀀀```````` 133s! ~G0133333310 ~~?00??~~?  s33331 p8~~G800??000s33sWUU??>>>>.FGccҩYWUUUUUUUUUUU +R@< '?'@`PXTVUUUUU^y$ ""BBOcjPX/ OOL IDC@ XDDBBȬ\ V Ph*  5*UUUUU@`ppx|||~~~}qqbMJMZujժUUUUUUUUUUU@@``````oժժժU  ,&$$$$$ j>|xU?0 `@PjUJB``Ϗ????UUP(*EPEıDR zUUU_PO@ TI$U+ HTP~???UWP$/OG Pxxx4$$$$HHHP@@  )**6&   5J*lUVUUVUU>  jRRXܬԮ֮o}uZjUUZj&i  cU*eeMuZU<OOH@@@ `@A@P ĺTpIR-UZUU+@@0` #VJJ:5:UZU@ hJjk+5=6jRv^|PP``@@@@@@@ 5>kTѢÃDJI¤ ,HP@PH J55RXT,C`CPTT*@ @0??????????!"!"͑!"!"͑!"!"͑!"!"͑[S[S*|< [SS*}<6$z@gzo!@!@! @!@!@!?@!P!P!P!P!P!P!!@!@!@!!@!"@!@@!A@!`@!@!@!@!@!=@!>@!^@!_@!@!@!P!P!P!P!P!P!P!P!P!`P!P!P!P!P!P!P!P!P~w#$6$*N:MO~w$# (! :L=2L*N#"N=P,>2L>2M!#@"N!>2L>2M!2!9@"N!@!H!H!P>2L>2M*P!@"N>2L>2M!*H"N>2L>2M!H"N>2L>2M!*P"Ny2"N>2L2M!`!>m>2\&>D% :\ ( (" y(> m !Y#>my(> m !Y#>mFX#FPw# ɃXYYZ>2M2L! @"N*P!X6 # x T!X!@~w#(#!X@>"w#@>'w#!Z>"@w#@>'w#!@D͚!T͚> 6#=!">2>2!" >2   :=2 :=( 2>2!$"!"):<͌)͉)͉)͉:=2(( : !" @* "!">2:<2!"!  -  !!`@ ~w$B~w$B~w$B ~w$B~w$vv"{2*:_  w.&*:_{C J etet-("z@gzo~ww#$:_*.&{  eͿ-(" ~ww#$͎{(!" !6 #6#u!r" !" !2" !" __* ~(O'_!#~(w+!Yz ###~(=w#+~=w#>6#!* ~_#~( @G͢>W !{ ee-~w$#<<< $ '' ?pp?0 0 <~B <``0000`` 0000  0 aA0gdaa08 &cCÃ 8?pƉp?0 0 <$B@XdBB$<``0000`` 1111 c ` c1bddb18F&C#&F8?pp?0 0 <~@@|B<<``0000`` 1100  0gddc08 ##& 8?p !?p?0 0 < $D<``0000`` 0123 1Q0`a``08 FCCCFF 8?pp?0 0 <|<|<``0000`` 0000  0g`g`08 &### 8?pp?0 0 <{8 0P>0`` 8yww 蘀xl0x 08|``0<17L~yp0   >= `00 8yww~蘀 08|``0x0x?07`00@~p00` >{80 0P> 0`  8yww 蘀x0x<<<<RJ<|BB|DB<@<B<BBBBB<_oFIRST PTP t(&@-t(:0:0:4:0::clatts=61349:round=60643:screen=61010R:spradd=61008P:choice=61326:prtfac=61327 2811 ,6;"LOAD SAVED GAME Y/N":="Y":"SG" 7"N"502  z=73I88X h(z,1)=(*5) #h(z,2)=1+(*3) #h(z,3)=1+(*3) #h(z,4)=1+(*3) z 411 ,1;"Input your name (max 12 chars)" z$ Wz$>12 11 ,1;" Sorry, too long ":502:230  q$(4)=z$ day=0:course=0 "0:4:0: ,55268 6 clatts @round J+spradd,44,:spradd+1,218 T screen ^ z=choice h clatts rz=0410 |z=1660 (z=2"SG"290"::300, z=38204 C4,8;"Choose trainer or";5,8;"e to exit" z=14 (z*2+7,9 ;z;" ";q$(z) z z$= #z$="e"z$="E"clatts:330J &z$<491ůz$>524450 z=z$  clatts z=45600 (addr=584204+512*(z-1) ad1=(addr/256) ad2=addr-ad1*256  spradd,ad2:spradd+1,ad1 & prtfac 0!9 ,7;"Name: ";q$(z) :'11 ,7;"Wins this season:" Dy=13 N'y+11 ,6;t$(y);": ";q(z,y) Xy b716,5;"Overall Major Wins: ";q(z,5) l718,5;"Points this season: ";q(z,4) v/20,3;"PRESS ANY KEY TO CONTINUE" =""640 clatts:330J 1,14;"MONEY" 2,14;"-----" %5,5;"You have `";money $6,5;"You owe `";loan $9 ,5;"Choose option: " Ɯ11 ,5;"1 obtain loan of `10000 2 payback `10000 of loan e exit" z$= z$="e"z$="E"650 &z$<491ůz$>502720 z$="2"790 loan=100000CP650 0loan=loan+10000':money=money+10000'  650 loan=0650  0loan=loan-10000':money=money-10000' * 650 4 NEXTDAY >%z=116:e(z)=0:z Hrace=1 Rday=day+1 \)day=13 fee=5000:950 ffee=1000 pcourse=course+1 z course=4course=1 going=1+(*3) 6,10 ;"Day: ";day *10 ,10 ;"Course: ";c$(course) (14,10 ;"Going: ";g$(going)  1000 course=1+(*3) going=1+(*3)  6,10 ;"MAJORS DAY" %10 ,10 ;"AT ";c$(course) (14,10 ;"Going: ";g$(going) /20,3;"PRESS ANY KEY TO CONTINUE" =""940  clatts day<13 1110V  num=1 rand=1+(*9 ) $z=19 .z=rand1090B 8#r(num)=l(race,z):num=num+1 Bz L 1180 V%z=172H:t(z)=0:z `z=18 jrand=1+(*72H) tt(rand)=11130j ~"h(rand,2)race1130j r(z)=rand:t(rand)=1 z num=1:picked=0 money81;"m for more choice" <1;"or e to exit" F pos=0 Pz=numnum+7 Zpos=pos+1 d_e(z)=1z>numhorsepos+10 ,0;" ":1450 n(pos+10 ,1;pos;" ";h$(p(z)) xy=14 Of(z+72H,y)<5pos+10 ,y+20;f(z+72H,y):1430 "pos+10 ,y+20;0 y *pos+10 ,26;w$(w(z+72H)) z z$= numhorse<9 1510 z$"m"z$"M"1510 &num=1num=9 :1350F num=1:1350F z$ = "E"z$ = "e" 'z$<491ůz$>5681460 z=z$+num-1 z>numhorse1460 e(z)=11460  "z$="e"z$="E"1880X , clatts 65,10 ;h$(p(z)) @y=116 J(h$(p(z),y)" "6,y+9 ;"-" Ty ^^d(z,4,1)=010 ,1;"No records for this horse yet.":1750 h59 ,0;" Course Going Miles Pos." r610 ,0;" ------ ----- ----- ----" |#y=1:x=10 :1730 x,2;c$(d(z,y,1))  x,14;g$(d(z,y,2)) x,23;d(z,y,3)  x,28;p$(d(z,y,4))  y=y+1 y=51750 $d(z,y,1)=01710 x=x+1:1670 ?17,0;"Press y to enter horse into racee to exit" z$= z$="y"z$="Y"1800 z$="e"z$="E"1860D  1760 rand=1+(*8) r(rand)>72H1800 r(rand)=z+72H &e(z)=1 0(picked=picked+1:money=money-fee :&picked=2moneyr(z)<73Iz+7,1;z;" ";h$(r(z)):2090*  /z+7,1;z;" ";h$(p(r(z)-72H)) *<r(z)>72Hz+7,19;q$(4):2110> 4<z+7,19;q$(((r(z)-1)/24)+1) >z H/20,3;"PRESS ANY KEY TO CONTINUE" R=""2130R \ 1890b f clatts p4,8;t$(race) zz=115 (t$(race,z)" "5,z+7;"-" z z=18 >r(z)<73Iz+7,2;z;" ";h$(r(z)):2230 /z+7,2;z;" ";h$(p(r(z)-72H)) y=14 @f(r(z),y)<5z+7,y+20;f(r(z),y):2260 z+7,y+20;0 y !z+7,26;w$(w(r(z))) z /20,3;"PRESS ANY KEY TO CONTINUE" =""2300  1890b  clatts .3,3;"Choose horse to bet on or" $4,3;"e to exit" .(7,6;"Betting Prices are:" 8(8,6;"------- ------ --- " Bz=18 L>r(z)<73Iz+9 ,4;z;" ";h$(r(z)):2400` V/z+9 ,4;z;" ";h$(p(r(z)-72H)) `Az+9 ,24;b$(f(r(z),3)+f(r(z),4)-1) jz tz$= ~z$="e"z$="E"1890b 'z$<491ůz$>5682420t bet=r(z$) 20,3;"Stake? `" pos=12 :stake=0 z$= z=12:z z$=13 2570 z$=12 26102 'z$<480ůz$>5792480 z=z$ <20,pos;z:pos=pos+1:pos=222600( stake=stake*10 +z 2480 .stake>5000stake<100d2600( money=money-stake  1890b (<20,2;" ":2460 2$pos=pos-1:20,pos;" " <stake=(stake/10 ) F 2480 P clatts Z$z=18:x(z)=0:z dz=18 nx(z)=h(r(z),1) x)h(r(z),2)=racex(z)=x(z)+4 *h(r(z),3)=goingx(z)=x(z)+2 +h(r(z),4)=coursex(z)=x(z)+2 x(z)=x(z)+(w(r(z))/7) z /10 ,2;"Under starter's orders..." addr=65200 z=116 y=18 =x(y)>0x(y)=x(y)-1:addr,y-1:2790 addr,8 addr=addr+1 y z z=18 3r(z)<73Iz+62487,32 :2850" z+62487,39' "z ,Erace=161618,15:62487,1:2890J 6Frace=261618,132:62487,1:2890J @+61618,15:62487,2 J T61500< ^ h clatts rround |1,13 ;"RESULT:" 2,13 ;"------" ,z=18:z+3,4;z:z %z=116:t(z)=0:z z=18 hc=-300,:hi=0 y=18 "t(y+8)=131200 w=62456+y*2 )w>25x=w-256:3050 x=w xhchc=x:hi=(w+1):v=y:31200 (w+1)hihi=(w+1):v=y:31200 rand=(*2) rand=131200 &v=y 0y :t(z)=r(v):3140D Dt(v+8)=1 N8t(z)<73Iz+3,6;h$(t(z)):3220 X)z+3,6;h$(p(t(z)-72H)) b_y=13:x=14:d(t(z)-72H,y,x)=d(t(z)-72H,y+1,x):x:y l)d(t(z)-72H,4,1)=course v(d(t(z)-72H,4,2)=going 'd(t(z)-72H,4,3)=race $d(t(z)-72H,4,4)=z Az+3,23;b$(f(t(z),3)+f(t(z),4)-1) z z=18 3y=13:f(t(z),y)=f(t(z),y+1):y f(t(z),4)=z w(t(z))=w(t(z))+5-z $w(t(z))>30w(t(z))=30 "w(t(z))<1w(t(z))=1 y(t(z))=y(t(z))+5-z z 'day=13 elm=5:3340  elm=race iq(((t(1)-1)/24)+1,elm)=q(((t(1)-1)/24)+1,elm)+1 z=13 gq(((t(z)-1)/24)+1,4)=q(((t(z)-1)/24)+1,4)+4-z *z 4"day=13 m(race)=t(1) >!t(1)<73I3450z H314,1;"Congratulations! You have won" R+day=13 num=25000a:3430f \num=5000 f+15,1;"`";num;" prize money." pmoney=money+num zt(1)bet3520 @num=(b$(f(t(1),2)+f(t(1),3)-1)) num=(num*stake) "num>25000anum=25000a 317,1;"Congratulations! You have won" -18,1;"`";num;" from your bet." money=money+num+stake /20,3;"PRESS ANY KEY TO CONTINUE" =""3530 clatts race=race+1 race=43590 day=13 970 910 $5,9 ;"TRAINERS TABLE:" #6,9 ;"-------- -----" $z=14:t(z)=0:z $z=14 . h=-1 8y=14 Bt(y)=13670V L%q(y,4)>hh=q(y,4):x=y Vy `3z+8,5;z;" ";q$(x);" ";q(x,4) j<q(x,4)=1z+8,24;"pt":3710~ tz+8,24;"pts" ~t(x)=1 z /20,3;"PRESS ANY KEY TO CONTINUE" =""3740 numhorse=54100  clatts "2,10 ;"Horse Market" "3,10 ;"----- ------" M6,1;"Do you wish to sell any horses";7,1;"(y/n)?" z$= z$="N"z$="n"4100 z$"Y"z$"y"3800 36,1;"Press number of horse to sell " %z=116:e(z)=0:z  num=1:13302 z$="e"z$="E"4100  clatts (D7,2;h$(p(z));9 ,2;" has been sold for..." 2Zprice= ((*20)-10 )*1000+10000'+10000'*h(z+72H,1) <money=money+price F:p(z)>88Xs(p(z)-88X)=0:p(z)=z+72H Py=znumhorse Z3p(y)>88Xp(y-1)=p(y):p(y)=y+72H dh$(y+72H)=h$(y+73I) ny xnumhorse=numhorse-1 y=znumhorse &x=14:w=14 d(y,x,w)=d(y+1,x,w) w:x w(y+72H)=w(y+73I) x=14 !f(y+72H,x)=f(y+73I,x) !h(y+72H,x)=h(y+73I,x) x y 11 ,2;"`";price /20,3;"PRESS ANY KEY TO CONTINUE" =""4090 1money<10000'numhorse=164440X  clatts "2,10 ;"Horse Market" ""3,10 ;"----- ------" ,K6,1;"Do you wish to buy the following horse (y/n)?" 6512 ,1;"Name";12 ,23;"Price" @513 ,1;"----";13 ,23;"-----" Jhrand=89Y+(*208) T's(hrand-88X)=14170J ^14,1;h$(hrand) habrand=(*5) r&price=abrand*10000'+10000' |price>money4200h 14,23;"`";price z$= $z$="N"z$="n"clatts:4440X z$"Y"z$"y"4240  clatts numhorse=numhorse+1 p(numhorse)=hrand &z=14:y=14 d(numhorse,z,y)=0 y:z z=numhorse+72H h(z,1)=abrand #h(z,2)=1+(*3) #h(z,3)=1+(*3) #h(z,4)=1+(*3) w(z)=15 &y=14 0f(z,y)=5 :y Ds(hrand-88X)=1 Nmoney=money-price Xday<13 330J b#2,10 ;"END OF SEASON" l#3,10 ;"--- -- ------" v$5,10 ;"Major Winners:" 27,0;" Horse Trainer" 28,0;" ----- -------" base=0 z=13 m(z)>72H4560 z+9 ,2;h$(m(z)) <z+9 ,20;q$(((m(z)-1)/24)+1)  4590 )z+9 ,2;h$(p(m(z)-72H)) !z+9 ,20;q$(4) base=base+1 z  h=-1 z=14  q(z,4)hh=q(z,4):x=z:46604  rand=(*2) *#rand=1h=q(z,4):x=z 4z >015,0;"Trainer Of The Year:";q$(x) H%x=4money=money+100000CP R h=-1 \z=188X fy(z)hh=y(z):x=z:4750 zrand=(*2) rand=1h=y(z):x=z z x>72Hx=p(x-72H) (17,7;"Horse Of The Year:" 18,8;h$(x) day=0:course=0 4z=188X:w(z)=15:y(z)=0:z z=14 &y=14:q(z,y)=0:y z /20,3;"PRESS ANY KEY TO CONTINUE" =""4850 %z=116:t(z)=0:z  clatts  2,11 ;"New Horses"  3,11 ;"--- ------" $C6,2;"Enter names of 5 new horses: (max 16 chars)" .: 8z=15 Bz$ Lz$>164930B V"Horse ";z;": ";z$ `rand=1+(*numhorse) jt(rand)=14960` t/p(rand)>88Xs(p(rand)-88X)=0 ~h$(rand+72H)=z$ p(rand)=rand+72H Ay=14:x=14:d(rand,y,x)=0:x:y t(rand)=1 rand=rand+72H *h(rand,1)=base+(*(5-base)) &h(rand,2)=1+(*3) &h(rand,3)=1+(*3) &h(rand,4)=1+(*3) )y=14:f(rand,y)=5:y z /20,3;"PRESS ANY KEY TO CONTINUE" =""5110  300, ȅ(Celtic Shot Floyd Aldino Beech Road Alone Success Nos Na Goithe Rapier Thrust Sea Merchant Barnbrook Again Nohalmdon Sabin Du Loir Foyle Fisherman Sprowstown Boy Gaye Brief Fredcoteri Heart Of Stone Cavvies Clown Contradeal The Thinker Ballyhane Durham Edition West Tip Acarine The Argonaut Pearlyman Panto Prince High Knowl Little Bay Jimmy Lorenzo Saffron Lord Beat The RetreatAmbler Rambler Desert Orchid See You Then Very Promising Bonanza Boy Gee-A Southernair Belgrove Lad Yale Playschool Beau Ranger Kildimo Cybrandian Mr Frisk Mick's Star Bluff Cove Peaty Sandy Randolph Place Pat's Jester Prideaux Boy Hypnosis Karenomore Long Engagement Opening Bars Tom Sharp Celtic Chief Tickite Boo Osric Juven Light Gala's Image Clara Mountain Mr Moonraker Timely Star Forgive N ForgetNupsala Ten Plus Western Sunset Golden Friend Malya Mal Miss Nero Motivator Aston Express Matbar Half Brother Another Seeker True Spartan Rausal Wise Cracker Dudley's Star Slieve Felim Irish Gal Jack Ramsay Knights Air Highway Express Celtic Time Starjestic Grinders Lordy Boy Tagio Telegraph Road Wet The Bed Relekto Sam Da Vinci Happy Breed Perfect Glen Kadesh Skevana Smiling Bear Polish Llanarmon Ruststone How Now Made In Japan Vulrory's Clown Five n Dime Bee Garden Miss Tonar Monk's Mistake Bedlam Wild Argosy Kristenson The A Train St Gabriel Ramadi Dawn Ring The Bell Buckshee Boy Great Destiny Sunbathe City Fleurcone Suez Special Venture Latchwood Auntie Dot Pip Spacial Ickworth Tribal Drum Logical Maladiction Kamrise Cup Hands Highland Fling Rosskover Ishkhara Impany Mr Monaghan Rainbow Lady Sir Blake Cona Glen Kelly's Boy Grey Salute The Quiet Man Tartan Bunnet Quite A Night Might Move Arthur Grimble Hope End The Bakewell BoyStrong Gold Bickerstaffe Royal Stag Skygrange Mr Peapock Nicol John Autumn Sport Ogden York Roubayd Senor Somara Rig Steel Lord Chumly The Dirty Dog Roscoe Harvey Weight Problem Dad's Gamble Celtic Flight Horsey Porsey Christmas Holly Sir Crusty Sally MacLennaneMausolee Lunan Bay Peril Run Rosie's Member The Pink Lagoon Sooner Still Houston Belle Macusla Water Cannon Fraud Squad Dicks Folly Snowfire Chap Merry Junior Super Spark Baies Lars Nilsen Hill Beagle Record Haulier Paper Moon Casual Pass Clough's Mouth Norton Warrior Shallow Walk Royal Gossip Powerless Dream Merchant Ribovino Auld Mick Fourth Tudor Indian Orator Mister Butler Ganoon Cawarra Lad Redgrave Devil Barry Window Discane Boy The Pleb Tom Bir Peace Terms Giles Cross Amadis Kilsyth Tenesong Woodside Road The Puller L'America Celtic Girl The Shiner Tiber River Brianston Bell French Goblin Ol' Fleabag Brookmount Starwood Patrick's Star The Papparazi Video Shot Green Willow Pride Hill Monumental Lad Outside Edge Chipped Metal Upham Gamble Shannon High Imp Winning Run Kavaka Crystal Song Folk Dance First Bill Trackers Jewel Scottish Simbir Doctor What Abbreviation Fingest Saddler's Night Glenside Jerry Kamir Tatties n Mince Trafalgar Blue Market Forces Brough Academy Lor Moss Winner Dancer Danish Flight Ryde Again Crumpet Delite King's Jug Bartinas Star Arbitrage Boardman's StyleJack's Back Jock's Mistake The Drunken Bum Double Whisky High Range None Too Dear Evening Song Watering Hole Antinous Naskracker Flag Of Truce True Spark Scarfaced BeggarUnder-offer Gay Gunner Al Shamikh Keynes Sporting Lad Castle Andrea Woodgate Zuko Final Alma Tele Trader Paper Doll Hourglass El Galileo Bright IntervalsAkram Nick The Brief Kodiak Island Deep Moment Northern GamblerCoral Leisure It's A Pry Broadway Boy and\andSIJKLMNOPQRSTUVWXX# Ascot Ayr CheltenhamFirmGoodSoftoneCPoa+IJI5Xכ10 3 10 4 10 5 10 6 10 7 10 8 10 9 10 1010 1110 1210 1311 0 11 1 11 2 11 3 11 4 11 5 11 6 11 7 11 8 11 9 11 1011 1111 1211 1312 0 12 1 12 2 12 3 12 4 X2One Mile Race Two Mile Race Three Mile Race5 Jester BigotAndy Cap Penny JitmanAdam Parker A6/4 2/1 5/2 10/34/1 5/1 13/28/1 10/114/116/120/125/133/150/1+iXorsXS 123 !"#9:;)*+ABClattouncreeRpradPhoicrtfadd4dd4acaourseoinanJu ickeoe1st2nd3rd4th5th6th7th8thumhorsinnu ric'ranbran\asZ Kevin SheedyX