ZXTape! 0Created with Ramsoft MakeTZXD n> PISD01 2:2:6::4,10 ;1;"Picture Book":20,8;" Softbacks 1984":2:5,0; 9""65000,200:""42498,4000:"" ("D"10 : ?D : z!<:OG!!! !P:'OG  w$w$ :=28 (!X:LO>!= :M_>#= GO:N7B *[KM #BABYN?_@@BALL>>BED?BIRD BOAT `pp BOYpp tttttpPPPPPPBUS111111pp CAR @` p CASTLE<<ɜCATPCHAIR8888888888888????888888888888888888CLOUD??DOG@ DOOR@@FISH=?0`?`0FLOWERS`C&##&$, )+x0GIRL>>>>` cHORSEq?  HOUSE|>>~~~~~LORRY~aaaaMANpp pMOUSE/PLANE@`px|~?m~|xp`@RABBIT`lhSHIP{?mSHOPpwwwwwwwwpSUN  0   0 TABLE88888888888888TEDDY$?_@TOY0TRAIN<yy0 TREE8|8|8|VAN88WINDOW    WOMAN>>> >@"ArB /-/ 42000 PIS37 H(Xp)=(X/256) L(Xp)=X-256*H(X) 9600%:7250R /21004:Q0SV=0:1000  (K=(23560\):K=0950 "23560\,0:K6 b((23658j\)/8)=2*((23658j\)/16)23658j\,8+23658j\: &23658j\,(23658j\)-8: :"Press Y or N "; M950:(K78N)(K89Y)(K110n)(K121y)971 K>100dK=K-32  "- ";(K): 9A=(Y(XI,YI),X(XI,YI)):B=(A/8):A=A-B*8: )0:7::23560\,0 j118v,30:27,0:0,35#:-27,0:0,-35#:1500 220,14;:S=AA+112p*N:R=0 /P=(R+S):(P=0)(R8)1014 P;:R=R+1:1012 WIV=1:OV=1:BB=0:X=120x:Y=63?:1;X,Y:1600@  1400x  950 K<81020 K>11 1050 ;1;X,Y:1100L+20*(K-8):1300  1;X,Y:1020 K<96`K=K+32 K99c1070. $IV=0IV=1:109#  $OV=0OV=1:1059# !IV=0:OV=0 #1400x:1020 .K118v10808 1$BB=0BB=1:10797 3 BB=0 71400x:1020 8K120x1090B =41;X,Y:1300:1;X,Y:1020 BK122z1020 G1;X,Y:1550: LX>120xX=X-1 Q `X<143X=X+1 e tY>32 Y=Y-1 y Y<63?Y=Y+1  Sub to draw point BB=01340< (,P=0:Q=0:R=0:S=0 )X<143P=1 *X>120xQ=-1 -Y<63?R=1 .Y>32 S=-1 2eIV;OV;X+P,Y+R:IV;OV;Q-P,0:IV;OV;0,S-R:IV;OV;P-Q,0:IV;OV;0,R-S <IV;OV;X,Y: x3IV=03,25;"BLACK":1420 }3OV=03,25;"WHITE":1420 3,25;" " 4BB=05,25;"NARROW":1430 5,25;"BROAD " 1;1;X,Y:  S=AA+112p*N+16 zR=01:Q=02:P=07:18639H+256*P+Q+32 *R,(S):S=S+1:P:Q:R zR=01:Q=02:P=07:20495P+256*P+Q+32 *R,(S):S=S+1:P:Q:R  S=AA+112p*N+16 zR=01:Q=02:P=07:S,(18639H+256*P+Q+32 *R):S=S+1:P:Q:R "zR=01:Q=02:P=07:S,(20495P+256*P+Q+32 *R):S=S+1:P:Q:R , @/1,1;"Arrow keys to move or draw" E"3,1;"C pen colour" J 5,1;"V pen size" O$7,1;"X draw a point" T9 ,1;"Z exit"; Y R=0:S=M:Q=0 N=((R+S)/2):NM P=AA+112p*N:I=0 RA=(P-(WD+I)):(I0S=N:2020 $A<0R=N+1:2020 '(P+1)0S=N:2020  Q=1: 4: 9C19,0;"Type the drawing's name then":"press ENTER": >3S$:(S$)>8"That's too long!":21059 HGP=1̱(S$):Q=(S$(P)):(Q>96`)(Q<123{)Q=Q-32 MWD+P-1,Q:P W*W=S$:2000:Q02140\ Y+(AA+112p*(M+1))PE2140\ ZmQ=-1:"There is no room for another":"drawing.":"Press any key to continue.":950:2190 \(NM)(Q0)2160p aS=AA+112p*(M+1)-1:PE+160,L(S):PE+161,H(S):PE+162,L(S-112p):PE+163,H(S-112p):R=112p*(M-N):PE+164,L(R):PE+165,H(R):(PE+166) pQ02190 upM=M+1:R=AA+112p*N:S=R+111o:P=RS:P,0:P:P=1W:P+R-1,(WD+P-1):P  -PE+1,K:PE+2,W:(PE+3): 23560\,0 ;XI=1:YI=1:5800:5500|:W=0 #950:K>11 5200P  K<85120 E5550:5160(+10 *(K-8):5500|:5120 (XI>1XI=XI-1 - 2XI<6XI=XI+1 7 <YI<4YI=YI+1 A FYI>1YI=YI-1 K PK<65A5240x UK<91[J=K:5220d ZK<97a5120 _K>122z5120 aJ=K-32 dW>75120 fW=05290 i-WD+W,J:3000 :W=W+1:5120 xK12 5260 }#W=05290:5120 1W=W-1:K=32 :3000 :5120 K13 5400 #2000:Q05275 N(W=1)((WD)=88X)5550:5700D:5500|:5288 ,(W=1)((WD)=90Z)5550: 9200#:5288 l9210#:P=AA+112p*N-240:236066\,P-256*(P/256):236077\,(P/256) ں((Y(XI,YI),X(XI,YI))/8);Y(XI,YI),X(XI,YI);" !""":ں((Y(XI,YI)+1,X(XI,YI))/8);Y(XI,YI)+1,X(XI,YI);"#$%":ں((Y(XI,YI)+2,X(XI,YI))/8);Y(XI,YI)+2,X(XI,YI);"&'(":ں((Y(XI,YI)+3,X(XI,YI))/8);Y(XI,YI)+3,X(XI,YI);")*+" 7236066\,0:236077\,60<:5500| W=0:5120 J(PE+1),32 :(PE+2),7:(PE+80P):W=0: K=5795450J '(K<480)(K>557)5120 K=K-480 "sXX=X(XI,YI):O=03:YY=Y(XI,YI)+O:A=(YY,XX):ں(A/8);K;1;YY,XX;" ";:O:5120 J$CT=15550:5120 T5500|:5120 |@990:B;A;Y(XI,YI),X(XI,YI);1;"*":CT=1: CT=0 @990:B;A;Y(XI,YI),X(XI,YI);1;"*":CT=0: D]XX=X(XI,YI):O=03:YY=Y(XI,YI)+O:A=(YY,XX):ں(A/8);YY,XX;" ";:O: &W=8:K=480:I=23248Z nI,K+8:I+32 ,K+8:3000 :K=K+1:I=I+2:W=W+1:K<5575810 3I,K-480:I+32 ,K-480:3000 : p6400:K1 r`6:6::4,10 ;2;1;"Load Drawings":Q=1:6800 wF$AA-2,PE-AA+2 7SV=1:M=(AA-2)+256*(AA-1): E6:0:6::3,0;"Would you like to": SD"1 turn off";:6113 "1 turn on"; " the sound effects,":"2 load drawings from cassette,":"3 change or create a drawing,":"4 review the word list,":"5 save drawings on cassette,":"6 verify saved drawings,":"7 make a picture?" 2950:(K<491)(K>557)6122 6150+K-491 SD=(SD-1):6100 6000p:6100 900:6100  7000X:6100  6500d:6100  6600:6100  6400:K=1  6100 SV=1K=1:  |::"You haven't saved your drawings":"on tape. Are you sure you want":"to proceed?":970:K=89YK=1: K=0 : d6:6::4,10 ;2;1;"Save Drawings":Q=0:6800:4,0;F$:Q=(M/256):AA-1,Q:AA-2,M-256*Q:F$ AA-2,112p*M+2:SV=1: Ȅ6:6::4,9 ;2;1;"Verify Drawings":Q=1:6800:F$AA-2,112p*M+2 _:SV=1:"File verified.":"Press any key to continue.":23560\,0:950: > 17,0;"Type the file name then press":"ENTER." O Q=1" (If you do not want to":"name the file, just press":"ENTER.)"  F$ = ((F$)>10 )(((F$)0)(Q=0))6818  I=1 I>F$6820 Y(F$(I)<"0")((F$(I)>"9")(F$(I)<"A"))((F$(I)>"Z")(F$(I)<"a"))(F$(I)>"z")6818 I=I+1:6815 A10 ,0;"Invalid file name. Try again! ":6810 : X:2,8;2;1;"Review Drawings"::"Press Z to end the review or":"any other key to see the next":"drawing's name"::P=0 lPM7050 q)950:(K=122z)(K=90Z) v)23692\,255:Q=AA+112p*P {-R=Q:R32 :P=P+1:7020l R;:Q=Q+1:7035{ @:"Review complete.":"Press any key to continue":950:  W6:6:0::4,10 ;2;1;"Picture Book"::: Rwarm start entry point WT7200 :"Do you want any special options?";:970:K=89Y6100 \$7500L:5100:7255W L:::"Would you like:"::"1 a sea scene,":"2 a country scene,":"3 a street scene,":"4 a snow scene,":"5 an indoor scene,":"6 a blank sheet?" V2950:(K<491)(K>546)7500L `%8000@+100d*(K-491): @7:6:0::P=9 :R=40(:S=0:8950":P=15:R=8:S=9 :8950":S=4:P=6:R=32 :8975#:S=6:P=11 :R=568:8975#:8900" J[P=56:Y(P,1)=2:Y(P,2)=9 :Y(P,3)=13 :P: Y7:4:0::P=9 :R=40(:S=0:8950":8900": 0:7:2::P=9 :R=42*:S=0:8950":P=20:R=2:S=11 :8950":P=24:S=22:R=568:8950":8900" {P=16:Y(P,3)=11 :P:P=557:Q=024016:Q,P:7;8,0:Q: l0:7:0::P=9 :R=40(:S=0:8950":P=24:R=568:S=22:8950":8900": Ѕ7:2:0::P=6:R=24:S=0:8950":P=7:R=568:S=6:8950":8900" rP=16:Y(P,4)=18:Y(P,3)=13 :Y(P,2)=8:Y(P,1)=3:P: !4+8900":7:7:0:: "ąP=16:Q=14:X(P,Q)=2+5*(P-1):Y(P,Q)=6*(Q-1):Q:Y(P,4)=17:P: "M(PE+100d),S:(PE+101e),(P-S):(PE+102f),R:(PE+104h): #YP=P-S:S=22549X+32 *S:K=1P:Q=SS+10 :Q,R:Q:S=S+32 :K: #SD=0 #-I=61-1:0.01z# =,I:I #I=125:I #1I=0-12 -1:0.01z# =,I:I: #SD=0 #O0.1}L,0:0.1}L,4:0.1}L,7:0.5,12 : %'P=23637U\+256*23638V\ %AA=42500:PE=65000:WD=AA-10 :M=(AA-2)+256*(AA-1):SD=1:SV=1:X(6,4):Y(6,4) %CQ=(P+2)+256*(P+3):P=P+4:S=P+Q-3 %5R=PS2:R,230:(R+1),58::R % &\"D"65000,200:150:"M"42498,4000:150:"B"5: p#m#}}qskr