ZXTape! 2} Fairshare - Side AGriffin Software1984English Educational9.99 UKPNoneOriginal ReleaseTZXed by Andrew Barkerfairshare1A] "FAIRSHARE1" rFAIRSHARE1 @  0:0:0:: q$="y"x G12 ,10 ;1;4;"PLEASE WAIT";0;0 "" \1:i=010 :i,0;" ":i:0 (?4:1:12 ,10 ;" LOADING ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" QyxcA FAIRSHARE1logo @@  ???????????????????????????????|file 'O&Kq)O ZOB=1 0x3=5:y3=4:f=0:yes=0 2e$(8,8):i=18:e$(i):i Y" fish ","starfish"," shells ","anemones"," crabs "," ships "," boots ","treasure" O1066*:0:0:0:a$(160):cl=(*2)+5 ZOBcl:9 :cl: yes100d 23659k\,12 :"":I=80P1-79O:cl:0,I:255,0:0,1:-255,0:9 :11 +10 *(I=1),0;1;a$(32 ):I 236066\,557:236077\,251:14,3;"CDAAAAAAAAAB";15,3;"BAAAAAAAAAB";16,3;"NOCRTTCOCDANDACRTCOCD";17,3;"BABTTTH";1;8;"IAMDABTABTTH";1;8;"IANM";18,3;"BAKSTTAAKLABTAKSTAAKL" q16,28;"S";17,8;"";18,28;"":236066\,0:236077\,60< X13 ,0;9 ;1;5+2*ZOB;a$+a$(64@):ZOB=1 i0,72H:255,0:0,-579:-255,0:0,579:100d  K30:a=23306 [:a,x:a+1,y:a+2,w:a+3,d:a+4,8:a=a+4:i=1̱b$:a+i,b$(i):i:a+i,255:u=65000: U30:236066\,557:236077\,251:b$=n$(n+1,2):75K:y=y+8*d:b$=n$(n+1,34):75K:y=y+8*d:b$=n$(n+1,56):75K: ZHoct:el:7:cl=7:96`+8*x4,69E-8*y4:-24,5,-/2:0,14:-65A,0:0,-25:65A,0:0,6:24,1,/2:11 +x5,1+y5;"";12 +x5,1+y5;"";13 +x5,1+y5;"": [Z15,4;"";16,4;"";17,4;"": \Ecl:oct:k=10 +x516+x5:k,0+y5;"":k: dPpic2=0:N$(10 ,6):n$(1)="CDBTKL":N$(2)="ABABAB" e,n$(3)="CDEFGH":N$(4)="CDAJKL" f,n$(5)="BABUMN":N$(6)="NMMDKL" g,n$(7)="CONDKL":N$(8)="MPATAT" h-n$(9 )="CDQJKL":N$(10 )="CRKSAT" ifadein=930:fadeout=940:cls=920:getrem=840H:input=860\:nobox=92\:box=90Z:getans=830>:rdr=1100L:ec=665:put=1600@:ed=662:edr=660:eur=656:er=658:edl=654:el=652:eul=650:getpic=900:action=800 :grab=3000 :oct=600X:sums=700:intro=4000:START=500:PILE=1000:BOXES=1500:NUMBERS=85U k=108l:p$(60<):i=160<:p:p$(i)=p:i l14,7,12 ,6,10 ,7,15,5,13 ,4,10 ,4,8,6,14,2,11 ,2,8,3,12 ,0,17,7,17,5,16,3,6,7,6,4,6,2,15,0,4,6,9 ,1,7,0,4,3,18,2,5,0,3,1,17,0,2,7,2,3,0,4,1,0 n:i=210-1:i,0;31;" ":i ,9 :start 6 intro pile boxes &i=1div-rem:grab:put:i:oct  remrdr getans  remgetrem cls:ec:fadeout i=1200:i $`23,168:217,0:0,-25:-217,0:0,25 &mw=2:d=2:x=28:y=12 :1:1066*:b$="Press any key":75K:1070. +=""555+ 0 500 X 1070. YB10 +x5,11 +y5;" !""#";11 +x5,11 +y5;"$%&'" ZQ12 +x5,11 +y5;"(";7-fade;fade=-1;")*";cl;0;"+" [13 +x5,10 +y5;",-./01";14+x5,10 +y5;"234567";15+x5,10 +y5;"89:;<=";16+x5,11 +y5;">?@" ] 4cl=7;7;12 +x5,12 +y5;")*" e=96`+8*x4105i+8*x49 :e,75K-8*y4:0,4:2,0:1:1,1:0,-5:-3,0:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=96`+8*x4105i+8*x49 :e,75K-y4*8:0,4:1:e+3,75K:0,4:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=96`+8*x4105i+8*x49 :e,77M-8*y4:0,-3:2,0:1:e+3,73I:0,5:-3,0:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=109m+8*x4100d+8*x4-9 :e,75K-8*y4:0,4:-2,0:1:e-3,78N:0,-3:3,0:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=109m+8*x4100d+8*x4-9 :e,78N-8*y4:0,-3:1:e-3,78N:0,-3:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=109m+8*x4100d+8*x4-9 :e,77M-8*y4:0,-3:-2,0:1:e-3,73I:0,5:3,0:0:e: 4cl=7;7;12 +x5,12 +y5;")*" e=97a+8*x4106j+8*x49 :e,74J-8*y4:2,0:1:e,78N-8*y4:2,0:0:e,73I-8*y4:2,0:1:e,77M-8*y4:2,0:0:e: oct:96`+8*x4,80P-8*y4:4,0:105i+8*x4,80P-8*y4:4,0:y=79O-8*y475K-8*y4-2:95_+8*x4,y:96`+8*x4,y:1:97a+8*x4,y:0:98b+8*x4,y:99c+8*x4,y:104h+8*x4,y:105i+8*x4,y:1:106j+8*x4,y:0:107k+8*x4,y:108l+8*x4,y:y 95_+8*x4,74J-8*y4:5,0:104h+8*x4,74J-8*y4:5,0:96`+8*x4,73I-8*y4:3,0:105i+8*x4,73I-8*y4:3,0 v97a+8*x4,68D-8*y4:9 ,0:98b+8*x4,67C-8*y4:7,0: >box ?{1066*:11 ,1;"How many";12 ,1;"in each ";13 ,1;" box? ";15,1;" " @query=ans:input Cn2-(cl=5);11 ,1;" Yes ";12 ,1;" ";13 ,1;" Good " D0:236066\,557:236077\,251:cl:x=112p+8*(ans<10 ):y=176:b$="MM":75K:y=184:75K Ekx=x+20+8*(ans<10 ):k=1c-1:n=c$(k):y=168:numbers:x=x+16:k F nobox: Hj=14:ed:k=1rem:p=17-2*k:17,p;y$;18,p;z$;19,p;"":.05|L,20:19,p;z$;18,p;y$;17,p;"":k:j Jbox L236066\,0:236077\,60<:11 ,1;"How many";12 ,1;" left ";13 ,1;" over? ";15,1;" " Nquery=rem:input Pn2-(cl=5);11 ,1;" Yes ";12 ,1;" ";13 ,1;" Good " QAcl:0:b$="remainder":x=168:y=176:75K R-y=168:n=c$:x=240:numbers:k W nobox: \ c=1:c$=" ":ti=0 ^r15,1;"":7,568:17,0:0,-9 :-17,0:0,8 a""865a f+s$=query:s=0:23560\,0 i4q=23560\:1;s;15,1;"" j!ti>20.05|L,12 k)ti=ti+(c$>" "):ti=45-883s l;c=2(c$>s$(1)+" "c$(1)="0")882r m"q>47/q<58:880p o,s=s+1-(8s=7):873i p c$(c)=q q15,1;c$ r#c=c+1:c=query870f s+c$query890z-6*(x3=0) tc$=query890z u7:11 +x5,1+y5;" More "ưc$query;12 +x5,1+y5;" than ";13 +x5,1+y5;" ";c$;" ":k=1100d:k v15,1;"";11 +x5,1+y5;" Try ";12 +x5,1+y5;" again, ";13 +x5,1+y5;" please ":860\ z Ar=(*8):pic=64100d+32 *r:pic=pic2900 Du=0:pic2=pic:k=picpic+31:"a"+u,k:u=u+1:k r3=(*(cl-3))+1:r3=r3-(1((r=4r=5)r3=4)):y$=16+r3+"":z$=16+(r3-((>.5)(r=0r=1r=2r=5))-(1(r=3r=4r=7)))+""  ]236066\,0:236077\,60<:k=017:k,18;31;" ":k 2k=1820:k,9 ;31;" ":k  ]fade=7-cl:cl:oct:ec:i=cl-10-1:i=2i=3932 @j=10 16:1;i;j+x5,10 +y5;"":j 4i:i=1502:i:9 :fade=-1: Cfade=7-cl:ec:i=0cl:i=2i=3942 @j=10 16:1;i;j+x5,10 +y5;"":j i:9 :fade=-1: F0:1066*:i=021:i,0;31;" ":i hfadein:oct:el:i=1div:x=p$(2*i-1):y=p$(2*i):x,y;y$;x+1,y;z$:i _w=1:d=1:d$=div:x=16+10 *(div<10 ):j=1̱d$:y=168 $n=d$(j):numbers:x=x+20:j  9 : (0236066\,100d:236077\,249: *-236066\,0:236077\,60<: ,/236066\,557:236077\,251: .0236066\,144:236077\,250: L el:q=16:r(rem,2) Ni=i-1:j=1rem O4x=p$(2*(j+i)-1):y=p$(2*(j+i)) P#r(j,1)=x:r(j,2)=y:j Q;l=-1:j=1rem:r(j,1)>ll=r(j,1) Sj:l=-11140t Tj=1rem:r(j,1)=lx=r(j,1):y=r(j,2):r(j,1)=-1:r(j,2)=-1:j=rem:q=q-2 Uj V"(elx>10 )+(eulx<11 ) ZTx<16k=x16:k,y;"";k+1,y;y$;k+2,y;z$:k:x=16 `Nedl:k=x17:k,y;"";k+1,y;y$;k+2,y;z$:k:x=18 e5ed:k=yq:18,k;"";y$;19,k;"";z$:k o 1105Q t Aboxes are at 21,y/8 at upwards intervals of y1/8 81070.:er:b(by):cl=7:7:p=19 pdr=33!-16*(by=5)+16*(by=2ans>10 ):xp=151:yp=15:j=1by: k=12-(by=5)+(ans>10 by=2):p,19;"";p-1,19;"":p=p-2:k:p=p-1 oxp,yp:97a,0:0,dr:-97a,0:0,-dr+1:yp=yp+dr+7:j:cl:0 ed:y=168:236066\,557:236077\,251:b$="AU":x=568:75K:y=y+12 :x=x+2:b$="MM":75K:y=y+4:b$="AU":x=x-2:w=1:75K:236066\,0:236077\,60< (n=by:x=86V:y=168:numbers  @ f4=0 A edr:yp=15:j=1by Byp557yp<87Wer Cyp>86Veur DX23560\,0:k=16-4*(b(j)=ans):o=(k/2)k/2:O EMxp,yp:97a,0:0,dr:-97a,0:0,-dr+1 GT1:15:23560\0k=16:p=j-1:j=by:f4=1 Jk Of41625Y Typ=yp+dr+7 Yj ^f41601A cV0:xp,yp:97a,0:0,dr:-97a,0:0,-dr+1 hap1=18-5*p+(2*pby=5)-(2*p(by=2ans>10 )):p=p+1 m#p2=(b(p)6)+(b(p)12 ) o^x=p1-2*p2:y=29-2*b(p):y<19y=y+12 :y<19y=y+12 r&by=5b(p)=6x=x+2 h=13 :x2=x13 ;x+1,16;"J"x=12 ;"B"h<12 ;""h>12 ;x,17;y$;x+1,17;z$ Hb(p)=answ$=y$:x$=z$:.3,5:.5,0:1700 gj=17y-2:8:x,j;"AH";x+1,j;"";x,j+2;y$;x+1,j+2;z$:j Fj=y-117-1:h,j-1;"H";h,j;"":j:0 w$="":x$=w$ h,18;"";h+1,18;"":0,-1:0,dr:j=h13 x2:j,16;w$;j+1,16;x$;j-x2,16;"":j:14,16;x$  w$=y$put b(p)=b(p)+1  oct:f=0:f2=0 ="0"9950& ,x=p$(2*i-1):y=p$(2*i) .236066\,144:236077\,250 uv=9 :h=(13 x<6)+(14(x>5x<14))+(15x>13 ):x2=x9 el x>14edl h,10 ;"A";h,9 ;"F" v=y3050 h=x3050 `h,v;"D"x2=-1;"C"x2=1;h-x2,v;"J"x2=-1;"I"x2=1;h-x2,v-1;"F" !h=h-x2:v=v-1:3020 Th=xj=vy+1-1:h,j;"A";h,j-1;"F":f=f+1:j:3054 ~v=yh,v;"C"x2=1;"D"x2=-1:j=h-x2x+x2-x2:j,y;"B";j-x2,y;"G"x2=-1;"E"x2=1:f2=f2+1:j Vfj=1f:x,y;"";x+1,y;"":y=y+1:x,y;y$;x+1,y;z$:j Yf2j=1x2*f2x2:x,y;"";x+1,y;"":x=x+x2:x,y;y$;x+1,y;z$:j x,y;"";x+1,y;"" y9 x=x13080 x=x+x2:y=y+1 %x,y;y$;x+1,y;z$:3060 M13 ,10 ;",-";14,10 ;"23";15,10 ;"89":ed 61;15,10 ;y$;16,10 ;z$ .1}L,20 J1;15,10 ;y$(3);16,10 ;z$(3) @17,11 ;y$;18,11 ;z$:.1}L,17 61;17,11 ;y$;18,11 ;z$ edr I1;16,13 ;y$;17,13 ;z$:.1}L,15 J1;16,13 ;y$(3);17,13 ;z$(3) I1;15,15;y$;16,15;z$:.1}L,17 J1;15,15;y$(3);16,15;z$(3) er D13 ,15;"D";y$;14,16;z$:.3,20  fade=-1:x3=1:x4=3:y4=4:x5=4:y5=3:0:0:0:cl=(*3)+5:cl:cl: {i=03:7,168-24*i:17,0:0,-17:-17,0:0,16 m127,168-24*i:17,0:0,-17:-17,0:0,16:i i=03:x=3*i+1:ink=(*3)+1:7;cl=7;1;x,1;ink;"";x+1,1;ink-1;"" ink=(*3)+1:7;cl=7;1;x,16;ink;"";x+1,16;ink-1+(i=2);"":i 1064(:8;8;8;1;1,1;" !";2,1;"""#";4,1;"$%";5,1;"&'";7,1;"()";8,1;"*+";10 ,1;",-";11 ,1;"./";1,16;"01";2,16;"23";4,16;"45";5,16;"67";7,16;"89";8,16;":;";10 ,16;"<=";11 ,16;">?" zi=03:31,160-24*i:65A,0:0,-9 :-65A,0:0,8 k151,160-24*i:65A,0:0,-9 :-65A,0:0,8:i 1066*:i=07:7;cl=7;2+3*i-(12 i>3),4+15*(i>3);e$(i+1):i 1070.:fadein box d1066*:15,4;" Choose ";16,4;" your ";17,4;"picture " -1070.:r=10 :23560\,0 i=07:r1=4+(120x(i>3)):r2=171-24*i+96`*(i>3):r1,r2:96`,0:0,-23:-96`,0:0,23 J1:502:q=23560\:q>0r=i:i=7:4021 Z1:r1,r2:96`,0:0,-23:-96`,0:0,23 $0:i:r=10 4018 -1070.:(eulr<4)+(eurr>3) pic=64100d+32 *r:getpic+2:el:15,4;y$;y$;y$;y$;16,4;z$;z$;z$;z$:1066*:17,4;e$(r+1):1070. i=1502:i }1066*:15,4;"How many";16,4;y$;y$;y$;y$;17,4;z$;z$;z$;z$;15,1;"" query=30:input &c$=0Űc$>304026 div=c$:r1=3*r+1-(12 r>3):r2=6+15*(r>3):r1,r2;1;s;c$:1070.:(elr=3)+(eulr<3)+(eurr>3) i=1502:i:eul:0,72H:160,0:eur:160,72H:0,-72H:edr:160,0:-160,0:edl:0,0:0,72H:eul:i=125:i el:1066*:15,4;"";16,4;"Howmany";17,4;"boxes ? ";15,1;"" query=5:input %c$<21070.:4034 'by=c$:ans=(div/by):rem=div-ans*by ʓ0:cl:15,1;"":1:7,568:17,0:0,-9 :-17,0:0,8:0 nobox:fadeout Bx5=0:y5=0:x4=0:y4=0:x3=0:cl: @LIBRARY ROUTINES &~p(p=(pp)=(p0+14+2*(p))+256*(p0+15+2*(p)):p0=1+23730\+256*23731\: &""::ZOB=0:2 &."file"9899&:"usr"p0,65536-p0: ' "":"" ofeicadeiadeouletreHnpu\obo\oZetan>dLu@duduetpictio ra cXumntrtariloxeumberUpadx n)+ r {qdE fish starfish shells anemones crabs ships boots treasure A CDBTKLABABABCDEFGHCDAJKLBABUMNNMMDKLCONDKLMPATATCDQJKLCRKSAT?<       usr dـ @`qswwsq` @ cwx?6l<  =̾>~~[Y[= ~~~ 70h?????@CoOw^?~^~^?><? +JچQ?<>:?ժUUUUUXVujժժjUUUuUUU}UUUVUku;5vuvuEVVXp U~ U`UU5ժUp?|>?~?~~|?>~??~??>![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[2[: [G: [2[: [O͌:[<2[ :[<2[ :[@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//MMYWqMT|> P  P 3LMPP \Wq !v>!1g!1 c!qu?>^~,tlXl4,8~~