ZXTape! 0Created with Ramsoft MakeTZX P F 81 " P H O T O F I N I S H" ,3,10 ;1;"STOP THE TAPE" ::"Select:":: " 1: 1 Player Game": (" 2: Many Player Game": 2" 3: Full Game": <q$ Fq=(q$)-480 Pq<1q>35 U 300, Zq=1"1 Player" dq=2"1-6 Player" nq=3"Full Game" x , . 2 1.;1;" S T A R T T H E T A P E " 3 a=4 6i=113 8#a=a+1:a=7a=5 @<;a; " P H O T O F I N I S H " Ji O T7;0;7;"  LJK Computing 1984 " ^7;0;7;"Please wait while loading " h0:7  8 Full Game :: :<&:"Full Game loaded Please Wait " P Z236099\,40( d 9000(# i rn=1 n&:"Enter level of difficulty 1 to 5" pq$ rq$<"1"q$>"5"110n tq=(q$)-480 vmo=(6-q)*100d x b$=" " dd=0 yr=1959 dc=0 ho=1:q(ho)=6 pm=0 ow=0  410 rn=rn+1  4000 +le=4+((*3)+1)*2 i=230 %p$(1,i-1)=p$(1,i) i  p=q(ho) z$="." p<4z$=p p$(1,30)=z$  q=0  i=120 a(i)=a(i)+*1 a(i)>33!q=q+1 Tq=1"Due to old age the following horse(s) are retiring."::q=q+1 a(i)>33!a$(i) a(i)>33!7400 i q>0150 &pm=((*15)+10 )*10 4dd=1pm=((*6)*100d)+1000 5:5: 5"Race number ";rn;" Dist ";le;" f":" ";b$ 8dd=1i=1304:.07}\(,i:i go=(*5)+1 &"Prize money `";pm;" Going :";g$(go)  dd=1610b "x(1)=(*20)+1 i=26 &x(i)=(*20)+1 0j=1i-1 :x(i)=x(j)550& Dj N d(x(i))=i Xi o ke=0 vi=16 xlo=999 {j=16 t(x(j)).18,0;"You have `";mo;" Horse?" Hho Rho>6840H \518,0;" " f,18,0;"You have `";mo;" Bet?" pbt ubt>100dbt>mo880p z518,0;" " 418,0;"You have `";bt;" on ";a$(x(ho)) 119,0;"the odds are ";p(x(ho));"-1"  od=p(x(ho))  race i=16 kr(i)=.5*(a(x(i))/3)+2*(j(x(i))*2)+.5*(s(x(i)))+(d(x(i))*(6/10 )) br(i+6)=(1.25 *((g(x(i))-go)))+(a(x(i))/3)+2*(s(x(i)))+.5*(l(x(i))) nr(i+12 )=(5*((g(x(i))-go)))+.5*((w(x(i))-300,)/20)+(s(x(i)))+.5*(l(x(i))) r(i+18)=(10 -(e(x(i))/10 ))+.5*((w(x(i))-300,)/20)+.5*(a(x(i))/3)+2*(l(x(i))) $ur(i+24)=(2.5 *((g(x(i))-go)))+(a(x(i))/3)+(20-(2*e(x(i))/10 ))+(j(x(i))*2) .i 0$i=16:z(i)=0:i 3fa=1/(le*2) 8 :K4,0;2;5;" ====+====+====+====+====+--" oi=510 :4;7;i,0;" | ";5;2;"|":i ?0:5 @12 ,0;le;"f" Bi=13 D#i-1,0;i;")";a$(x(i)) Eho=ii-1,12 ;"" F4i-1,15;i+3;")";a$(x(i+3)) G'ho=i+3i-1,27;"" Ki La=15 Vb=16 `!o(b)=r(b+((a-1)*6)) jb tlim=a*40( ~ lo=0 i=16 2q=(fa*o(i))*((*(2+(1/le)))+1) q>7.5pq=7.5p  z(i)=z(i)+q z(i)>lim lo=1:wi=i 0i+4,(z(i)/8)-1;4;" " 1i+4,(z(i)/8);4;0;""  i lo=01200  di1=z(wi) di=9999' i=16 i=wi1310  di1-z(i)14+a,0;a$(x(wi));"-";a$(x(w2));" by ";(di);"m" a di>82040 ,19,0;" PHOTOGRAPH between : " R<.520,0;a$(x(wi));" and ";a$(x(w2)):150:2040 :20,0;a$(x(w2));" and ";a$(x(wi)):150 j=16  hi=0 i=16  z(i)>hihi=z(i):ke=i i  o(j)=ke % q(ke)=j *z(ke)=0 4j 6#dd=0ow=02110> 8i=1ow 9 k(i)=x(o(1))6000p ;i >6:6: H" RESULT" M \i=14 fMp(x(o(i)))=1i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1 F":2152h g*i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1" p i 2;6;"--------------------------------"  "Winning margin : ";(di);"m"  o(1)=ho2230  2300 $:"Your horse : ";a$(x(ho));" WON" :"You win `";od*bt  mo=mo+od*bt  2330  t$="th" q(ho)=2t$="nd" q(ho)=3t$="rd" :"Your horse : ";a$(x(ho)) )q(ho)=6:"was last":2311 :"was ";q(ho);t$  mo=mo-bt  wio=0 i=15 $!k(i)=x(o(1))wio=1 )i .wio=02400` 3"Owner's prize money `";pm 8 mo=mo+pm `0:7 bi=120 jj=210 tf$(i,j-1)=f$(i,j) j f$(i,10 )="-" e(i)=e(i)+2 w(i)=w(i)+2 l(i)=(*10 )+1 j(i)=(*5)+1 $s(i)=s(i)+(((*3)))-1 s(i)<1s(i)=1 s(i)>10 s(i)=10 i i=16 ;e(x(i))=e(x(i))-6:e(x(i))<0e(x(i))=1 f$(x(i),10 )=q(i) Lq(i)=1w(x(i))=w(x(i))-10 :w(x(i))<10 w(x(i))=10 t(x(i))=(t(x(i))+q(i))/2 i dd=17000X dd=0:b$=" " &rn/8ɺ(rn/8)5999o b$="Derby Day" i=16 hi=9999' j=120 t(j).4L3045 1F(i)=(*5)+1+(5*(i-1)) j=15 F(i)=k(j)3044 j i "You have `";mo:  $" Horse Form Age Wt Price"  i=14 P(i)=100d ;a(F(i))<31P(i)=P(i)+(6*(33!-a(F(i)))) 9t(F(i))<4P(i)=P(i)+1500*(1/t(F(i))) 8t(F(i))4P(i)=P(i)+500*(1/t(F(i))) &`i;" ";a$(F(i));" ";f$(F(i),510 );" ";(a(F(i)));" ";700-w(F(i));" ";(P(i)) Di N.18,0;"Enter horse number or 0 " S12 ,0;" " Xq$ bq$>5353900< lbu=(q$)-480 v#bu<1bu>53900< @P(bu)>mo"You don't have enough money":300,:3900< mo=mo-(P(bu)) ow=ow+1 k(ow)=F(bu) v(ow)=(P(bu)) "You have bought ";a$(F(bu)) "for `";(P(bu)) 400 <b1=1 F b1=1 P 4030  Buy & Sell b1=0:s1=0 mo299+ow=0  ow=04066 "You own :": " Horse +/-" i=1ow JP(i)=502:a(k(i))<31P(i)=P(i)+(6*(33!-a(k(i)))) 9t(k(i))<4P(i)=P(i)+1500*(1/t(k(i))) 8t(k(i))4P(i)=P(i)+500*(1/t(k(i))) !a$(k(i));" ";((P(i))-v(i)) i &:"- - - - - - - - - - - - - - - - "  :(b1=0mo>299+)ow<5"1) Buy a horse": ,s1=0ow>0"2) Sell a horse": ow>0"3) Check form": 218,0;"Choice ? 0 if none" q$ ch=(q$):ch=ch-480 "ch<1ch>3 ,?(ch=1b1=0)(mo>299+ow<5)3000 6#ch=3ow>04200h @0(ch=2s1=0)ow>04600 T h r#"You currently own these horses:" | !" Horse Wt Age Eg Form": i=1ow \a$(k(i));" ";700-w(k(i));" ";(a(k(i)));" ";(e(k(i)));" ";f$(k(i),410 )  i  100d ,18,0;"Any key to continue..."  0  4030  "You have `";mo   %" Horse Form Cost Value "  *i=1ow 4P(i)=502 9;a(k(i))<31P(i)=P(i)+(6*(33!-a(k(i)))) >9t(k(i))<4P(i)=P(i)+1500*(1/t(k(i))) @8t(k(i))4P(i)=P(i)+500*(1/t(k(i))) HP(i)=(P(i)) RLi;" ";a$(k(i));" ";f$(k(i),410 );21;v(i);27;P(i) \i f618,0;"Which horse do you wish to sell?" pq$ zch=(q$):ch=ch-480 ch<1ch>ow4900$ ':"Selling ";a$(k(ch));" for `";P(ch)  mo=mo+P(ch) ow=ow-1 ch=54800 i=ch4 k(i)=k(i+1) v(i)=v(i+1) i (k(5)=0:v(5)=0  300, $s1=1 . s1=1 ~ 4030 o 6400 p0:0: r7:0 u1.5@,-33! zi=15028 j=110 .02{# =,i+j j:i ~;1; " " 8;1; " " i=79  .5,i =;1;0;7;i,11 ;a$(x(o(1))) i  90Z @;0;21,0;" YOU HAVE WON THE DERBY !!! " $0:0:7:7  2110> W 8000@ X bd$(dc)=a$(x(wi)) g b(dc)=(di) l" - DERBY WINNERS -" vi=1dc #yr+i;" ";d$(i);" by ";b(i);"m" i  0   v$=m$(1) ke=i j=26 m$(j-1)=m$(j) j m$(6)=a$(ke) $ a$(ke)=v$ .a(ke)=10 / w(ke)=(*200)+300, 0s(ke)=(*6)+5 1f$(ke)="----------" 8ow=07600 = qq=0 Bi=1ow Lk(i)=keqq=i Vi [qq=07600 `qq=57580 ji=qq4 tk(i)=k(i+1) yv(i)=v(i+1) ~i ow=ow-1 (k(5)=0:v(5)=0  # 400 #' #( data #-a$(20,10 ) #/d$(20,10 ) #0p$(1,30) #2a$(1)="Blue Sun " #>a$(2)="Rain Drop " #@a$(3)="Thunder " #Ba$(4)="Billy Boy " #Fa$(5)="The Ghost " #Ha$(6)="Rapid Lad " #Ja$(7)="Silvertown" #La$(8)="Lucky Day " #Pa$(9 )="Yer Man " #Qa$(10 )="Bold Speed" #Ra$(11 )="Dark Night" #Sa$(12 )="Shanty " #Ta$(13 )="Gone Home " #Ua$(14)="Big Alice " #Va$(15)="New Hope " #Wa$(16)="Shark Run " #Xa$(17)="Pilton " #Ya$(18)="Save Time " #Za$(19)="Westwood " #[a$(20)="Booker T " #^f$(20,10 ) #_g$(5,5) #dg$(1)="HEAVY" #fg$(2)="SOFT " #hg$(3)="FAIR " #jg$(4)="SOFT " #lg$(5)="FIRM " #mk(5):F(5) #ni=15 #pk(i)=0 #r1F(i)=(*4)+1+(4*(i-1)) #ti # g(20) #O$(5,10 ) # b(20) # P(5) # v(5) # w(20) # a(20) # e(20) # l(20) # d(20) # j(20) # s(20) # x(6) # o(20) # p(20) # r(30) # z(6) # q(6) # t(20) #i=120 #g(i)=(*5)+1 $w(i)=(*201)+300, $a(i)=(*15)+15 $e(i)=(*513)+502 $"l(i)=(*10 )+1 $,j(i)=(*5)+1 $6s(i)=(*10 )+1 $@f$(i)="----------" $Jt(i)=((*6)+1) $i $m$(6,10 ) $m$(1)="Runner 99 " $m$(2)="O Lucky " $m$(3)="Gay Trip " $m$(4)="Yaletown " $m$(5)="Andy's Day" $m$(6)="Nanu Nanu " $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i %#i=07:a:""+i,a:i % %0,00000010,00000101,01111100|,01111100|,10100010,10100110,0,0,00001000,0,00001000,0,00001000,0,00001000,0,0,0,01010101U,0,0,0,0 %a0,00001000,0,01010101U,0,00001000,0,00001000 %Y0,0,0,10101010,0,00001000,0,00001000 %Q0,00001000,0,10101010,0,0,0,0 %Y0,0,0,10101000,0,00001000,0,00001000 %Y0,0,0,00001010 ,0,00001000,0,00001000 %Q0,00001000,0,00001010 ,0,0,0,0 %Q0,00001000,0,10101000,0,0,0,0 %a0,00001000,0,10101000,0,00001000,0,00001000 %a0,00001000,0,00001010 ,0,00001000,0,00001000 1-6 Player))8*)<2"1-6 Player game is loaded please wait..." P Z236099\,40( d 9000(# i rn=0 x b$=" " dd=0 yr=1959 dc=0 ho=1:q(ho)=6  "Number of players 1-6 ?": q$ no=(q$)-480 "no<1no>6200 i=1no "Enter name of player ";i: q$  9(q$)>10 "Maximum of 10 characters"::250  n$(i)=q$ m(i)=400 i "9i=120:.02{# =,(*60<)-20:i rn=rn+1 no>18000@ +le=4+((*3)+1)*2 i=230 %p$(1,i-1)=p$(1,i) i  p=q(ho) z$="." p<4z$=p p$(1,30)=z$ i=120 a(i)=a(i)+*1 a(i)>33!7400 i 5:5: 5"Race number ";rn;" Dist ";le;" f":" ";b$ 8dd=1i=1304:.07}\(,i:i go=(*5)+1 "The going is ";g$(go)  dd=1610b "x(1)=(*20)+1 i=26 &x(i)=(*20)+1 0j=1i-1 :x(i)=x(j)550& Dj N d(x(i))=i Xi o ke=0 vi=16 xlo=999 {j=16 t(x(j))218,0;n$(z);" has `";m(z);" Horse?" Hk(z) Rk(z)>6840H \518,0;" " f218,0;n$(z);" has `";m(z);" Bet? " pc(z) u%c(z)>100dc(z)>m(z)880p z518,0;" " 818,0;"You have `";c(z);" on ";a$(x(k(z))) 319,0;"the odds are ";p(x(k(z)));"-1" v(z)=p(x(k(z))) *w=13:.4L,w*8:w 618,0;" " 619,0;" " z  race i=16 kr(i)=.5*(a(x(i))/3)+2*(j(x(i))*2)+.5*(s(x(i)))+(d(x(i))*(6/10 )) br(i+6)=(1.25 *((g(x(i))-go)))+(a(x(i))/3)+2*(s(x(i)))+.5*(l(x(i))) nr(i+12 )=(5*((g(x(i))-go)))+.5*((w(x(i))-300,)/20)+(s(x(i)))+.5*(l(x(i))) r(i+18)=(10 -(e(x(i))/10 ))+.5*((w(x(i))-300,)/20)+.5*(a(x(i))/3)+2*(l(x(i))) $ur(i+24)=(2.5 *((g(x(i))-go)))+(a(x(i))/3)+(20-(2*e(x(i))/10 ))+(j(x(i))*2) .i 0$i=16:z(i)=0:i 3fa=1/(le*2) 8 :K4,0;2;5;" ====+====+====+====+====+--" oi=510 :4;7;i,0;" | ";5;2;"|":i ?0:5 @12 ,0;le;"f" Bi=13 D#i-1,0;i;")";a$(x(i)) F4i-1,15;i+3;")";a$(x(i+3)) G'ho=i+3i-1,27;"" Ki La=15 Vb=16 `!o(b)=r(b+((a-1)*6)) jb tlim=a*40( ~ lo=0 i=16 :z(i)=z(i)+(fa*o(i))*((*(2+(1/le)))+1) z(i)>lim lo=1:wi=i 0i+4,(z(i)/8)-1;4;" " 1i+4,(z(i)/8);4;0;""  i lo=01200  di1=z(wi) di=9999' i=16 i=wi1310  di1-z(i)14+a,0;a$(x(wi));"-";a$(x(w2));" by ";(di);"m" a di>82040 ,19,0;" PHOTOGRAPH between : " R<.520,0;a$(x(wi));" and ";a$(x(w2)):150:2040 :20,0;a$(x(w2));" and ";a$(x(wi)):150 j=16  hi=0 i=16  z(i)>hihi=z(i):ke=i i  o(j)=ke % q(ke)=j *z(ke)=0 4j >6:6: H" RESULT" M \i=14 fMp(x(o(i)))=1i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1 F":2152h g*i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1" p i 2;6;"--------------------------------"  "Winning margin : ";(di);"m"  awin=0 i=1no o(1)=k(i)2230  2300 awin=1 y(i)=y(i)+1 n$(i);" wins `";v(i)*c(i) m(i)=m(i)+(v(i)*c(i))  2301 m(i)=m(i)-c(i) i awin=0"Nobody won" `0:7 bi=120 jj=210 tf$(i,j-1)=f$(i,j) j f$(i,10 )="-" e(i)=e(i)+2 w(i)=w(i)+2 l(i)=(*10 )+1 j(i)=(*5)+1 $s(i)=s(i)+(((*3)))-1 s(i)<1s(i)=1 s(i)>10 s(i)=10 i i=16 ;e(x(i))=e(x(i))-6:e(x(i))<0e(x(i))=1 f$(x(i),10 )=q(i) Lq(i)=1w(x(i))=w(x(i))-10 :w(x(i))<10 w(x(i))=10 t(x(i))=(t(x(i))+q(i))/2 i dd=17000X dd=0:b$=" " (rn/10 ɺ(rn/10 )3000 b$="Derby Day" i=16 hi=9999' j=120 t(j)hihi=u(j):ke=j j  o(i)=ke u(ke)=0 i " Current Standing"   " Player Money Winners"  i=1no  s$="th " i=1s$="st " i=2s$="nd " i=3s$="rd " 5i;s$;n$(o(i));15;m(o(i));24;y(o(i)): i  100d 0.19,0;" Any key to continue..." : 0  # 400 #' #( data #-a$(20,10 ) #/d$(20,10 ) #0p$(1,30) #2a$(1)="Blue Sun " #6 u(6) #7 c(6) #8 m(6) #9 y(6) #: k(6) #;n$(6,10 ) #< v(6) #>a$(2)="Rain Drop " #@a$(3)="Thunder " #Ba$(4)="Billy Boy " #Fa$(5)="The Ghost " #Ha$(6)="Rapid Lad " #Ja$(7)="Silvertown" #La$(8)="Lucky Day " #Pa$(9 )="Yer Man " #Qa$(10 )="Bold Speed" #Ra$(11 )="Dark Night" #Sa$(12 )="Shanty " #Ta$(13 )="Gone Home " #Ua$(14)="Big Alice " #Va$(15)="New Hope " #Wa$(16)="Shark Run " #Xa$(17)="Pilton " #Ya$(18)="Save Time " #Za$(19)="Westwood " #[a$(20)="Booker T " #^f$(20,10 ) #_g$(5,5) #dg$(1)="HEAVY" #fg$(2)="SOFT " #hg$(3)="FAIR " #jg$(4)="SOFT " #lg$(5)="FIRM " # g(20) # b(20) # w(20) # a(20) # e(20) # l(20) # d(20) # j(20) # s(20) # x(6) # o(20) # p(20) # r(30) # z(6) # q(6) # t(20) #i=120 #g(i)=(*5)+1 $w(i)=(*201)+300, $a(i)=(*30)+1 $e(i)=(*513)+502 $"l(i)=(*10 )+1 $,j(i)=(*5)+1 $6s(i)=(*10 )+1 $@f$(i)="----------" $Jt(i)=((*6)+1) $i $m$(6,10 ) $m$(1)="Runner 99 " $m$(2)="O Lucky " $m$(3)="Gay Trip " $m$(4)="Yaletown " $m$(5)="Andy's Day" $m$(6)="Nanu Nanu " $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i %#i=07:a:""+i,a:i % %0,00000010,00000101,01111100|,01111100|,10100010,10100110,0,0,00001000,0,00001000,0,00001000,0,00001000,0,0,0,01010101U,0,0,0,0 %a0,00001000,0,01010101U,0,00001000,0,00001000 %Y0,0,0,10101010,0,00001000,0,00001000 %Q0,00001000,0,10101010,0,0,0,0 %Y0,0,0,10101000,0,00001000,0,00001000 %Y0,0,0,00001010 ,0,00001000,0,00001000 %Q0,00001000,0,00001010 ,0,0,0,0 %Q0,00001000,0,10101000,0,0,0,0 %a0,00001000,0,10101000,0,00001000,0,00001000 %a0,00001000,0,00001010 ,0,00001000,0,00001000 ^ 1 Player **#*<&:"1 Player game loaded please wait" P Z236099\,40( d 9000(# i rn=0 nmo=200 x b$=" " dd=0 yr=1959 dc=0 ho=1:q(ho)=6 debt=0 rn=rn+1 +le=4+((*3)+1)*2 i=230 %p$(1,i-1)=p$(1,i) i  p=q(ho) z$="." p<4z$=p p$(1,30)=z$ i=120 a(i)=a(i)+*1 a(i)>33!7400 i mo<14000 5:5: 5"Race number ";rn;" Dist ";le;" f":" ";b$ 8dd=1i=1304:.07}\(,i:i go=(*5)+1 "The going is ";g$(go)  dd=1610b "x(1)=(*20)+1 i=26 &x(i)=(*20)+1 0j=1i-1 :x(i)=x(j)550& Dj N d(x(i))=i Xi o ke=0 vi=16 xlo=999 {j=16 t(x(j)).18,0;"You have `";mo;" Horse?" Hho Rho>6840H \518,0;" " f,18,0;"You have `";mo;" Bet?" pbt ubt>100dbt>mo880p z518,0;" " 418,0;"You have `";bt;" on ";a$(x(ho)) 119,0;"the odds are ";p(x(ho));"-1"  od=p(x(ho))  race i=16 kr(i)=.5*(a(x(i))/3)+2*(j(x(i))*2)+.5*(s(x(i)))+(d(x(i))*(6/10 )) br(i+6)=(1.25 *((g(x(i))-go)))+(a(x(i))/3)+2*(s(x(i)))+.5*(l(x(i))) nr(i+12 )=(5*((g(x(i))-go)))+.5*((w(x(i))-300,)/20)+(s(x(i)))+.5*(l(x(i))) r(i+18)=(10 -(e(x(i))/10 ))+.5*((w(x(i))-300,)/20)+.5*(a(x(i))/3)+2*(l(x(i))) $ur(i+24)=(2.5 *((g(x(i))-go)))+(a(x(i))/3)+(20-(2*e(x(i))/10 ))+(j(x(i))*2) .i 0$i=16:z(i)=0:i 3fa=1/(le*2) 8 :K4,0;2;5;" ====+====+====+====+====+--" oi=510 :4;7;i,0;" | ";5;2;"|":i ?0:5 @12 ,0;le;"f" Bi=13 D#i-1,0;i;")";a$(x(i)) Eho=ii-1,12 ;"" F4i-1,15;i+3;")";a$(x(i+3)) G'ho=i+3i-1,27;"" Ki La=15 Vb=16 `!o(b)=r(b+((a-1)*6)) jb tlim=a*40( ~ lo=0 i=16 :z(i)=z(i)+(fa*o(i))*((*(2+(1/le)))+1) z(i)>lim lo=1:wi=i 0i+4,(z(i)/8)-1;4;" " 1i+4,(z(i)/8);4;0;""  i lo=01200  di1=z(wi) di=9999' i=16 i=wi1310  di1-z(i)14+a,0;a$(x(wi));"-";a$(x(w2));" by ";(di);"m" a di>82040 ,19,0;" PHOTOGRAPH between : " R<.520,0;a$(x(wi));" and ";a$(x(w2)):150:2040 :20,0;a$(x(w2));" and ";a$(x(wi)):150 j=16  hi=0 i=16  z(i)>hihi=z(i):ke=i i  o(j)=ke % q(ke)=j *z(ke)=0 4j >6:6: H" RESULT" M \i=14 fMp(x(o(i)))=1i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1 F":2152h g*i;"- ";a$(x(o(i)));" ";p(x(o(i)));"-1" p i 2;6;"--------------------------------"  "Winning margin : ";(di);"m"  o(1)=ho2230  2300 $:"Your horse : ";a$(x(ho));" WON" :"You win `";od*bt  mo=mo+od*bt  2400`  t$="th" q(ho)=2t$="nd" q(ho)=3t$="rd" :"Your horse : ";a$(x(ho)) )q(ho)=6:"was last":2311 :"was ";q(ho);t$  mo=mo-bt `0:7 bi=120 jj=210 tf$(i,j-1)=f$(i,j) j f$(i,10 )="-" e(i)=e(i)+2 w(i)=w(i)+2 l(i)=(*10 )+1 j(i)=(*5)+1 $s(i)=s(i)+(((*3)))-1 s(i)<1s(i)=1 s(i)>10 s(i)=10 i i=16 ;e(x(i))=e(x(i))-6:e(x(i))<0e(x(i))=1 f$(x(i),10 )=q(i) Lq(i)=1w(x(i))=w(x(i))-10 :w(x(i))<10 w(x(i))=10 t(x(i))=(t(x(i))+q(i))/2 i dd=17000X dd=0:b$=" " (rn/10 ɺ(rn/10 )3000 b$="Derby Day" i=16 hi=9999' j=120 t(j)2004200h 5"You have not got any money left to gamble with. " ":"Do you want to borrow some ?" q$ q$="y"q$="Y"4100 !:"Do you wish to end to game?" q$ q$="y"q$="Y"4080 :4001 1i=502-20-1:.01z# =,i:i: #"OK you can have `100":250 debt=debt+100d mo=mo+100d " h"You owe me `";debt r^:"What have you got to sell? ":"[1 word-max 10 letters- lower case only ]":: |q$ ~:q$>10 "Too long max 10 characters"::4220| w$(1)=q$ i=18 zw$(1)=u$(i)va=(*200)+502:mo=mo+va:u$(i)="xxxx"::"OK I'll buy your ";q$:"for `";va:300,: i "No thank you " 0<.3"I don't like ";q$;"s":4276 *<.3"I hate ";q$;"s":4276 "I've already got a ";q$ :4210r $ 5 W 8000@ X bd$(dc)=a$(x(wi)) g b(dc)=(di) l" - DERBY WINNERS -" vi=1dc #yr+i;" ";d$(i);" by ";b(i);"m" i  0   v$=m$(1) ke=i j=26 m$(j-1)=m$(j) j m$(6)=a$(ke) $ a$(ke)=v$ .a(ke)=10 / w(ke)=(*200)+300, 0s(ke)=(*6)+5 1f$(ke)="----------" L # 400 #' #( data #-a$(20,10 ) #/d$(20,10 ) #0p$(1,30) #2a$(1)="Blue Sun " #>a$(2)="Rain Drop " #@a$(3)="Thunder " #Ba$(4)="Billy Boy " #Fa$(5)="The Ghost " #Ha$(6)="Rapid Lad " #Ja$(7)="Silvertown" #La$(8)="Lucky Day " #Pa$(9 )="Yer Man " #Qa$(10 )="Bold Speed" #Ra$(11 )="Dark Night" #Sa$(12 )="Shanty " #Ta$(13 )="Gone Home " #Ua$(14)="Big Alice " #Va$(15)="New Hope " #Wa$(16)="Shark Run " #Xa$(17)="Pilton " #Ya$(18)="Save Time " #Za$(19)="Westwood " #[a$(20)="Booker T " #^f$(20,10 ) #_g$(5,5) #dg$(1)="HEAVY" #fg$(2)="SOFT " #hg$(3)="FAIR " #jg$(4)="SOFT " #lg$(5)="FIRM " # g(20) # b(20) # w(20) # a(20) # e(20) # l(20) # d(20) # j(20) # s(20) # x(6) # o(20) # p(20) # r(30) # z(6) # q(6) # t(20) #i=120 #g(i)=(*5)+1 $w(i)=(*201)+300, $a(i)=(*30)+1 $e(i)=(*513)+502 $"l(i)=(*10 )+1 $,j(i)=(*5)+1 $6s(i)=(*10 )+1 $@f$(i)="----------" $Jt(i)=((*6)+1) $i $m$(6,10 ) $m$(1)="Runner 99 " $m$(2)="O Lucky " $m$(3)="Gay Trip " $m$(4)="Yaletown " $m$(5)="Andy's Day" $m$(6)="Nanu Nanu " $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i $#i=07:a:""+i,a:i %#i=07:a:""+i,a:i %u$(8,10 ) %u$(1)="house" %u$(2)="car" %u$(3)="ring" % u$(4)="computer" %!u$(5)="television" %"u$(6)="watch" %#u$(7)="shit" %$u$(8)="body" %0w$(1,10 ) % %0,00000010,00000101,01111100|,01111100|,10100010,10100110,0,0,00001000,0,00001000,0,00001000,0,00001000,0,0,0,01010101U,0,0,0,0 %a0,00001000,0,01010101U,0,00001000,0,00001000 %Y0,0,0,10101010,0,00001000,0,00001000 %Q0,00001000,0,10101010,0,0,0,0 %Y0,0,0,10101000,0,00001000,0,00001000 %Y0,0,0,00001010 ,0,00001000,0,00001000 %Q0,00001000,0,00001010 ,0,0,0,0 %Q0,00001000,0,10101000,0,0,0,0 %a0,00001000,0,10101000,0,00001000,0,00001000 %a0,00001000,0,00001010 ,0,00001000,0,00001000