ZXTape! set  C "SET" YSET  wc 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" QnASETflogo @@ ???????????????????????????????|file v,&*fx,  "set"  ZX Spectrum - 48K     1982  ; FISHER-MARRIOTT   SOFTWARE  N$(10 ,6)  P(20) " Q1=0 $ M=8 & z=1 ' f2=0 (N$(1)="engine" )N$(2)=" tree" *N$(3)=" house" +N$(4)=" table" ,N$(5)="square" -N$(6)=" boat" .N$(7)=" star" /N$(8)=" pound" 0N$(9 )=" van" 1N$(10 )=" dog" 20513:i=23306 [23317[:p:i,p:i 3m104h,162,2,2,8,43+,32 ,45-,32 ,32 ,78N,255 A2Y=1:x=5:e=0:cl=(*8) Bm=20:cl:cl::2000:19,12 ;" ";20,12 ;" ";21,12 ;" ";#0;0,12 ;" " C80+7cl>3:0+7cl<4 D/Q=(*10 )+1:600X+10 *q E,9 :x=x+9 :x<2467C H6,5;"How many elements do";7,5;"you want in the 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" Lm$= MM$=""76 NM$>"@"M$<"E"82R OM$>"`"M$<"e"82R P 76L RM=5*(m$-64@) SM>20m=m-160 T<1;1;8+m/5,9 ;"" Vj14,4;1;"Press X if wrong, or";28;15,4;"any other key, if right." W""87W X=""88X YP="x"Ŧ="X"14,4;28;15,4;28:72H Zf295_ [0i=115:i,3;28:i:2,3;1;2;"NOTE for adults";8;5,3;"To change size of set";0;7,3;"press EDIT (i.e. hold down";8,3;"CAPS SHIFT and 1 together)";9 ,3;"when ""+, -, or New"" appears." \Ef2=1:14,3;1;"Press any key to start" ]>""93] ^=""94^ _Sp$="":p$=p$+("42484>4D4J82888>8D8J02080>0D0J<2<8<>6D6J22282>2D2J:2:8:>:D:J"(m=5m=15)) ae=0+m=20 bi=120:p(i)=i:i cCLEARTHEFRAME dcl:800  ee g2000+10 *e hSELECTOBJECT i2beep=0:z=1:Q=(*10 )+1 j107V-2*(Q=Q1) lq1=q m.SHUFFLEPRINT CO-ORDINATES nI=15 oS=(*m)+1 pP=P(I) r P(I)=P(S) tP(S)=P wI x6CHOOSENUMBEROF OBJECTSFORSTARTING yN=(*M/2)+2 }I=0N-1 ~ P=2*P(I+1)-1  550 I 950m /n=20y=19:x=2:1020 9N>9 n<20y=19:x=3:1010 4n1=n-10 *(n>9 ):n1=10 n1=0 Y=19 X=5 1000z+10 *N1 900 9 :20,13 ;32 ;21,13 ;32 ;:23306 [,104h:r=65000:1;21,20;"or ew ?" Z=0 ""143 Q$= Q$=""145 0q$=7cl=*8:e=0:65A !Q$="K"q$="k"q$="+"Z=1 0Q$="J"q$="j"q$="-"q$="0"q$="_"Z=-1 (Q$="N"q$="n"Q$="A"q$="a"100d 158-13 *(Z=0) ;20,12 ;31;21,12 ;31 Z=1N=M3040 RZ=119,10 ;"";20,9 ;"";21,10 ;"" !Z=-1N=03040 $Z=-120,9 ;"" 1p=21:x$="How many":5000:" ?" w$="" ""166 200:q$=:q$=""q$="*" $(Q$"0"Q$":")w$=""167 +w$=""21,13 ;" "; Q$"/"Q$":"173 Gw$=w$+q$:x=11 +3*w$:y=19:1000+10 *q$ >n2=w$:n2*z*10 +nmn2*z*10 +n0166 q$=w$:N2=q$ N2=N2*Z N2900:192 )N2+N>MN+N2<0c$=N2:300, -8;17-t,9 ;" " I=1̽N2 N=N+(Z=1) P=2*P(N)-1 550 N=N-(Z=-1) I 966q 950m N1=N 4n1=n-10 *(n>9 ):n1=10 n1=0 v19,20;"";20,20;"":900:N>9 n<20y=19:x=25:1010 0n=20y=19:x=24:1020 ɦx=24+3*(n>9 ):y=19:1000+10 *n1:900:900:#0;1,3;"Press any key to continue.":0:800  131 +NUMBERSOUTOFRANGE ,Kx=x-5:Y,X;" ";y+1,X;" ";y+2,X;" " -.x$=c$+" is too many.":5000:900 . 3106 0:p=21:x$="The set is "+("full."n=m)+("empty."n) 2 5000 4 900a 6 900a 7%x$="Try again, please.":5000 8 900a < 140 %!PRINTOBJECTATRANDOMPOSITION &S0+7cl>3:0+7cl<4:X=P$(P+1)-480 )Y=P$(P)-480 +Oy,x+1;" ";Y+1,X;" ## ";y+2,X;" ## ";y+3,X;" " -$beep=beep+z/2:.2~L,beep ."600X+10 *Q*(Z0) /q6900 09 :cl: XOY,X+1;" ";y+1,X;" ";y+2,X;" ";y+3,X;" " Z 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;"`| @";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;" "   CLEARSPACE  zw=1921:w,0;31;" ":w:#0;0,0;31;" ";1,0;31;" " $  DELAYLOOP D=180P D  PRINTINSTRUCTION ,c$=n:k=1̱c$:c$(k)="1"c$(k)="|" c$(k)="0"c$(k)="O" k *0+7cl<4:X$=c$+N$(Q1) 'Q=5q=1X$=c$+" "+N$(Q1) N1X$=X$+"s"  X$=X$+" " p=17-t:5000  900a cl: ACCEPTANSWER *0+7cl<4:B$="":c$="" X$="How many now ? " p=17-t:5000 c=1:ti=0 ""972 Q$= !ti>20.05|L,12 'ti=ti+(b$>""):ti>60<983 &c=2(B$"1"b$"2")982 Q$>"/"Q$<":"979  973 B$=B$+Q$:q$="1"q$="|" q$="0"q$="O" c$=c$+q$:p,22;c$ c=c+1:c=n972 B$=N988w ?900:x$="Not "+c$+" ":5000:900:900 ;x$="Try again, please.":5000:900:966 (900:x$="Yes. Good.":5000  900a cl: -PATTERNSFORLARGE NUMBERS 1Y,X;"";y+1,X;"";y+2,X;"": .Y,X;"";Y+1,X;"";Y+2,X;"": SY,X;"";Y+1,X;"";Y+2,X;"";1;y+2,x+1;"": 1Y,X;"";Y+1,X;" ";Y+2,X;"": 1Y,X;" ";Y+1,X;"";Y+2,X;"": 1Y,X;"";Y+1,X;"";Y+2,X;"": $1Y,X;"";Y+1,X;"";Y+2,X;"": .5Y,X;"";Y+1,X;" ";Y+2,X;" ": 81Y,X;"";Y+1,X;"";Y+2,X;"": B1Y,X;"";Y+1,X;"";Y+2,X;" ": @cl:b=m/5-1+(m>14)+(m=20):t=5-b :0,63?+8*t:31,-31,/2 ~0+7cl<4:i=1b:9 -i,0;31;" ";8+i,0;31;" ":i:e2020 Qe=1:9 :p=0:i=63?+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+1:p,i:1+2*(127-p),0 i=03:8-b-i,i+(i=0);31-i-(i=0);" ";9 +b+i,i+(i=0);31-i-(i=0);" ":i cl: (11 ,11 ;" ":7 21,4;" 1983 FISHER-MARRIOTT";14,10 ;8;" ";15,10 ;" ";16,10 ;" ";17,10 ;" ";18,10 ;" " 51,-24:i=1200:i:25  SLOWPRINT ]8;p,(5p<20)+(13 p=21);" ";" "p<21 l=x$  C=1l Hp,((16-l/2)p21)+(13 p=21);X$(C)+""; k=15:k:C 8;" ";: @2(n>9 z=-1)(m>n+9 z=1) %a=23306 [:a,96`:a+1,160:a+2,2:a+3,2:a+4,8:a=a+4:i=1̱d$:a+i,d$(i):i:a+i,255:65000: &.ROUTINEFOR SAVINGPROGRAM &0"file"9902&:" "65000,536: &"":4000 ' "":"" mz: pyxeb tqrMdP(42484>4D4J82888>8D8J02080>0D0J<2<8<>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  P 3LMPP \Wqv>?|>?|?>?<<<|?yxx?}?xxxx~??~~~