ZXTape! 0Created with Ramsoft MakeTZXpartition C "PARTITION" SPARTITION  MD 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" QnA PARTITIONl'logo @@{ ???????????????????????????????|Yfile /&8-&J/   "set"  ZX Spectrum - 48K     1982  ; FISHER-MARRIOTT   SOFTWARE   25 u=23306 [:u,8*x1-8:u+1,178:u+2,1:u+3,1:u+4,8:u=u+4:i=1̱d$:u+i,d$(i):i:u+i,255:65000: N$(11 ,7)  P(24) " q=0 # q1=0 $ M=8 % b1=0 & r=0 ' f2=0 (N$(1)="7engine" )N$(2)="5tree" *N$(3)="6house" +N$(4)="6table" ,N$(5)="7square" -N$(6)="5boat" .N$(7)="5star" /N$(8)="6pound" 0N$(9 )="4van" 1N$(10 )="4dog" 24:Y=1:x=5:e=0:cl=(*8) 4"m=20:cl:cl::2000 719,3;" ";20,3;" ";21,3;" " <80+7cl>3:0+7cl<4 =/Q=(*10 )+1:600X+10 *q >,9 :x=x+9 :x<2460< ?6,5;"How many elements do";7,5;"you want in a set?";9 ,9 ;"A up to 5";10 ,9 ;"B up to 10";11 ,9 ;"C up to 15";12 ,9 ;"D up to 20";15,7;1;"Press A B C or D" @m$=:m$=""64@ AM$>"@"M$<"E"68D B-M$>"`"M$<"e"M$=(M$-32 ):68D C 64@ DM=5*(m$-64@):1;1;8+m/5,9 ;"";0;1;14,4;"Press X if wrong, or";28;15,4;"any other key, if right." E""69E F=""70F GP="x"Ŧ="X"14,4;28;15,4;28:63? HHv=m/5:m1=v*6:i=614:i,2;30:i IM=5p$="71767;7@7F7K" J+M=10 p$="419156964;9;4@8@5F9F4K9K" K7M=15p$="3171;12666:63;7;;;2A7@;A2F6F;F3K7K;K" LCM=20p$="014181=1065696=60;4;9;=;0@4A8@=A0F5F9F=F0K4K9K=K" P-i=1516:i,2;30:i:7,6;"What kind of sums?";9 ,3;"A Like 6+3=?";10 ,5;"(answer missing)";12 ,3;"B Like 6+?=9 or ?+3=9";13 ,5;"(missing number on left)";15,6;1;"Press A or B" Q>""81Q Rm$=:M$=""82R S+(M$>"@"M$<"C")(m$>"`"m$<"c")85U T 82R Usum=m$-64@:sum>2sum=sum-32 :1;1;9 +3*(sum=2),3;"";""sum=2 V}15,3;1;1;"Press X if wrong, or";28;16,3;"any other key, if right.";28 W>""87W X=""88X YP="x"Ŧ="X"14,4;28;15,4;28:80P Zf297a [Li=116:i,2;29:i:2,3;1;2;"NOTE for adults";0;8;5,3;"To change the type of sum";8,3;"press EDIT (i.e. hold down";9 ,3;"CAPS SHIFT and 1 together)";10 ,3;"instead of answering";11 ,3;"the sum." \Ef2=1:1;14,3;"Press any key to start" ]>""93] ^=""94^ ae=0+m=20 bi=124:p(i)=i:i cCLEARTHEFRAME d 802" e cl:e g2000+10 *e hSELECTOBJECT i j*q=(*10 )+1:q1=q106j kq1=q l6CHOOSENUMBEROF OBJECTSFORSTARTING mi=124:p(i)=i:i n(a=(*(m-2*v))+2*v+1 o'b=(*(a+1)):bb1111o pb1=b qc=a-b r.SHUFFLEPRINT CO-ORDINATES si=vmv:bim2=i:i=m ti ui=vmv:cim3=m1-i:i=m vi x m4=m2+((m3/v-m2/v)/2)*v yQI=1m2-1:s=(*(m4-1))+1:p=p(i):p(i)=p(s):p(s)=p:i zJI=m3+1m1:s=(*(m1-m4))+m4+1:p=p(i):p(i)=p(s):p(s)=p:i {3I=1b:p=2*p(i)-1:550&:i |9I=m1-c+1m1:p=2*p(i)-1:550&:i }Lx=5+(40(*(m4/v))+8*(m4>(3*v)):850R:750 966 b$=7:502 n2=b$:n2=n150 Q900:900:x$="Not "+a$:5000:900:900:140 Xi=116:.05|L,10 +i:i:.5,10 +i:x$="Yes":5000 !20,p;" "+(" "n>9 ) 1:8259:0 3sum=2rb$=b:x=x0:755:220 2sum=2rb$=c:x=x2:765:220 x=x3:775 900:900:900:#0;0,0;" Press any key to continue. ";:2000:#0;0,0;" "; 800 :101e +NUMBERSOUTOFRANGE ,0x$="Not "+a$:5000:900:900 6%x$="Try again, please.":5000 8 900a < 140 %!PRINTOBJECTATRANDOMPOSITION &S0+7cl>3:0+7cl<4:X=P$(P+1)-480 )Y=P$(P)-480 +!s=2d=15:d -600X+10 *q 09 :cl: WQUESTIONMARK X81;Y,X;"";y+1,X;"";y+2,X;" " a6PRINTANOBJECT, DEPENDINGONVALUEOFQ bY,X+1;"@@";1;y,x+1;" ";0;y+1,x;4;"";9 ;" ";y+2,X;9 ;4;" )))";9 ;7*(cl<4);y+3,X;"O O" g lyY,X+1;4;" ";y+1,X;"";y+2,X;"";2;"";4;"";y+3,X;2;" " n vr=(*4)+4:Y,X+1;" ";y+1,X;1+2*(>.5);"";y+2,X;r;2;"";y+3,X;"";ں(*4)+3;"";r;"" { nY,X+1;" ";y+1,X;" ";y+2,X;ٺ(*4)+2;"";y+3,X;9 ;" "  zٺ(*4+1)+2*(cl>3);Y,X+1;" ";y+1,X;"";y+2,X;"";y+3,X;""  y,x+1;" ";y+1,x;" ";Y+3,X;"";y+2,X;" ___":ٺ(*4)+2:d=010 :8*x+15,173-8*y:-d,-20:8*x+17,168-8*y:d,-15:d  rٺ(*4)+2-(cl<4):Y,X+1;" ";y+1,X;" ";y+2,X;"";y+3,X;" "  y,X+1;" ";y+1,x;4;"____";y+2,X;9 ;4;"`1 @";y+3,X;0+7cl>3;""  Y,X+1;" ";y+1,X;1;" ";ں(*3)+5;"";y+2,X;ں(*2)+2;"";y+3,X;9 ;9 ;"O O"  q2+7*(>.5):Y,X+1;" ";y+1,x;" ";y+2,X;"";y+3,X;" "  1:r=(>.5):n=a:sum=2n=b:rn=c Zb$=b:x0=2+(b<10 )+(c<10 )+2*(a<10 ):x=x0:x1=x:y=19 7sum=2r8204:x=x+3*b$:757 .j=1̱b$:1000+10 *b$(j):j ;d$=n$(q,2̰n$(q,1))+("s"b1):20  1100L:x1=x:x2=x1:b$=c 6sum=2r8204:x=x+3*b$:767 .j=1̱b$:1000+10 *b$(j):j ;d$=n$(q,2̰n$(q,1))+("s"c1):20  1110V:x1=x:x3=x1:b$=a 'sum=1n=a8204:777  .j=1̱b$:1000+10 *b$(j):j  ;d$=n$(q,2̰n$(q,1))+("s"a1):20    CLEARSPACE  Qcl:d$=n$(11 ,7):x1=x0:20:x1=x2:20:x1=x3:20 "8:21,0;" ";31;" ";20,0;" ";31;" ";19,0;" ";31;" ";17,14;" " #U19,0;31;20,0;31;21,0;31 $ 3DRAWBOXFORMISSINGNUMBER 4'x4=8*x:y1=16+8*b$ 9Mx4,23:y1,0:0,-23:-y1,0:0,22: R 1:y=175-8*t Wx,y:j=18+2*(w-2):-3,-4:.01z# =,6:.01z# =,0:3,-4:.02{# =,-6:j \ 0:  DELAYLOOP k=180P k  ACCEPTANSWER ,8:x$="What's missing ?":5000 )p=x0+1:sum=1p=x3+1 (sum=2)rp=x2+1 c$="":B$="" )20,p;"#"+("#"n>9 ) ct=1:ti=0 ""972 %Q$=:q$=7c$=q$:990 !ti>20.05|L,12 'ti=ti+(c$>""):ti>60<983 'ct=2(c$"1"c$"2")990 Q$>"/"Q$<":"979  973 c$=c$+q$:q$="1"q$="|" q$="0"q$="O" #b$=b$+q$:1;20,p;B$ "ct=ct+1:ct=n972 a$=b$:b$=c$:cl: -PATTERNSFORLARGE NUMBERS >Y,X;"";y+1,X;"";y+2,X;"":x=x+3: >Y,X;" ";Y+1,X;" ";Y+2,X;" ":x=x+3: `Y,X;"";Y+1,X;"";Y+2,X;"";1;y+2,x+1;"":x=x+3: >Y,X;"";Y+1,X;" ";Y+2,X;"":x=x+3: >Y,X;" ";Y+1,X;"";Y+2,X;"":x=x+3: >Y,X;"";Y+1,X;"";Y+2,X;"":x=x+3: $>Y,X;"";Y+1,X;"";Y+2,X;"":x=x+3: .BY,X;"";Y+1,X;" ";Y+2,X;" ":x=x+3: 8>Y,X;"";Y+1,X;"";Y+2,X;"":x=x+3: B>Y,X;"";Y+1,X;"";Y+2,X;" ":x=x+3: L@x=x+2:y+1,x;"";y+2,x;"":x=x+4: VCx=x+1:y+1,x;"";y+2,x;"":x=x+4: @cl:w=1+m/5+(m>14)+(m=20):t=7-w :0,47/+8*t:15,-15,/2 ~0+7cl<4:i=1w:9 -i,0;31;" ";8+i,0;31;" ":i:e2020 Qe=1:9 :p=0:i=47/+8*t32 +8*t-1 v(p,i)p,i:1+2*(127-p),0:p,207-i:1+2*(127-p),0:2018 p=p+1:2014 i 9p=p+2:p,i:1+2*(127-p),0 i=01:8-w-i,1+(i=1);30-(i=1);" ";9 +w+i,1+(i=1);30-(i=1);" ":i cl: =12 ,0;" ":3 14,2;"";15,2;" ";16,2;" ";17,2;" ";18,2;" ";20,5;9 ;" 1983 FISHER-MARRIOTT" 51,-24:i=1200:i:25  SLOWPRINT 28:17,5;" " l=x$  k=1l *17,15-l/2;X$(k)+""; j=15:j:k 8;" ";: &.ROUTINEFOR SAVINGPROGRAM &0"file"9902&:" "65000,536: &"":4000 ' "":"" R 7engine5tree 6house 6table 7square5boat 5star 6pound 4van 4dog {    qmryxew`t8pv@P0014181=1065696=60;4;9;=;0@4A8@=A0F5F9F=F0K4K9K=KMbua bc s0nxu[lQP C0QOAOXYesB20Dboats* 8 e![~#"[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(//MMZW> P P P 3@MQ Q \Wq !v>?|>?|?>?<<<|?yxx?}?xxxx~??~~~