ZXTape! 2} Fairshare - Side BGriffin Software1984English Educational9.99 UKPNoneOriginal ReleaseTZXed by Andrew Barkerfairshare2B "FAIRSHARE2" qFAIRSHARE2 C 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 FAIRSHARE2logo @@ ???????????????????????????????|file 7Q&mN9Q'zob1=1:yes=0:cl=5 #cl:9 :cl::yes100d  8000@  9 O1066*:0:0:0:a$(160):cl=(*2)+5 %ff=16:f=0:yes=0 23659k\,12 :"":I=80P1-79O:cl:0,I:255,0:0,1:-255,0:9 :11 +10 *(I=1),0;1;a$(32 ):I zob=129:236066\,557:236077\,251:14,3;"CDAAAAAAAAAB";15,3;"BAAA";zob;"AAAAAAB";16,3;"NOCRTTCOCDANDACRTCOCD" 17,3;"BABTTTH";1;8;"IAMDABTABTTH";1;8;"IANM";18,3;"BAKSTTAAKLABTAKSTAAKL" t16,26;"CD";17,26;"EF";18,26;"GH":236066\,0:236077\,60< I13 ,0;1;6+zob1;a$+a$(64@):zob1=1 t0,72H:255,0:0,-579:-255,0:0,579:200:100d U23560\=7:23560\,0:::zob1=0:ff=16:f=1:yes=1:1066:5  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: Z#30:el:7:cl=7:96`,69E:-24,5,-/2:0,14:-65A,0:0,-25:65A,0:0,6:24,1,/2:11 ,1;"";12 ,1;"";13 ,1;"" [t15,1;"":7,568:17,0:0,-9 :-17,0:0,8: \F30:cl:oct:k=10 16:k,0;"":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 cl:cl: ,9 :start 6oct:box:1066*:11 ,1;7;cl=7;"Press W";12 ,1;"to wake ";13 ,1;"me up ":ec 823560\,0 :23560\=87Wž23560\=119w1066*:15,1;1;8;8;"W":1070.:i=1502:i:516 ; 314: intro 30:sums:getpic 7,168:241,0:0,-33!+ff:-241,0:0,32 -ff:1066*:7;cl=7;1,1;31;2,1;31:ff7;cl=7;3,1;31;4,1;31 30:x=8:y=8:7:0:cl=7:w=1:d=2:b$=" Press any key for a sum ":75K:ffy=24:b$=" or S to stop. ":75K -0:9 :30:""513 =""514 I30:ff(23560\=83Sž23560\=115s)3106 :ff=0:1066*:0:cl:0,0;a$ 30:pile 30:boxes :i=1div-rem:grab:30:put:30:i:oct 30:remrdr 30:getans remgetrem:30 cls:ec:fadeout -i=1100d:30:i:510 X70:236066\,144:236077\,250 Z8;10 ,11 ;" !""#";11 ,11 ;"$%&'";12 ,11 ;"(";7-fade;(cl=7fade=-1);")*";8;0;"+";13 ,10 ;",-./01";14,10 ;"234567";15,10 ;"89:;<=";16,11 ;">?@" l :1070.:cl=7;7;12 ,12 ;")*" e=96`105i9 :e,75K:0,4:2,0:1:1,1:0,-5:-3,0:0:e: :1070.:cl=7;7;12 ,12 ;")*" we=96`105i9 :e,75K:0,4:1:e+3,75K:0,4:0:e: :1070.:cl=7;7;12 ,12 ;")*" e=96`105i9 :e,77M:0,-3:2,0:1:e+3,73I:0,5:-3,0:0:e: :1070.:cl=7;7;12 ,12 ;")*" e=109m100d-9 :e,75K:0,4:-2,0:1:e-3,78N:0,-3:3,0:0:e: :1070.:cl=7;7;12 ,12 ;")*" {e=109m100d-9 :e,78N:0,-3:1:e-3,78N:0,-3:0:e: :1070.:cl=7;7;12 ,12 ;")*" e=109m100d-9 :e,77M:0,-3:-2,0:1:e-3,73I:0,5:3,0:0:e: :1070.:cl=7;7;12 ,12 ;")*" e=97a106j9 :e,74J:2,0:1:e,78N:2,0:0:e,73I:2,0:1:e,77M:2,0:0:e: oct:96`,80P:4,0:105i,80P:4,0:y=79O75K-2:95_,y:96`,y:1:97a,y:0:98b,y:99c,y:104h,y:105i,y:1:106j,y:0:107k,y:108l,y:y 95_,74J:5,0:104h,74J:5,0:96`,73I:3,0:105i,73I:3,0 J97a,68D:9 ,0:98b,67C:7,0: If1=0:23560\,0:by=b:r1by=(*(b-1))+2: Tdiv=(*(dv-by))+by+1:div=(div/by)*by:rem=r2*(*by):div=dvrem=0 div1=div702  div1=div A(div/by)>(10 +5*(by=2))div=div-by:705 ans=div/by:div=div+rem  >box ?d1066*:11 ,1;"How many";12 ,1;"in each ";13 ,1;" box? " @query=ans:input Aed:0:236066\,557:236077\,251:cl:x=112p+8*(ans<10 ):y=176:b$="MM":75K:y=184:75K Bkx=x+20+8*(ans<10 ):k=1c-1:n=c$(k):y=168:numbers:x=x+16:k C 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? " Nquery=rem:input P^edr:cl:0:1066*:b$="remainder":x=168:y=176:75K:1070. R-y=168:n=c$:x=240:numbers:k W nobox: \ c=1:c$=" ":ti=0 a""865a f s=0:23560\,0 i4q=23560\:1;s;15,1;" " j!ti>20.05|L,12 k)ti=ti+(c$>" "):ti=60<883s lc=2c$"1 "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 sc$=query886v t7:11 ,1;" More "ưc$query;12 ,1;" than ";13 ,1;" ";c$;" ":k=1100d:k uz15,1;"";11 ,1;" Try ";12 ,1;" again, ";13 ,1;" please ":860\ vn2-(cl=5);11 ,1;" Yes ";12 ,1;" ";13 ,1;" Good " 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  Ufade=7-cl:cl:oct:ec:i=cl0-1:i=2i=3932 :j=10 16:1;i;j,10 ;"":j 4i:i=1502:i:fade=-1:9 : Cfade=7-cl:ec:i=0cl:i=2i=3942 :j=10 16:1;i;j,10 ;"":j i:9 :fade=-1:   div=number in pile   by =number of boxes   ans=limit, each box   rem=leftovers cl=(*3)+5 cl:9 :cl: hfadein:oct:el:i=1div:x=p$(2*i-1):y=p$(2*i):x,y;y$;x+1,y;z$:i dedl: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 : *-236066\,0:236077\,60<: .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 ,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  .236066\,144:236077\,250 1x=32 :y=0:w=3:d=3:b$=" !""#":75K:y=y+24:b$="$%&'":75K:b$="()*+":y=y+24:75K:x=8:y=y+24:b$=",-./01":75K:y=y+24:b$="234567":75K:y=y+24:b$="89:;<=":75K:x=32 :y=y+24:b$=">?@":75K oct:f=0:f2=0 ,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  div1=0:cl-4:7:1:x=4:y=4:w=1:d=2:b$=" Setting the sums ":75K:9 :0 _0,175:167,0:0,-23:-167,0:0,22 7:5,0;" Press 1 for up to 10 objects "'" 2 for up to 20 objects "'" 3 for up to 30 objects ":0,136:240,0:0,-25:-240,0:0,25 23560\,0 "23560\=04006 /i$=(23560\):i$<"1"i$>"3"4005 ^dv=10 *i$:4+i$,7;1;1;cl-4;" " ""4009 9 ,0;" How many boxes? 2,3,4 or 5? ":0,104h:240,0:0,-9 :-240,0:0,9 23560\,0 "23560\=04012 i$=(23560\) i$<"2"i$>"5"4011 b=i$ v9 ,14+2*b+3*(b=5);1;1;cl-4;" ":b=2r1=0:4035 '" Always ";b;", or up to ";b;"? ":0,88X:184,0:0,-9 :-184,0:0,9 :'" Press A for always ";b;" "'" U for up to ";b;" " ^0,72H:184,0:0,-17:-184,0:0,17 23560\,0 "23560\=04024 =i$=(23560\):i$"a"i$"A"i$"u"i$"U"4022 'r1=1:i$="a"i$="A"r1=0 B13 +r1,7;1;cl-4;1;a$(15) c16-3*(b=2),0;" Press N for no remainders "'" R for remainders " s0,480+24*(b=2):216,0:0,-17:-216,0:0,17 >""4037 23560\,0 "23560\=04039 =i$=(23560\):i$"r"i$"R"i$"n"i$"N"4038 'r2=0:i$="r"i$="R"r2=1 V16+r2-3*(b=2),7;1;cl-4;1;a$(19) k23560\,0:19,0;" Press X to change your mind, or Another key, for the sums" ^0,24:255,0:0,-17:-255,0:0,17 >""4050 23560\,0 "23560\=04052 g23560\=88Xž23560\=120xcl;4,0;a$+a$+a$+a$(96`):4004 f4100 jcl;3,0;a$+a$+a$+a$(128);7;5,0;" If you want to set";21'" different sums,";21'" press EDIT,";21'" at any time,";21'" while the program";21'" is running.";21;13 ,0;" To get EDIT,";21'" you hold down";21'" CAPS SHIFT,";21'" and press 1.";21 \cl-4;19,0;" Press EDIT now,";21'" to start the sums.";21 _0,136:168,0:0,-491:-168,0:0,491 ^0,72H:168,0:0,-33!:-168,0:0,33! ܅7:0,24:168,0:0,-17:-168,0:0,17:9 :23560\,0 "23560\74061  f=1:23560\,0 cl:: @LIBRARY ROUTINES &~p(p=(pp)=(p0+14+2*(p))+256*(p0+15+2*(p)):p0=1+23730\+256*23731\: &5"":zob1=0:cl=(*3)+5:3 &."file"9899&:"usr"p0,65536-p0: ' "":"" obedfK oicadeiadeouletreHnpu\obo\oZetan>dLu@duduetpictio ra cXumntrtariloxeumberUpivxywda[u A CDBTKLABABABCDEFGHCDAJKLBABUMNNMMDKLCONDKLMPATATCDQJKLCRKSAT?<       B Setting the sums I usr dm>@`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>? +JچQ?<>