ZXTape!LearnTree C C XE &p(xu)=x+256*(x+1) 423693\,71G:0:236099\,9 (29999/u:pn=300022u Z.1}L,22 dg"Enter the names of two objects, e.g. ""a cat"" and ""a dog""."'"1st object? ";t$'"2nd object? ";f$ n 1000 xg.4L,20:''"Think of another object and"'"press a key"''6;"[ Press 'M' for menu ]"'' }pr=300022u "0:="m"Ŧ="M"4000 =""130 .1}L,20 23692\,255:f$="" )èp(pr)x=2:f$="is ":220 x=4 w=pr+x:f$=f$+"it " 'wf$=f$+¾w:w=w+1:230 $.1}L,24:f$=f$+"? [T/F]" 2000 K="t"Ŧ="T".1}L,36$:3;"> True"'':c=0:280 L="f"Ŧ="F".1}L,12 :4;"> False"'':c=2:280  250 ?x=2cf$=f$(7̱f$-7):900:120x x=2120x " lp=pr+c , pr=p(lp) 6 200 @.1}L,0:"I give up."'"What are you thinking of?"'t$ =lp,pn-256*(pn/256):lp+1,(pn/256) U.1}L,12 :"Enter a difference between"'(t$);" and ";(f$)'"> ";(t$);" ";d$ Llp=pn V'f=1̱d$:pn+f+3,d$(f):f `%pn=pn+f+4:pn-1,0 ~=lp,pn-256*(pn/256):lp+1,(pn/256)  pn,0:pn+1,0 'f=1̱t$:pn+f+1,t$(f):f %pn=pn+f+2:pn-1,0 Wlp300022ulp+2,pr-256*(pr/256):lp+3,(pr/256): Elp+2,pn-256*(pn/256):lp+3,(pn/256)  pn,0:pn+1,0 'f=1̱f$:pn+f+1,f$(f):f (%pn=pn+f+2:pn-1,0 n d$=f$ >d$(1)"a"d$(1)"z"d$(1)=(d$-32 ) d$32 d$: t$=d$(33!) d$=d$(32 ) =d$(d$)" "t$=d$(d$)+t$:d$=d$(̱d$-1):2040 d$  d$=t$:2010 q.4L,44,::"Loading file from tape:"''"Play back tape now."'"On error enter [C]ONTINUE"'"and repeat." "" pn=p(300000u) 4000 -.3,33!::"Saving file on tape:" 2"What name do you want to give the file? ";f$ ñf$3010 G300000u,pn-256*(pn/256):300011u,(pn/256) f$300000u,pn-300000u u.4L,44,:'"Play back tape now."'"On error enter [C]ONTINUE"'"to return to menu and repeat"'"Save option." ""300000u,pn-300000u .1}L,40(::6;"Menu"'''"[1] Load file from tape"''"[2] Save file onto tape"''"[3] Start new file"''"[4] Return to present file" 6''"Pick a number" ="1"2500 ="2"3000  ="3" ="4":120x  4010 manual i0ukuGu`ulives in the seaa whalea blancmangezuQuis scalya pangolinumudoes not eat antsan ant