ZXTape! 0Created with Ramsoft MakeTZXgn S|uv$U| 63300D  9000(# %23675{\,e88:23676|\,e255: &23675{\,e176:23676|\,e254: $23675{\,e8:23676|\,e254: %23675{\,e96:23676|\,e253: &23675{\,e184:23676|\,e252: %23675{\,e16:23676|\,e252: &23675{\,e104:23676|\,e251: &23675{\,e192:23676|\,e250: %23675{\,e24:23676|\,e250: &23675{\,e112:23676|\,e249: &23675{\,e200:23676|\,e248: %23675{\,e32:23676|\,e248:  f=e1e14 g>e35# sound=sound+e1 f>(e3+r/e4)35# 246,e32:e,e95 247,e32:e,e95 #g=g+e1:zz=(*6) $"a(h1):e7,m1;"";e8,m1;"" %;zz=e1h1=e2Ʃ(((m1+e4)*8)+e7,112p)=em1=m1+e1 &#a(h2):e9,m2;"";e10,m2;"" ':zz=e2h2=e2Ʃ(((m2+e4)*8)+e7,96`)=em2=m2+e1 ($a(h3):e11,m3;"";e12,m3;"" )5zz=e3h3=e2Ʃ(((m3+e4)*e8)+e7,80P)=em3=m3+e1 *$a(h4):e13,m4;"";e14,m4;"" +5zz=e4h4=e2Ʃ(((m4+e4)*e8)+e7,64@)=em4=m4+e1 ,$a(h5):e15,m5;"";e16,m5;"" -:zz=e5h5=e2Ʃ(((m5+e4)*8)+e7,480)=em5=m5+e1 .-e22:e5;e3;e;e1,e31;h$(k);e2,e31;h$(k) /+e4;e2;e;e3,e31;j$(k):zz=(*6) 0xx=63480 1xx=63480 21a(h1):e7,m1;"";e8,m1;"":m1e27e3100 3;zz=e1h1=e2Ʃ(((m1+e4)*8)+e5,112p)=em1=m1+e1 42a(h2):e9,m2;"";e10,m2;"":m2e27e3200 5:zz=e2h2=e2Ʃ(((m2+e4)*8)+e5,96`)=em2=m2+e1 63a(h3):e11,m3;"";e12,m3;"":m3e27e3300 7:zz=e3h3=e2Ʃ(((m3+e4)*8)+e5,80P)=em3=m3+e1 83a(h4):e13,m4;"";e14,m4;"":m4e27e3400 9:zz=e4h4=e2Ʃ(((m4+e4)*8)+e5,64@)=em4=m4+e1 :3a(h5):e15,m5;"";e16,m5;"":m5e27e3500 ;:zz=e5h5=e2Ʃ(((m5+e4)*8)+e5,480)=em5=m5+e1 <e22:e4;e1;e;e4,e31;m$(k) =".15~,sound:zz=(*6) >xx=63480 ?xx=63480 @1a(h1):e7,m1;"";e8,m1;"":m1e27e3100 A;zz=e1h1=e2Ʃ(((m1+e4)*8)+e3,112p)=em1=m1+e1 B2a(h2):e9,m2;"";e10,m2;"":m2e27e3200 C:zz=e2h2=e2Ʃ(((m2+e4)*8)+e3,96`)=em2=m2+e1 D3a(h3):e11,m3;"";e12,m3;"":m3e27e3300 E:zz=e3h3=e2Ʃ(((m3+e4)*8)+e3,80P)=em3=m3+e1 F3a(h4):e13,m4;"";e14,m4;"":m4e27e3400 G:zz=e4h4=e2Ʃ(((m4+e4)*8)+e3,64@)=em4=m4+e1 H3a(h5):e15,m5;"";e16,m5;"":m5e27e3500 I:zz=e5h5=e2Ʃ(((m5+e4)*8)+e3,480)=em5=m5+e1 J e22:e4;e1;e;e19,e31;n$(k) Kxx=63480 Lxx=63480 Mzz=(*6) P1a(h1):e7,m1;"";e8,m1;"":m1e27e3100 Q&h1=e2Ʃ((m1+e4)*e8,112p)=ee90 Rh1=e2h1=e3:m1=m1+e1:e90 Sh1=e3zz=e1h1=e5:e90 Th1=e3h1=e4:e90 Uh1=e4h1=e7:e90 Vh1=e5h1=e6:m1=m1-e1:e90 Wh1=e6h1=e8:e90 Xh1=e7h1=e2:e90 Yh1=e8h1=e2 Z2a(h2):e9,m2;"";e10,m2;"":m2e27e3200 [+h2=e2Ʃ((m2+e4)*8,96`)=ee100 \#h2=e2h2=e3:m2=m2+1:e100 ]h2=e3zz=e2h2=e5:e100 ^h2=e3h2=e4:e100 _h2=e4h2=e7:e100 `h2=e5h2=e6:m2=m2-e1:e100 ah2=e6h2=e8:e100 bh2=e7h2=e2:e100 ch2=e8h2=e2 d3a(h3):e11,m3;"";e12,m3;"":m3e27e3300 e+h3=e2Ʃ((m3+e4)*8,80P)=ee110 fh3=e2h3=e3:m3=m3+e1:e110 gh3=e3zz=e3h3=e5:e110 hh3=e3h3=e4:e110 ih3=e4h3=e7:e110 jh3=e5h3=e6:m3=m3-e1:e110 kh3=e6h3=e8:e110 lh3=e7h3=e2:e110 mh3=e8h3=e2 n3a(h4):e13,m4;"";e14,m4;"":m4e27e3400 o+h4=e2Ʃ((m4+e4)*8,64@)=ee120 ph4=e2h4=e3:m4=m4+e1:e120 qh4=e3zz=e4h4=e5:e120 rh4=e3h4=e4:e120 sh4=e4h4=e7:e120 th4=e5h4=e6:m4=m4-e1:e120 uh4=e6h4=e8:e120 vh4=e7h4=e2:e120 wh4=e8h4=e2 x3a(h5):e15,m5;"";e16,m5;"":m5e27e3500 y+h5=e2Ʃ((m5+e4)*8,480)=ee130 zh5=e2h5=e3:m5=m5+e1:e130 {h5=e3zz=e5h5=e5:e130 |h5=e3h5=e4:e130 }h5=e4h5=e7:e130 ~h5=e5h5=e6:m5=m5-e1:e130 h5=e6h5=e8:e130 h5=e7h5=e2:e130 h5=e8h5=e2 .15~,sound xx=63480 xx=63480 ;k=k+1:e22:e;e7;e5,e31;k$(k);e1;e18,e31;k$(k) g11085=:f=123:l1,l2:l1,l2:f Be22:e Le4,e2;"":100d M6e4,e2;"":e7;e24,140:e7;e25,139:e5 N6e4,e2;"":e1;e25,139:e7;e25,140:e5 O\e4,e2;"":e1;e24,140:e7;e24,141:e1;e25,140:e7;e25,141:e5 P\e4,e2;"":e1;e24,141:e7;e24,142:e1;e25,141:e7;e25,142:e5 Q\e4,e2;"":e1;e24,142:e7;e24,143:e1;e25,142:e7;e25,144:e5 R\e4,e2;"":e1;e24,143:e7;e24,144:e1;e25,144:e7;e25,145:e5 S\e4,e2;"":e1;e24,144:e7;e24,140:e1;e25,145:e7;e25,139:e5 T2e4,e2;"":e1;e24,140:e1;e25,139 Ue1 Ve1;e24,e32:e1;e,e95 `'.02{# =,1:.005y# =,1 j#h1=e2:h2=e2:h3=e2:h4=e2:h5=e2 tm1=e:m2=e:m3=e:m4=e:m5=e ~ sound=-46. g=e4  k=e28+r*e4 e25 Ce7;240,e32:e7;e,e95:e22:e7;e;e4,e30;"";e5,e30;"" *e20,e4;e7;e;e1;"No. 1 is the WINNER"  3600 & Ce7;240,e32:e7;e,e95:e22:e7;e;e4,e30;"";e5,e30;"" +e20,e4;e5;e7;e1;"No. 2 is the WINNER" 3600  Ce7;240,e32:e7;e,e95:e22:e7;e;e4,e30;"";e5,e30;"" *e20,e4;e;e7;e1;"No. 3 is the WINNER" 3600  HCe7;240,e32:e7;e,e95:e22:e7;e;e4,e30;"";e5,e30;"" I*e20,e4;e6;e;e1;"No. 4 is the WINNER" K 3600 R Ce7;240,e32:e7;e,e95:e22:e7;e;e4,e30;"";e5,e30;"" +e20,e4;e2;e7;e1;"No. 5 is the WINNER" 3600  f=-502502e5  .03{u\,f $f  w(5) w(1)=m1*e10+e1 w(2)=m2*e10+e2 "w(3)=m3*e10+e3 ,w(4)=m4*e10+e4 6w(5)=m5*e10+e5 h l=e1e5 r f=e1e4 |w(f)w(f+e1)4260 v=w(f) w(f)=w(f+e1)  w(f+e1)=v f l '(w(e2)/e10)ɺ(w(e3)/e10)4300 z=(*e10)+e1 ze64300  v=w(e3)  w(e3)=w(e2)  w(e2)=v  f=e1e5 l=(w(f)/e10) w(f)=w(f)-l*e10 f  p1=w(e1)  p2=w(e2)  p3=w(e3)  p4=w(e4)  p5=w(e5) 0Mm1=m2m1=m3m1=m4m1=m5m2=m3m2=m4m2=m5m3=m4m3=m5m4=m54420D : 4450b D+e21,e;"WAITING FOR PHOTO FOR PLACES" Nf=1300,:f X e21,e;y$ b.e21,e;" 2nd - No.";p2;" 3rd - No.";p3 lf=1300,::f ve7 ,ah=p1aw=(as*o(ah,e1)/o(ah,e2)+.5) 3ah=p2aw=(((as*o(ah,e1)/o(ah,e2))/e4)+.5) ah=p3ah=p4ah=p5aw=-as  aa=aa+aw -e7,e2;A$:aw>ee7,e12;" Wins ";l$;aw;p$ "awee9,e12;" Wins ";l$;bw;p$ "bwee11,e12;" Wins ";l$;cw;p$ #cwdh=p3dh=p4dh=p5dw=-ds C dd=dd+dw D/e13,e2;D$:dw>ee13,e12;" Wins ";l$;dw;p$ E#dwee15,e12;" Wins ";l$;ew;p$ w#ew100000CP5500| zre85800 ~ 8340  e5:e:e:e: &e1,e;" Oh dear, everyone has lost" e3,e;" all their money!" .4L,e2:.2~L,e6:.2~L,e7:.6,e9:.2~L,e9:.2~L,e11:.2~L,e14:.2~L,e13:.2~L,e11:.6,e9:e10 .4L,e2:.2~L,e6:.2~L,e7:.6,e9:.2~L,e9:.2~L,e11:.2~L,e9:.2~L,e7:.2~L,e6:.6,e4:e10 .4L,e2:.2~L,e6:.2~L,e7:.6,e9:.2~L,e9:.2~L,e11:.2~L,e14:.2~L,e13:.2~L,e11:.6,e9 .2~L,e14:.2~L,e13:.2~L,e14:.2~L,e16:.2~L,e13:.2~L,e14:.2~L,e11:.2~L,e9:.2~L,e11:.4L,e6:.4L,e4:.6,e2 Ġ.2~L,e9:.2~L,e6:.4L,e9:.2~L,e9:.2~L,e6:.4L,e9:.2~L,e9:.2~L,e11:.2~L,e14:.2~L,e13:.2~L,e11:.6,e9 Τ.2~L,e14:.2~L,e13:.2~L,e14:.2~L,e16:.2~L,e13:.2~L,e14:.2~L,e11:.2~L,e9:.2~L,e11:.4L,e6:.4L,e4:.8L,e2  'e5,e;" Do you want to start again?" e7,e;" Press 'y' for yes" e8,e;" or 'n' for no" (="y"Ŧ="Y"9050Z# 2="n"Ŧ="N"5190F < 5160( F+e14,e;" O.K. Hope you enjoyed the game." Ke18,e;" Bye! " P 200 U+e18:e19,e6;"" Ve17,e28;"Exit" Z f=e7e30 de22:e18,f;" " ie10 nf xe18,e31;" "  9999'  e6:e:e3:e: e1,e;" Well done! " -e3,e;" You have won over ";l$;"100,000";p$ e5,e;" between you!"  250 'e7,e;" Unfortunately it looks as if" &e9,e;" the bookmaker has left!...."  150 +e18:e13,e6;"" e11,e28;"Exit"  f=e6e30 e22:e12,f;" " f e12,e31;" "  100d *e14,e;"If he'd stayed you'd have had;-" D4e15,e6;A$;e15,e16;" ";l$;aa;p$:p=e15750v N4e16,e6;B$;e16,e16;" ";l$;bb;p$:p=e25750v X4e17,e6;C$;e17,e16;" ";l$;cc;p$:p=e35750v b4e18,e6;D$;e18,e16;" ";l$;dd;p$:p=e45750v l"e19,e6;E$;e19,e16;" ";l$;ee;p$ v 200 &e21,e;"Press 'y' for another game." =""5770 ="y"Ŧ="Y"9050Z#  5190F  9999'  e6:e:e3:e: 2e4,e;" That's the end of the day's racing." 5e8,e;" Let's see how much you all have left!" f=1100d:f  5700D ur(e5) z f=e1e5 q=(*40()+e1 q40(6015 5r(e1)=qr(e2)=qr(e3)=qr(e4)=qr(e5)=q6015 r(f)=q f version=e36159 version=e16120 odds=(*e9)+e2  6130  odds=e20  o(e5,e5)  f=e1e5 q=(*odds)+e1 o(f,e1)=q:o(f,e2)=e1 f  6160  o(e5,e2) e:e7 e5,e14;"1 ";Q$(r(e1)) 3versione3e5,e27;o(e1,e1);e5,e29;"/";o(e1,e2) e7,e14;"2 ";Q$(r(e2)) 3versione3e7,e27;o(e2,e1);e7,e29;"/";o(e2,e2) e9,e14;"3 ";Q$(r(e3))  3versione3e9,e27;o(e3,e1);e9,e29;"/";o(e3,e2) $e11,e14;"4 ";Q$(r(e4)) %5versione3e11,e27;o(e4,e1);e11,e29;"/";o(e4,e2) )e13,e14;"5 ";Q$(r(e5)) *5versione3e13,e27;o(e5,e1);e13,e29;"/";o(e5,e2) .e:e6 8 ]st=ss bpp=e17100 lpp=e27200  vpp=e37300 pp=e47400 pp=e57500L st>aa7650 as=st:ah=hh #e16,e21;ah;e16,e23;l$;as;p$;" "  7600  st>bb7650 *bs=st:bh=hh 4#e17,e21;bh;e17,e23;l$;bs;p$;" " > 7600 st>cc7650 cs=st:ch=hh #e18,e21;ch;e18,e23;l$;cs;p$;" "  7600 st>dd7650 ds=st:dh=hh #e19,e21;dh;e19,e23;l$;ds;p$;" "  7600 Lst>ee7650 Ves=st:eh=hh `#e20,e21;eh;e20,e23;l$;es;p$;" " j 7600  <e,e;e1;" YOU CAN'T AFFORD IT-BET AGAIN "  7600 @ e6:e:e5:e: Je1,e8;"GRAND NATIONAL" Te1,e8;e1;"______________" ^(e2,e;" This is a race meeting of" hBe3,e;" seven races. See how many"," winners you can pick." rIe5,e;" Your Spectrum will be the"," bookmaker to take your bets." |ke8,e;" Up to five players may make"," bets. Each player starts"," with `100 (or 100p), and may " )e11,e;" back one horse in each race." e13,e;" Your 'friendly' bookmaker"," 'Honest Clive' Spectrum will"," pay the full odds on the"," winner and 1/4 the odds on"," second place." 800 :VERSE 900:CHORUS @e19,e;" Press any key to see other options available." =""8099  e6:e:e5:e: @e,e;" There are 4 alternative versions available:-" fe2,e;" 1) FUN Automatic selection of horses and long odds." ie5,e;" 2) AMATEUR PUNTER Automatic selection of horses but shorter odds." ze8,e;" 3) SERIOUS PUNTER Automatic selection of horses but YOU enter the odds." ae12,e;" 4) DEAD SERIOUS PUNTER YOU name the horses and enter the odds!" Ǡe15,e;" (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 (e21,e;"CHOOSE VERSION - Press 1 to 4" version=-480 #versione48145 7e1;e21,e;" VERSION ";version;" CHOSEN. " f=1200:f  3e,e9;"Value of Stake";e1;e,e9;"______________" je2,e;" The final option is whether to have an initial stake and place bets in '`'s or 'p's. " Je6,e;" ""Press 'L' for 'Pounds' or 'P' for 'Pence' " ="l"Ŧ="L"8160 ="p"Ŧ="P"8170  8153 l$="`":p$=" " $e14,e;" You have chosen '`'s "  8175 l$=" ":p$="p" $e14,e;" You have chosen 'p's " f=1200:f   8200 (e21,e;"Sorry, I said 1 to 5 players." "How many players?",p !p<1p>58190  &,e,e2;"O.K. ";p;" person(s) want to play." 0*e2,e2;"Please tell me their name(s) - " :h=e1p D 8600! Nh l#"If names correct - enter 'Y'",F$ vF$="y"f$="Y"8320 { 8220 r=e1  e6:e:e:e: r=e1e1,e;" Thank you." (e3,e;" Lets meet the bookmaker and" (e5,e;" see what the odds are on the" r=e1e7,e;" first race." r>e1e7,e;" next race." 200 r>e18400 aw=e:bw=e:cw=e:dw=e:ew=e ah=e:bh=e:ch=e8:dh=e:eh=e aa=e:bb=e8:cc=e:dd=e:ee=e aa=100d:p=e18395 bb=100d:p=e28395 cc=100d:p=e38395 dd=100d:p=e48395 ee=100d:p=e58395 mouth=e  e6:e:e5:e: f=ee3:f,e;e4;y$:f <e,e;e4;e6;" ";"Parade Ring";" " %e22:e3,e;e4;e7;"" -f=e1e15:f,e14;e;" ":f "e7;e2;e2,e16;" HONEST CLIVE " 1e18:e;e5,e5;"";6,5;"" 7e7,e3;e;" ";e;e7;e7,e5;"";e6;e7,e10;" " e17:e6;e3;e8,e4;"";e7;e1;e8,e5;" ";e6;e3;e8,e10;"";e6;e3;e9,e4;"";e7;e2;e9,e5;" ";e6;e3;e9,e10;"" "mouth=ee7;e3;e10,e5;" " Bmouth=e1e7;e3;e10,e5;" ";e1;e8,e6;"";e11,e6;" " mouth=ee7;e3;e11,e6;" " Ge18:e11,e6;e7;e2;"";e11,e8;"":e6;e7;e10,e5;"";e10,e9;"" /e3,e19;e;e7;"RACE ";r;e3,e19;e1;"______" 7e7;e2;e12,e6;"";13 ,6;7;" " Fe3;e7;e13,e2;" ";e7;e3;e13,e7;"";e3;e7;;e13,e8;" " Ae3;e7;e14,e2;" ";e3;e7;e14,e6;"";e3;e14,e9;" " 8440 +r=e1e2;e7;e,e14;" NOVICES PLATE " +r=e2e2;e7;e,e14;" RAMTOP STAKES " +r=e3e2;e7;e,e14;" JOCKEYS HANDICAP " +r=e4e2;e7;e,e14;" SELLERS CHASE " +r=e5e2;e7;e,e14;" CHALLENGE CUP " +r=e6e2;e7;e,e14;" RAINBOW STAKES " /r=e7e7;e2;e1;e,e14;"THE GRAND NATIONAL"  8432 version=e4 9500% ! 6000p !version=e3 9600% !2e15,e;e7;e;" PLAYER HORSE No STAKE " !?e16,e;l$;aa;p$;e16,e8;"1 ";A$:p=e18480 ! !7e17,e;l$;bb;p$;e17,e8;"2 ";B$:p=e28480 ! !=e18,e;l$;cc;p$;e18,e8;"3 ";C$:p=e38480 ! !?e19,e;l$;dd;p$;e19,e8;"4 ";D$:p=e48480 ! !-e20,e;l$;ee;p$;e20,e8;"5 ";E$ !' 85004! !*f=ee10:e11 !+$e2,f;e4;" ";e;"";e;"":e10 !,""84971! !-*e2,f;e4;" ";e;"";0;"":e10 !.""84971! !/f !0e2,f;e4;" ":8490*! !1e2,f;e4;" " !3 !4/e4;e21,e;" Player (1 to 5) or (9 to end) " !5=""8490*! !6pp=-480 !7e6;e21,e;y$ !8pp=e98570z! !9ppp85004! !:;mouth=ee17:e7;e1;e8,e6;"":e10:e7;e1;e8,e6;"" !;pp=e1g$=A$ !<pp=e2g$=B$ !=pp=e3g$=C$ !>pp=e4g$=D$ !?pp=e5g$=E$ !@<e4;e1;e21,e;" ";g$;" ";e;e21,e12;"Horse No.? (1 5) " !B 100d !C=""8515C! !Dhh=-480 !Ehhe58515C! !Ge6;e21,e;y$ !I=e4;e21,e;" ";hh;" -Bet (Min. ";l$;"1";p$;" - Max.=Stake)" !M"How much? ";ss !Rsse108700! " h=e1A$=F$ "h=e1e4,e18;A$ "$ h=e2B$=F$ ".h=e2e8,e18;B$ "8 h=e3C$=F$ "Bh=e3e12,e18;C$ "L h=e4D$=F$ "Vh=e4e16,e18;D$ "` h=e5E$=F$ "jh=e5e20,e18;E$ "t #' #2/7:0:0:0:0: #e109540D% %Xe;e7;f*e2+e3,e14;f;" ";z$ %bf %l e18,e;y$ %q*e20,e;"Press 'Y' if correct 'N' if not" %rz$= %vz$="n"z$="N"9501% %{z$="y"z$="Y"9600% %| 9585q% % f=e5e13e2 %e;f,e27;" " %f % o(e5,e2) %+e16,e;"Please enter odds for each horse" %+e17,e;"(Both figures required - " %+e18,e;" e.g. 4/1 enter 4 then 1 " %+e19,e;" 2/7 enter 2 then 7 " %*e20,e;"(Maximum 2 digits for each No. " %e %"Horse 1 ",z %z99c9660% %e7;e5,e27;z;e5,e29;"/" % o(e1,e1)=z % "to ",z %z99c9675% %e7;e5,e30;z % o(e1,e2)=z %"Horse 2 ",z %z99c9690% %e7;e7,e27;z;e7,e29;"/" % o(e2,e1)=z % "to ",z %z99c9705% %e7;e7,e30;z % o(e2,e2)=z & "Horse 3 ",z &z99c9740 & &%e7;e9,e27;z;9 ,29;"/" & o(e3,e1)=z & "to ",z &z99c9755& & e7;e9,e30;z &! o(e3,e2)=z &>"Horse 4 ",z &Cz99c9790>& &He7;e11,e27;z;e11,e29;"/" &I o(e4,e1)=z &M "to ",z &Nz99c9805M& &Re7;e11,e30;z &S o(e4,e2)=z &p"Horse 5 ",z &uz99c9840p& &ze7;e13,e27;z;e13,e29;"/" &{ o(e5,e1)=z & "to ",z &z99c9855& &e7;e13,e30;z & o(e5,e2)=z & e6:e & f=e16e21 & f,e;y$:f &*e20,e;"Press 'Y' if correct 'N' if not" &Z$= &z$="n"z$="N"9600% &z$="y"z$="Y"9920& & 9885& & e20,e;y$ & 8470! 'GRAND NATIONAL '  P.G.CURTIS 1983 ' + oune 1 1 1 1 1111112222222222333 4(9_k 8X9`10h11p1718192024242525252525259Z10d11n12x13310 320 330 340H 350 KY H J M N ugraphics D>!@~'w#~'w0+~w##   <"AAA"DDT8((( pjru%7*WWR!^@"Pib*DH"!H)đ+@$ΏY<x 00011111ټ??>48444x````aaaao=owvdhdddxn9 000000008x/,((((HȆxL/, ! 00000000t// @̾? t// @̾?  00000000"AAA"`??p\w_w_\p~~>:??``~?~~<$$$$"AAA"t// @̾? t// @̾? "AAA"8x/,((((HȆxL/, !