DERBY DAY y癐 COMPUTER RENTALS Ltd. 1982 "DERBY DAY"5  70F BACKGROUND ROUTINE-RACE :302.:f=07:ff:"G"+f,ff:f:15 15 j=88 55,0;1;0;J$(jj+31) 56,0;7;0;H$(kk+31) m>121y60< >4,0;4;1;0;O$(mm+31) #>3,0;5;0;0;M$(mm+31) (>2,0;5;1;0;N$(mm+31) ->18,0;1;0;J$(j+9 j+40() 2617,0;7;0;H$(kk+31) 3'j=j+1:k=k+1:m=m+1 7 <)5,31;2;1;"" >K3,3;5;0;0;"" A 1 BK3,3;5;0;0;"" C ESET-UP INITIAL ARRAYS FH$="" KJ$=" " PO$=" " UN$=" " ZM$=" " _ 8000@ cRACE ROUTINE d0 4:0:1:0:0: isound=-502 nNf=03:f,0;5;" ":f rG4,0;0;4;" " sG5,0;0;4;" " xOf=716:f,0;1;" ":f Pf=1821:f,0;0;" ":f f=61711 *f,0;7;H$(132 ) f 1 032 ,119w:7;0,-79O [7,0;7;"1";7,2;7;"";7,3;0;"" 8,1;" " [9 ,0;7;"2";9 ,2;5;"";9 ,3;0;"" 10 ,1;" " ^11 ,0;7;"3";11 ,2;0;"";11 ,3;0;"" 12 ,1;" " ^13 ,0;7;"4";13 ,2;6;"";13 ,3;0;"" 14,1;" " ^15,0;7;"5";15,2;2;"";15,3;0;"" 16,1;" " 7a=2:b=2:c=2:d=2:e=2 ""j=2:k=2:m=39' ,F0,4,15,12 ,4,10 ,10 ,10 -.05|L,15,.05|L,15,.3,15,.05|L,12 ,.05|L,12 ,.3,12 ,.05|L,8,.05|L,8,.3,8,.1}L,5,.1}L,5,.1}L,5,.2~L,3,.1}L,8,.1}L,8,.1}L,8,.1}L,12 ,.1}L,12 ,.1}L,12 ,.1}L,15,.1}L,15,.1}L,15,1,8 .F0,0,0,0,33!,126~,60<,36$ 60300,:f=07:ff:"G"+f,ff:f ; 0 @(1;4;5,4;"" B74;41),135:7;2,0 Ej$(6)="" T0301-:f=123:l1,l2:l1,l2:f ^f=1100d:f hef=15:7;41),136-f:7;2,0:5,5;" ":f r 1 w'.02{# =,1:.005y# =,1 |032 ,119w:4;0,-79O  1000 Q$(40(,10 ) Q$(1)="SNAIL " Q$(2)="TORTOISE " Q$(3)="SPEEDY " Q$(4)="LAME DUCK " Q$(5)="DR. WHO " Q$(6)="NO CHANCE " Q$(7)="RED WINE " Q$(8)="BEER BARON" Q$(9 )="OVERCOAT " Q$(10 )="PINK TIGER" Q$(11 )="YOGI BEAR " Q$(12 )="RAINBOW II" Q$(13 )="SUNNY BOY " Q$(14)="JASMINE " &Q$(15)="JERRY CAN " 0Q$(16)="TOBAMORRA " :Q$(17)="HOBBYHORSE" DQ$(18)="KING KONG " NQ$(19)="QUEEN BEE " XQ$(20)="ROYAL ANDY" bQ$(21)="RED RUM " lQ$(22)="EASY GO " vQ$(23)="DAWN DIVER" Q$(24)="CANOODLE " Q$(25)="LADYFISH " Q$(26)="MISS SHAPE" Q$(27)="POPSIS JOY" Q$(28)="ORANGE TIP" Q$(29)="TEA-POT " Q$(30)="WINDY LAD " Q$(31)="WARGAME " Q$(32 )="SIR GERARD" Q$(33!)="FAIR MADAM" Q$(34")="STAR WARS " Q$(35#)="LUXURY " Q$(36$)="GREENHORN " Q$(37%)="GIGGLE "  Q$(38&)="SECRET SIN" Q$(39')="SEA PAGO " Q$(40()="HARRY O "   MELODY   VERSE 800  *.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.2~L,10 :.2~L,12 :.2~L,10 :.4L,7 +H.2~L,7:.4L,5:.2~L,7:.4L,5 ,.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.2~L,10 :.2~L,12 :.2~L,10 :.4L,7 -Z.2~L,7:.2~L,5:.2~L,7:.2~L,5:.4L,3 ..2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.1}L,10 :.1}L,10 :.2~L,12 :.2~L,10 :.4L,7 /H.2~L,7:.4L,5:.2~L,7:.4L,5 0.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.1}L,10 :.1}L,10 :.1}L,12 :.1}L,12 :.1}L,10 :.1}L,10 :.4L,7 1Z.2~L,7:.2~L,5:.2~L,7:.2~L,5:.8L,3 3 4ALTERNATIVE 1 5.2~L,7:.1}L,11 :.2~L,9 :.1}L,12 :.1}L,11 :.1}L,14:.1}L,11 :.2~L,7 6.2~L,7:.1}L,11 :.2~L,9 :.1}L,12 :.3,11 :.3,7:.2~L,7:.1}L,11 :.2~L,9 :.1}L,12 :.1}L,11 :.1}L,14:.1}L,11 :.2~L,7 7a.3,16:.2~L,9 :.1}L,12 :.25~,11 :.25~,7 = >ALTERNATIVE 2 ?.6,9 :.2~L,9 :.2~L,10 :.2~L,9 :.2~L,7:1,5:.6,14:.2~L,14:.2~L,10 :.2~L,12 :.2~L,14:1,12 @.2~L,12 :.2~L,14:.2~L,14:.2~L,14:.2~L,10 :.2~L,12 :.2~L,14:.2~L,12 :.2~L,14:.2~L,12 :.4L,9 A.2~L,12 :.2~L,14:.2~L,14:.2~L,14:.2~L,10 :.2~L,12 :.2~L,14:.2~L,12 :.2~L,14:.2~L,12 :.4L,9 B.2~L,10 :.4L,12 :.2~L,12 :.2~L,10 :.2~L,9 :.2~L,7:.8L,5 G HALTERNATIVE 3 I.6,8:.2~L,10 :.2~L,8:.2~L,5:.2~L,3:.2~L,1:.2~L,3:.2~L,1:.2~L,5:.2~L,1:.2~L,-2:.8L,-4 J.6,8:.2~L,10 :.2~L,8:.2~L,5:.2~L,3:.2~L,1:.2~L,5:.2~L,1:.2~L,5:.2~L,5:.8L,3 K.6,8:.2~L,10 :.2~L,8:.2~L,5:.2~L,3:.2~L,1:.2~L,3:.2~L,1:.2~L,5:.2~L,1:.2~L,-2:.4L,-4 L.2~L,1:.2~L,3:.2~L,1:.2~L,5:.2~L,1:.2~L,-2:.2~L,-4:.2~L,-2:.2~L,1:.2~L,5:.2~L,1:.2~L,5:.2~L,5:.2~L,1 Q RALTERNATIVE 4 S.1}L,0:.1}L,5:.2~L,5:.3,5:.1}L,5:.2~L,4:.2~L,7:.4L,7 T.1}L,0:.1}L,7:.2~L,7:.3,7:.1}L,7:.2~L,5:.2~L,9 :.4L,9 U.1}L,5:.1}L,9 :.2~L,9 :.3,9 :.1}L,9 :.2~L,10 :.2~L,14:.4L,14 Vp.1}L,14:.2~L,12 :.2~L,12 :.2~L,10 :.2~L,4:.6,5 [  CHORUS 900  \.2~L,3:.1}L,3:.2~L,7:.2~L,10 :.8L,15 _.2~L,12 :.1}L,12 :.2~L,15:.2~L,12 :.4L,10 .2~L,7:.2~L,10 :.2~L,10 :.1}L,7:.1}L,7:.1}L,10 :.1}L,10 :.2~L,12 :.2~L,10 :.4L,7 ~.2~L,5:.1}L,7:.1}L,8:.2~L,7:.1}L,5:.1}L,5:.8L,3   SMILE !f=.9ffff.75@-.05|L 5502,94^:2;20,0,f*:f  f=.3.45ffff.05|L 5502,94^:2;20,0,f*:f   FROWN "f=-.8L-.65&fff.05|L 5502,86V:2;20,0,f*:f #f=-.3-.45ffff-.05|L 5502,86V:2;20,0,f*:f  START OF RACE m7,0;" ";9 ,0;" ";11 ,0;" ";13 ,0;" ";15,0;" "  1150~ Lg=(*5+1) Vg=1a=a+1 `g=2b=b+1 jg=3c=c+1 tg=4d=d+1 yg=5e=e+1 ~a7,a;" ";7,a+1;7;"";7,a+2;0;"";8,a;" " b9 ,b;" ";9 ,b+1;5;"";9 ,b+2;0;"";10 ,b;" " e11 ,c;" ";11 ,c+1;0;"";11 ,c+2;0;"";12 ,c;" " e13 ,d;" ";13 ,d+1;6;"";13 ,d+2;0;"";14,d;" " e15,e;" ";15,e+1;2;"";15,e+2;0;"";16,e;" " a=293100 b=293200 c=293300 d=293400H e=293500 Z8,a;" ";10 ,b;" ";12 ,c;" ";14,d;" ";16,e;" "  10 Z8,a;" ";10 ,b;" ";12 ,c;" ";14,d;" ";16,e;" " .15~,sound Z8,a;" ";10 ,b;" ";12 ,c;" ";14,d;" ";16,e;" "  .15~,SOUND  10 xg=(*5+1) g=1a=a+1 g=2b=b+1 g=3c=c+1 g=4d=d+1 g=5e=e+1 a7,a;" ";7,a+1;7;"";7,a+2;0;"";8,a;" " b9 ,b;" ";9 ,b+1;5;"";9 ,b+2;0;"";10 ,b;" " e11 ,c;" ";11 ,c+1;0;"";11 ,c+2;0;"";12 ,c;" " e13 ,d;" ";13 ,d+1;6;"";13 ,d+2;0;"";14,d;" " e15,e;" ";15,e+1;2;"";15,e+2;0;"";16,e;" " a=293100 b=293200 "c=293300 ,d=293400H 6e=293500 @sound=sound+.25~  1100L %END RACE - PRINT WINNER D20,4;7;0;1;"No. 1 is the WINNER" &)5,31;2;1;"" N 3600 D20,4;5;7;1;"No. 2 is the WINNER" )5,31;2;1;"" 3600 D20,4;0;7;1;"No. 3 is the WINNER" )5,31;2;1;""  3600 HD20,4;6;0;1;"No. 4 is the WINNER" R)5,31;2;1;"" z 3600 D20,4;2;7;1;"No. 5 is the WINNER" )5,31;2;1;"" f=-5025025  .03{u\,f $f END OF RACE DETERMINE PLACES  w(5) w(1)=a*10 +1 w(2)=b*10 +2 "w(3)=c*10 +3 ,w(4)=d*10 +4 6w(5)=e*10 +5 hl=15 rf=14 |w(f)w(f+1)4260 v=w(f) w(f)=w(f+1) w(f+1)=v f l ;(w(2)/10 )ɺ(w(3)/10 )4300 z=(*10 )+1 z64300 v=w(3) w(3)=w(2) w(2)=v f=15 l=(w(f)/10 ) w(f)=w(f)-l*10 f p1=w(1) p2=w(2) p3=w(3) p4=w(4) p5=w(5) 09a=ba=ca=da=eb=cb=db=ec=dc=ed=e4420D : 4450b D621,0;"WAITING FOR PHOTO FOR PLACES" Nf=1300,:f X721,0;" " b921,0;" 2nd - No.";p2;" 3rd - No.";p3 lf=1300,::f v 7 6ah=p1aw=(as*o(ah,1)/o(ah,2)+.5) Bah=p2aw=(((as*o(ah,1)/o(ah,2))/4)+.5) ah=p3ah=p4ah=p5aw=-as  aa=aa+aw G7,2;A$:aw>07,12 ;" Wins ";l$;aw;p$ 2aw<07,12 ;" Loses ";l$;aw;p$ p=14900$ 6bh=p1bw=(bs*o(bh,1)/o(bh,2)+.5) Bbh=p2bw=(((bs*o(bh,1)/o(bh,2))/4)+.5) bh=p3bh=p4bh=p5bw=-bs  bb=bb+bw G9 ,2;B$:bw>09 ,12 ;" Wins ";l$;bw;p$ 2bw<09 ,12 ;" Loses ";l$;bw;p$ p=24900$ 6ch=p1cw=(cs*o(ch,1)/o(ch,2)+.5) Bch=p2cw=(((cs*o(ch,1)/o(ch,2))/4)+.5)  ch=p3ch=p4ch=p5cw=-cs  cc=cc+cw I11 ,2;C$:cw>011 ,12 ;" Wins ";l$;cw;p$ 3cw<011 ,12 ;" Loses ";l$;cw;p$ p=34900$ *6dh=p1dw=(ds*o(dh,1)/o(dh,2)+.5) 4Bdh=p2dw=(((ds*o(dh,1)/o(dh,2))/4)+.5) >dh=p3dh=p4dh=p5dw=-ds C dd=dd+dw DI13 ,2;D$:dw>013 ,12 ;" Wins ";l$;dw;p$ E3dw<013 ,12 ;" Loses ";l$;dw;p$ Hp=44900$ \6eh=p1ew=(es*o(eh,1)/o(eh,2)+.5) fBeh=p2ew=(((es*o(eh,1)/o(eh,2))/4)+.5) peh=p3eh=p4eh=p5ew=-es u ee=ee+ew vI15,2;E$:ew>015,12 ;" Wins ";l$;ew;p$ w3ew<015,12 ;" Loses ";l$;ew;p$ z 0 $ r=r+1 )sound=-46. .<as=0:bs=0:cs=0:ds=0:es=0 8<ah=0:bh=0:ch=0:dh=0:eh=0 B$ss=0:st=0:pp=0 Gbkr=aw+bw+cw+dw+ew Hbkr=1mouth=930 Ibkr<1mouth=920 L<aw=0:bw=0:cw=0:dw=0:ew=0 V6tune=((*5+2)*10 )+800 :tune `' 6:0:5:0: jbkr=aa+bb+cc+dd+ee tbkr=05000 ybkr>100000CP5500| zr85800 ~ 8340 LOST ALL MONEY ' 5:0:0:0: 11,0;" Oh dear, everyone has lost" '3,0;" all their money!" .4L,2:.2~L,6:.2~L,7:.6,9 :.2~L,9 :.2~L,11 :.2~L,14:.2~L,13 :.2~L,11 :.6,9 :10 .4L,2:.2~L,6:.2~L,7:.6,9 :.2~L,9 :.2~L,11 :.2~L,9 :.2~L,7:.2~L,6:.6,4:10 .4L,2:.2~L,6:.2~L,7:.6,9 :.2~L,9 :.2~L,11 :.2~L,14:.2~L,13 :.2~L,11 :.6,9 .2~L,14:.2~L,13 :.2~L,14:.2~L,16:.2~L,13 :.2~L,14:.2~L,11 :.2~L,9 :.2~L,11 :.4L,6:.4L,4:.6,2 .2~L,9 :.2~L,6:.4L,9 :.2~L,9 :.2~L,6:.4L,9 :.2~L,9 :.2~L,11 :.2~L,14:.2~L,13 :.2~L,11 :.6,9 .2~L,14:.2~L,13 :.2~L,14:.2~L,16:.2~L,13 :.2~L,14:.2~L,11 :.2~L,9 :.2~L,11 :.4L,6:.4L,4:.8L,2  25,0;" Do you want to start again?" '7,0;" Press 'y' for yes" &8,0;" or 'n' for no" (="y"70F 2="n"5190F < 5160( F614,0;" O.K. Hope you enjoyed the game." K18,0;" Bye! " P 200 U019,6;"" V'17,28;"Exit" Zf=730 d18,f;" " i 10 nf x18,31;" "  9999' |WIN OVER `100000 ' 6:0:3:0: "1,0;" Well done! " 83,0;" You have won over ";l$;"100,000";p$ "5,0;" between you!"  250 27,0;" Unfortunately it looks as if" 19 ,0;" the bookmaker has left!...."  150 013 ,6;"" '11 ,28;"Exit" f=630 12 ,f;" " f 12 ,31;" "  100d 514,0;"If he'd stayed you'd have had;-" DM15,6;A$;15,16;" ";l$;aa;p$:p=15750v NM16,6;B$;16,16;" ";l$;bb;p$:p=25750v XM17,6;C$;17,16;" ";l$;cc;p$:p=35750v bM18,6;D$;18,16;" ";l$;dd;p$:p=45750v l619,6;E$;19,16;" ";l$;ee;p$ v 200 121,0;"Press 'y' for another game." =""5770 ="y"70F Gf=1421:f,0;" ":f  5190F RACE DAY OVER ' 6:0:3:0: =4,0;" That's the end of the day's racing." @8,0;" Let's see how much you all have left!" f=1100d:f  5700D pSELECT RUNNERS & ODDS u r(5) zf=15 q=(*40()+1 "q<1q>40(6015 Nr(1)=qr(2)=qr(3)=qr(4)=qr(5)=q6015 r(f)=q f version=36159 version=16120 odds=(*9 )+2  6130 odds=20 o(5,5) f=15 q=(*odds)+1 &o(f,1)=q:o(f,2)=1 f  6160 o(5,2) 0:7 '5,14;"1 ";Q$(r(1)) `version35,27;o(1,1);5,29;"/";o(1,2) '7,14;"2 ";Q$(r(2)) `version37,27;o(2,1);7,29;"/";o(2,2) '9 ,14;"3 ";Q$(r(3))  `version39 ,27;o(3,1);9 ,29;"/";o(3,2) $(11 ,14;"4 ";Q$(r(4)) %bversion311 ,27;o(4,1);11 ,29;"/";o(4,2) )(13 ,14;"5 ";Q$(r(5)) *bversion313 ,27;o(5,1);13 ,29;"/";o(5,2) .0:6 8 XACCEPT BETS & DISPLAY ]st=ss bpp=17100 lpp=27200  vpp=37300 pp=47400 pp=57500L st>aa7650 as=st:ah=hh 716,21;ah;16,23;l$;as;p$;" "  7600  st>bb7650 *bs=st:bh=hh 4717,21;bh;17,23;l$;bs;p$;" " > 7600 st>cc7650 cs=st:ch=hh 718,21;ch;18,23;l$;cs;p$;" "  7600 st>dd7650 ds=st:dh=hh 719,21;dh;19,23;l$;ds;p$;" "  7600 Lst>ee7650 Ves=st:eh=hh `720,21;eh;20,23;l$;es;p$;" " j 7600  M0,0;1;" YOU CAN'T AFFORD IT-BET AGAIN "  7600  END OF BET SUB-ROUTINE ?INTRODUCTION @' 6:0:5:0: J1,11 ;"DERBY DAY" T(1,11 ;1;"_________" ^32,0;" This is a race meeting of" hM3,0;" seven races. See how many"," winners you can pick." rT5,0;" Your Spectrum will be the"," bookmaker to take your bets." |v8,0;" Up to five players may make"," bets. Each player starts"," with `100 (or 100p), and may " 411 ,0;" back one horse in each race." 13 ,0;" Your 'friendly' bookmaker"," 'Honest Clive' Spectrum will"," pay the full odds on the"," winner and 1/4 the odds on"," second place."  9000(# 800 :VERSE 900:CHORUS K19,0;" Press any key to see other options available." =""8099 ' 6:0:5:0: L0,0;" There are 4 alternative versions available:-" q2,0;" 1) FUN Automatic selection of horses and long odds." t5,0;" 2) AMATEUR PUNTER Automatic selection of horses but shorter odds." 8,0;" 3) SERIOUS PUNTER Automatic selection of horses but YOU enter the odds." l12 ,0;" 4) DEAD SERIOUS PUNTER YOU name the horses and enter the odds!" ǫ15,0;" (Note:- In all versions BETS are only accepted in either `'s or p's (option on next screen) and winnings are rounded UP to the nearest ` or p.)" 400:LOAD HORSES 321,0;"CHOOSE VERSION - Press 1 to 4" version=-480 -version<1version>48145 I1;21,0;" VERSION ";version;" CHOSEN. " f=1200:f  N0,9 ;"Value of Stake";1;0,9 ;"______________" u2,0;" The final option is whether to have an initial stake and place bets in '`'s or 'p's. " U6,0;" ""Press 'L' for 'Pounds' or 'P' for 'Pence' " ="l"8160 ="p"8170  8153 l$="`":p$=" " /14,0;" You have chosen '`'s "  8175 l$=" ":p$="p" /14,0;" You have chosen 'p's " f=1200:f   8200 ACCEPT PLAYERS NAMES 321,0;"Sorry, I said 1 to 5 players." "How many players?",p !p<1p>58190  &70,2;"O.K. ";p;" person(s) want to play." 042,2;"Please tell me their name(s) - " : h=1p D 8600! Nh l#"If names correct - enter 'Y'",F$ vF$="y"f$="Y"8320 { 8220 r=1 ' 6:0:5:0: ,r=11,0;" Thank you." 33,0;" Lets meet the bookmaker and" 35,0;" see what the odds are on the" -r=17,0;" first race." ,r>17,0;" next race." 200 r>18400 SET INITIAL VALUES <aw=0:bw=0:cw=0:dw=0:ew=0 <ah=0:bh=0:ch=0:dh=0:eh=0 <aa=0:bb=0:cc=0:dd=0:ee=0 %aa=100d:p=18395 %bb=100d:p=28395 %cc=100d:p=38395 %dd=100d:p=48395 %ee=100d:p=58395 mouth=920 BOOKMAKER DISPLAY ': 6:0:5:0 Nf=03:f,0;4;" ":f R0,0;4;6;" ";"Parade Ring";" " 53,0;4;7;"" Bf=115:f,14;0;" ":f 67;2;2,16;" HONEST CLIVE " <5,5;1;"";6,5;"" '7,3;1;"" N8,5;7;5;"   ";9 ,5;3;" U " >9 ,4;6;7;"";9 ,10 ;"" $10 ,5;7;" " $11 ,5;7;" " ?11 ,5;6;2;"";11 ,9 ;"" S3,19;0;7;"RACE ";r;3,19;1;"______" C12 ,6;2;"";13 ,6;7;" " 313 ,2;4;7;" " *14,2;4;" " 8440 Er=12;7;0,14;" NOVICES PLATE " Er=22;7;0,14;" RAMTOP STAKES " Er=32;7;0,14;" JOCKEYS HANDICAP " Er=42;7;0,14;" SELLERS PLATE " Er=52;7;0,14;" CHALLENGE CUP " Er=62;7;0,14;" RAINBOW STAKES " Nr=77;2;1;0,14;" THE DERBY "  SELECT RUNNERS + ODDS 8432 version=4 9500% ! 6000p !version=3 9600% !H15,0;7;0;" PLAYER HORSE No STAKE " !Y16,0;l$;aa;p$;16,8;"1 ";A$:p=18480 ! !Q17,0;l$;bb;p$;17,8;"2 ";B$:p=28480 ! !W18,0;l$;cc;p$;18,8;"3 ";C$:p=38480 ! !Y19,0;l$;dd;p$;19,8;"4 ";D$:p=48480 ! !B20,0;l$;ee;p$;20,8;"5 ";E$ ! mouth !' 85004! !)HORSE PARADE-BOOKMAKER !*Cink=(*8):ink=3ink=4ink=58490*! !+f=010 !,;2,f;4;" ";ink;"";0;"":10 !-""84971! !.;2,f;4;" ";ink;"";0;"":10 !/""84971! !0f !12,f;4;" " !2=""8490*! !3 !4?4;21,0;" Player (1 to 5) or (9 to end) " !5=""8490*! !6pp=-480 !7?21,0;6;" " !8pp=9 8570z! !9pp<1pp>p85004! !:pp=1g$=A$ !;pp=2g$=B$ !<pp=3g$=C$ !=pp=4g$=D$ !>pp=5g$=E$ !?a4;1;21,0;" ";g$;" ";0;21,12 ;"Horse No.? (1 5) " !@ 100d !D=""8516D! !Ehh=-480 !F?21,0;6;" " !H#hh<1hh>58515C! !I 100d !MN21,0;4;" ";hh;" -Bet (Min. ";l$;"1";p$;" - Max.= All )" !Nss !Rss<08525M! !\?0,0;4;6;" ";"Parade Ring";" " !] 8432 !aC21,0;6;0;" " !f 7000X !p 85004! !z921,0;"No more bets - lets start race " !f=1100d:f ! 100d !END OF BOOKMAKER !PLAYER NAME SUB-ROUTINE !*h*4,2;"Player No.";h;" is " !"Max.10 letters",F$ "&F$<1űF$>10 8700! "h=1A$=F$ "!h=14,18;A$ "$h=2B$=F$ ".!h=28,18;B$ "8h=3C$=F$ "B"h=312 ,18;C$ "Lh=4D$=F$ "V"h=416,18;D$ "`h=5E$=F$ "j"h=520,18;E$ "t "~END NAME ROUTINE #(DEFINE USER GRAPHICS #)SUB-ROUTINE #2 9200# #<ENTER CONSTANTS #Fa=11111111:b=11100000:c=11110000:d=00011111:e=00000110:f=00100000 :g=01000000@:h=00011001:j=00010000:k=01110000p:l=00011100:m=00001000 #P9n=00001110:o=00000111:p=01100011c #Z9q=10001000:r=00000000:s=11111111 #X=144164 #Y=07 #Z #V$=X # V$+Y,Z #Y #X # #ENTER DATA FOR 21 CHARS ##0,0,0,e,m,n,n,o #M0,0,0,j,001110008,00111100<,01100100d,c $;00111111?,01011111_,01011001Y,j,f,j,j,j $c,c,b,f,f,f,f,f $10,0,0,00000011,n,n,e,o $")0,0,0,0,l,n,h,c $,a0,0,0,0,00100001!,01111110~,00111100<,00100100$ $6c,c,b,j,m,j,f,g $@e00111111?,01011111_,10011001,j,f,00011000,00000100,00000000 $J%c,c,b,j,m,j,01100000`,0 $T3a,d,00011000,j,f,g,10000000,0 $^Oc,c,c,00011000,00000100,00000010,00000001,0 $hI01111111,10011111,l,00011000,001100000,j,j,f $rc,c,b,f,j,m,m,j $|Wf,f,k,10101000,10101010,01110111w,01110010r,01010010R $01000100D,01000100D,11101110,11101110,01000100D,10101010,10101010,10101010 $-l,00111110>,p,p,p,00111110>,l,m $-10000000,10000000,q,a,q,q,q,q $r,s,r,s,r,s,r,s $ a,a,a,s,r,s,r,s $0,0,q,a,q,q,q,q $A0,0,0,0,0,0,0,0 %ENTER HORSES NAMES %f=513 2 %%0;f,14;" " %f %&618,0;"Please enter names of 5 horses " %0120,0;" (Maximum 10 letters each.)" %:f=15 %Dz$ %Nz$>10 9540D% %X80;7;f*2+3,14;f;" ";z$ %bf %l618,0;" " %q520,0;"Press 'Y' if correct 'N' if not" %rz$= %vz$="n"z$="N"9501% %{z$="y"z$="Y"9600% %| 9585q% %f=513 2 %0;f,27;" " %f %o(5,2) %616,0;"Please enter odds for each horse" %617,0;"(Both figures required - " %618,0;" e.g. 4/1 enter 4 then 1 " %619,0;" 2/7 enter 2 then 7 " %520,0;"(Maximum 2 digits for each No. " % 0 %"Horse 1 ",z %"z<1z>99c9660% %47;5,27;z;5,29;"/" %o(1,1)=z % "to ",z %"z<1z>99c9675% %7;5,30;z %o(1,2)=z %"Horse 2 ",z %"z<1z>99c9690% %47;7,27;z;7,29;"/" %o(2,1)=z % "to ",z %"z<1z>99c9705% %7;7,30;z %o(2,2)=z & "Horse 3 ",z &"z<1z>99c9740 & &47;9 ,27;z;9 ,29;"/" &o(3,1)=z & "to ",z &"z<1z>99c9755& & 7;9 ,30;z &!o(3,2)=z &>"Horse 4 ",z &C"z<1z>99c9790>& &H67;11 ,27;z;11 ,29;"/" &Io(4,1)=z &M "to ",z &N"z<1z>99c9805M& &R7;11 ,30;z &So(4,2)=z &p"Horse 5 ",z &u"z<1z>99c9840p& &z67;13 ,27;z;13 ,29;"/" &{o(5,1)=z & "to ",z &"z<1z>99c9855& &7;13 ,30;z &o(5,2)=z &6:0 &f=1621 &2f,0;" ":f &520,0;"Press 'Y' if correct 'N' if not" &Z$= &z$="n"z$="N"9600% &z$="y"z$="Y"9920& & 9885& &620,0;" " & 8470! 'SIZE OF PROGRAM ROUTINE ''z=23653e\+256*23654f\ '!(z-16384@);" Total memory" ' +z=z-(23635S\+256*23636T\) ' z;" Basic program" ' abcde d!g@: jkphmnopcqrs##zersioddoutddn oun$vkun\ѕ( SNAIL TORTOISE SPEEDY LAME DUCK DR. WHO NO CHANCE RED WINE BEER BARONOVERCOAT PINK TIGERYOGI BEAR RAINBOW IISUNNY BOY JASMINE JERRY CAN TOBAMORRA HOBBYHORSEKING KONG QUEEN BEE ROYAL ANDYRED RUM EASY GO DAWN DIVERCANOODLE LADYFISH MISS SHAPEPOPSIS JOYORANGE TIPTEA-POT WINDY LAD WARGAME SIR GERARDFAIR MADAMSTAR WARS LUXURY GREENHORN GIGGLE SECRET SINSEA PAGO HARRY O L`P AramByochiFy( GramHJ O N M VS