ZXTape! 0Created with Ramsoft MakeTZX8LETTER ; ;= 0:0::"" :21,0;:"" INK @I p??B| B8x<88x?'B<<0DDDD?|B@DDDD<DDo?8 @<<<8D 8D/8??<<||~<|>B<>BD??8x8@8D@BBB@BBbB|bH?D<xDBB<`>BB|< ???0?    @ 30Z@@ ?000 `?``4  ?`<`?`P+@ C@0O>`4<߿?߿ 0@` P (@  O0?~?00 @@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((88888888888888(((((((((000.(((((88888888888888((((((((000000((((88888888888888(((((((000000..(((88888888888888((((((11000..((((>>888888888888((((()))))1))))(((>>888888888888(((())))))11))))()11.((((((((((((((()))))))1))))))11.((((((((((((((((1111111))))))))((((((((((((((((())))))1)))))))((((((((((((((118888888888888888888888888888888888888888888888888888888888888888LETTER ! 6&! "LETTER" >>  MACBRIDE 1983 << }1,0:5000:5000:1,20:21,0;" Press any key to go on. ":0 (&2:6:0:0: 27,11 ;1;"";8,11 ;" ";9 ,11 ;" LETTER ";10 ,11 ;" ";11 ,11 ;"" <z$(32 ) F 3900< P$19,10 ;"Who's there ?" ZH.5,12 :0,0;"Please  ENTER  name ";n$ [n$=""90Z \+n$>90Zn$(1)=(n$-32 ) ] n$>12 n$=n$(12 ) dm$="Hello "+n$ nH19,10 ;" ";18,(32 -m$)/2;m$ x/20,4;"Is a PRINTER plugged in ?" 1500 pr=0+(no=0) 5:7: 1,13 ;"32 Windsor Gardens";2,25;"London";3,24;"England";4,19;"21 June 1983" !5,1;"Dear ";n$;"," R6,9 ;"This program shows how";7,1;"to set out letters." O9 ,5;"You can write them out on";10 ,1;"paper later." `pr=110 ,12 ;",or get the PRINTER";11 ,1;"to copy them for you." S12 +(pr),8;"I hope you have fun,";14+(pr),13 ;"Padingtun" @250:t=15:x,y:x,y-(8pr),2:t `140,42*,139,480,145,502,152,480,151,42* 118,1;"P.S.Press any key to go on." 1,20:0 "H20,0;" Do you know what I mean by a PARAGRAPH ";n$;"?" , 1500 6no=0400 @620,1;"Each block is one PARAGRAPH." J+330J:n=14+(2pr) T2p,h:t=0h:22528X+p+t,480:t:n ^s201,21,225,18,293%,26,321A,11 ,332L,19,353a,20 hO21,0;" Press any key to go on":1,20:0 :3910F S18,10 ;"Address first.";19,5;"Where is your house ?" R.5,12 :0,0;"Please  ENTER  number and street";s$ s$=""420  1800 #1,30-s$;6;s$  1900l  1490 0no1,10 ;z$(20):420 Z19,4;"What is your town called?";20,10 ;7;z$(13 ) sl=2:1700 O19,4;"Now county,state ";20,4;"or postal district." sl=3:1700 &/18,6;" The DATE comes next " 0119,4;" What is today's date? " :R.5,12 :0,0;"  ENTER  like this 21 June 1983.";s$ Ds$=""570: N 1800 X#4,30-s$;5;s$ ] 1900l b 1490 g9no4,15;7;z$(15):570: l218,6;"  Now the Heading  " v/19,4;"To whom are you writing ?" R.5,12 :0,0;"Please  ENTER  his or her name. ";s$ s$=""640 +s$>90Zs$(1)=(s$-32 )  1900l \19,4;"Is that Dear ";s$;" 1";20,5;" or Dearest ";s$;" 2" X.5,12 :0,0;" ENTER  1 for Dear,2 for Dearest";a$ a$=""680 ,a$(1)"1"a$(1)"2"680 *m$="Dear"+("est"a$(1)="2")+" "+s$ 5,1;4;m$  1900l ;1490:no5,1;z$(18):640 17,4;" Now write your message ";18,4;" Press  0  to rub out ";19,4;"  ENTER  after a paragraph" tl=6:tc=4 23561 \,100d +tl,tc;1;"L";0;" ":0 i$= .01z# =,20 i$=13 850R  *i$="0"ů=12 900:760 Btl,tc;i$:tc=tc+1:tc=31tl=tl+1:tc=1  760 Rtl>12 870f \btl,tc;" ":tc=5:tl=tl+1:20,5;" Do you want to end ?":1500 ^920,5;7;z$(21):no760 a1900l:1000 fG1900l:20,5;"No space left ";n$;" ":1000 Dtc=tc-1:tc=0tl,tc;" ":tc=30:tl=tl-1  17,4;" Time to finish this off. ";18,4;7;z$(25);19,4;" Press any key to go on ":1,20:0 17,4;" How will you sign off ? ";18,4;" 1 yours sincerely 2 love ";19,4;" 3 see you 4 best wishes" 20,4;" 5 write own greeting ":.5,12 :0,0;" Please  ENTER  1 2 3 4 or 5 ";a$ a$=""1020 a$<"1"a$>"5"1020 't=a$-480:t>41100L $ 1060$:n=1t:s$:n .6"Yours sincerely","Love","Bye for now","Best wishes" 8 1200 L?0,0;" Please  ENTER  your greeting ";s$ Vs$=""1100L `Fs$>2021,5;" That's too long !":1100L :tl+1,10 ;6;s$;tl+3,14;n$ n1900l:1490:notl+1,10 ;7;z$(̱s$);tl+3,14;z$(̱n$):1010 pr=01250 ;20,5;" Do you want a COPY ? ":1500 "17,0;z$;z$;z$;z$;z$ no1250  F1900l:20,5;" Want to write another ?":1500 no=0400  3900< s18,6;" Dear ";n$;19,10 ;"Goodbye for now";20,5;" Padingtun "   (20,10 ;"Is this O.K.?" V.5,12 :0,0;"Please  ENTER  yes or  no ";a$ a$=""1500 +20,10 ;7;z$(13 ) /a$(1)="y"a$(1)="Y"no=0: /a$(1)="n"a$(1)="N"no=1:  1500 ?0,0;"Please  ENTER  the name ";s$ s$=""1700 +s$>90Zs$(1)=(s$-32 ) sl,30-s$;6;s$  1900l  1490 5nosl,10 ;7;z$(20):1700  dn=1̱s$-1:s$(n)=" "Ưs$(n+1)>90Zs$(n+1)=(s$(n+1)-32 ) n: l7:17,4;z$(26);18,4;z$(26);19,4;z$(26);20,4;z$(26): FL=17:C=0 `8:L,C;"";L+1,C;"";L+2,C;"";L+3,C;"";L+4,C;"" ^22,1:224,0:0,40(:-230,0:0,-10  .n=113 :g$:r=07:b g$+r,b:r:n "A",0,3,15,31,63?,127,127,127,"B",240,248,248,248,240,243,239,223,"C",0,0,0,0,0,0,128,192 "D",127,127,126~,126~,126~,126~,62>,60<,"E",191,127,255,255,254,248,112p,102f,"F",224,224,224,192,128,64@,480,14 "G",24,17,3,7,15,31,127,255,"H",198,192,192,128,128,128,0,0,"I",3,3,1,18,12 ,480,192,0 "J",255,255,127,127,255,255,255,255,"K",129,253,254,255,255,255,223,239 ĥ"L",239,239,247,247,246,253,251,255,"M",30,33!,33!,65A,226,242,252,252  pM(23730\+256*23731\)-(23653e\+256*23654f\) z7:7:0  blc Txy*pAh  # NFredS PaddingtonMDearest PaddingtonI AyGM TYPEWRITER2 2_ 4 0::"" :21,0;:"" INK @I.p??B| B8x<88x?'B<<0DDDD?|B@DDDD<DDo?8 @<<<8D 8D/8??<<||~<|>B<>BD??8x8@8D@BBB@BBbB|bH?D<xDBB<`>BB|< ???0?    @ 30Z@@ ?000 `?``4  ?`<`?`P+@ C@0O>`4<߿?߿ 0@` P (@  O0?~?00 @@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((88888888888888(((((((((000.(((((88888888888888((((((((000000((((88888888888888(((((((000000..(((88888888888888((((((11000..((((>>888888888888((((()))))1))))(((>>888888888888(((())))))11))))()11.((((((((((((((()))))))1))))))11.((((((((((((((((1111111))))))))((((((((((((((((())))))1)))))))((((((((((((((118888888888888888888888888888888888888888888888888888888888888888TYPEWRITER N$ "TYPEWRITER" >>  MACBRIDE 1983 << 1,0:0:7:0:5000:1,20:21,0;" Press any key to go on ":0 (":x=0:4:3900< 2P70F:N=13:W$,L,C:L,C;:6+(n=3):6000p:n Pf"PADDINGTON'S",1,13 ,"MAGIC TYPEWRITER",3,11 ,"Who's there?",12 ,10 Z?0,0;" Please  ENTER  your name ";n$ dn$=""90Z n n$>12 n$=n$(12 ) pE12 ,1;:w$="Is there a PRINTER plugged in?":6000p rcz=1:1210:pr=cx xP20,(18-n$)/2;:w$="Press any key "+n$:5:6000p 0:5:7: 7140:n=114:w$:;:6000p::n T" "," Hello "+n$," "," I use this program to write instant Thank you letters." C" "," You can use it for Having-a- nice-time letters as well." B" "," They don't always work out for me.I hope yours work." Q" "," Press any key when ready."," "," love"," "," Padingtun" 0: ȑ2,5;" What sort do you want ?";5,4;"1 Thank you for the present ";7,4;"2 Having a nice time" B.5,12 :0,0;"  ENTER  1 or 2 ";a$ a$<"1"a$>"2"210 :3990 I0,0;"Address ? Plese  ENTER  number and street";s$ s$=""250 dn=1̱s$-1:s$(n)=" "Ưs$(n+1)>90Zs$(n+1)=(s$(n+1)-32 ) n "k$=s$:1200:cx250 5" Please  ENTER  town ";t$:t$=""280 "+t$>90Zt$(1)=(t$-32 ) '"k$=t$:1200:cx280 ,M0,0;"County,state or postal district?";x$:x$=""330J 6+x$>90Zx$(1)=(x$-32 ) @"k$=x$:1200:cx300, ON0,0;" Please  ENTER  today's date ";u$:u$=""335O Tdn=1̱u$-1:u$(n)=" "Ưu$(n+1)>90Zu$(n+1)=(u$(n+1)-32 ) Yn ^"k$=u$:1200:cx335O h>w$="Who are you writing to ?":5,2;:6000p rQ0,0;" Please  ENTER  his or her name ";v$:v$=""340T |+v$>90Zv$(1)=(v$-32 ) "k$=v$:1200:cx370r 500*a$(1) <500:n=14:w$,l,c:l,c;:6000p:n "What was the occasion ",5,2,"1 - Christmas",8,4,"2 - Birthday",10 ,4,"3 - Other",12 ,4 80,0;" Please  ENTER  1,2 or 3 ";a$ a$<"1"a$>"3"520 =a$="3"0,0;"What was it for ?";o$:550& G500:n=1̰a$(1)+1:o$,l,c:n:o$=o$(5) &P:3990:w$="What sort of present was it?":2,1;:6000p 090,0;" It was a...";p$:p$=""5600 :k$="present":2500 Na$="Dear "+v$+","+" Hope you are well."+"Thank you for the "+o$+" present." a$=a$+"It was "+d$+"." (a$=a$+"I have always wanted a "+p$+"."  2000 it=13:(1050+10 *t):w$,k$:5,2;:6000p:t=31020 A0,0;7;(w$(5));z$:z$=""1010  2500 t=1p$=z$:q$=d$::t t=2o$=z$:r$=d$::t :t $'"Where are you on holiday?","holiday" .)"What have you been doing ?","activity" 8" ","weather" L"a$=" Dear "+v$+","+" Having a " Q"a$=a$+q$+" time here in "+p$+"." Va$=a$+" The weather is "+d$ Xa$=a$+". I have been " [ a$=a$+o$ \a$=a$+" and it was " ]a$=a$+r$+"." ` 2000 bcz=0:18,15-k$/2;k$;20,5;" ! CHECK !  Is this right?" :0,0;" Please  ENTER  yes or no";j$ j$=""1210 9cx=0:j$(1)="Y"j$(1)="y"1245 -j$(1)"N"j$(1)"n"1210  cx=1 cz Xl$(32 ):18,15-k$/2;l$(̱k$):20,5;l$(26)   4: =23692\,502:21,0;:w$=s$:5800 w$=t$:5800 w$=x$:5800 w$=u$:5800 Nn=1̱a$:a$(n)="."a$(n)=","r=n:n=a$:s$=a$(r):a$=a$(r+1) n )s$<30:5900 ::2095/  \n=s$1-1:s$(n)=" "n<30r=n:n=1:w$=s$(r):s$=s$(r+1) *&n:1;:6000p:2070 /a$""2040 4%15;:w$="love":6000p: >#w$=n$:20-w$;:6000p H''' Rpr2200 \:0,0;"Would you like a copy of this? ";j$ fcz=1:1215 pcx=0 L0,0;" Like to write another ? ";j$:cz=1:1215 Icx=021,2;" Press any key to go on ":190 5xw$="Goodbye ":6:11 ;:6000p: 8:21,0;"This is what happens when I try." 2240:s$,v$,t$,p$,o$,n$ G"32 Windsor Gardens","London","Aunt Lucy","typing","Padingtun","home" Dt=13:2500 :n=1̺(*12 )+1:r$ n:t=1q$=r$ t=2d$=r$ t:x=1:1100L ;:L=17:C=0:4000:23692\,502 a2520 +(10 a$(1)="2"):n=16:w$:5;n;" ";:6000p::n Q"lovely","very nice","just what I wanted","beautiful","such a surprise","super" 5"awful","sunny","wet","cold","exciting","fantastic" '''' ?20,1;"Pick something to say about the ";k$;"."'' ?0,0;" Please  ENTER  a number 1 to 6 ";f$ f$<"1"f$>"6"2560 (r=f$(1) 2=2520 +(10 a$(1)="2"):n=1r:d$:n: l=18:c=0 L,C;0;"";L+1,C;"";L+2,C+3;"";L+3,C+3;"";L+2,C;1;"";L+3,C;"": :5000:n=115:g$:r=07:b g$+r,b:r:n "A",0,0,0,0,1,3,3,3,"B",0,3,15,31,255,255,255,255,"C",0,128,192,192,136,136,208,224 "D",3,1,1,1,0,0,1,7,"E",255,255,255,243,206,60<,248,252,"F",224,144,68D,194,3,3,12 ,16 "G",0,3,7,7,15,15,31,31,"H",192,192,240,240,248,248,127,190 "I",0,0,0,0,480,201,30,36$,"J",12 ,16,32 ,568,60<,255,25,1 "K",62>,63?,63?,31,7,7,7,7,"L",255,127,191,191,223,239,247,251,"M",255,255,255,255,255,252,252,252 Λ"N",72H,144,32 ,127,480,255,128,128,"O",1,1,1,255,12 ,255,0,0 1,20:  30-w$;:6000p::  w$=s$:1; p0R=1̱W$:W$(R);:.05|L,20:R: bxlcXSouthwest cornwallU31 December 1983# Zvery little if anythingKweatherF6VLondonT Aunt LucyPtypingO PadingtunNhomeQlovelyD very niceRsuperAS it was super.JnWGoodbye GO POSTHASTE ) )y*+ :"" 21,0;::"" %INK @I p??B| B8x<88x?'B<<0DDDD?|B@DDDD<DDo?8 @<<<8D 8D/8??<<||~<|>B<>BD??8x8@8D@BBB@BBbB|bH?D<xDBB<`>BB|< ???0?    @ 30Z@@ ?000 `?``4  ?`<`?`P+@ C@0O>`4<߿?߿ 0@` P (@  O0?~?00 @@@(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((88888888888888(((((((((000.(((((88888888888888((((((((000000((((88888888888888(((((((000000..(((88888888888888((((((11000..((((>>888888888888((((()))))1))))(((>>888888888888(((())))))11))))()11.((((((((((((((()))))))1))))))11.((((((((((((((((1111111))))))))((((((((((((((((())))))1)))))))((((((((((((((118888888888888888888888888888888888888888888888888888888888888888BPOSTHASTE  m$ "POSTHASTE" >>  MACBRIDE 1983 << FLT=0:21,0;" PLEASE STOP THE TAPE AND WAIT " J1,0:5000:1,20:300,:LT1000 ()LT=1:4:7:0: 2m0,9 ;6;"";1,9 ;" POSTHASTE ";2,9 ;"" 90Z)) -q:n$=n$(2):n$<19200 &q=1̱n$:n$(q)=" "s=q:q=n$ q:n$=n$(1)+"."+n$(s) 10 ,7;n$ 300,:1000 ,X.5,25:21,0;" Press any key to go on ":0: {4000:7:19,0;M$(18);M$(18);M$(18);" ":1,20:1,0 #20,5;"READY TO PLAY" TMT=0:VL=2:VC=29:v=0:BL=2:BC=2:BL,BC;"" *2,29;2;"":8 =""1020 &i$=:20,0;M$(18) >.73333V=1 V=12000 $ 3000 L 1020 2:VL,VC;" " #M$(VL-1,VC)="P"2110>  1400x+10 *M$(VL,VC) (VC=VC-3:VL,VC;"":21004  (VC=VC+3:VL,VC;"":21004 'VL=VL+3:VL,VC;"":21004  >.32060  % 2070 *>.32050 / 2070 4ZT=115:.01z# =,-10 :T:0:VL=17VC>263400H 9 >F0:20,0;"Emptying the box":M$(VL-1,VC)=" " H<vl=5vl=17vl,vc;"":1,0: R$vl,vc;"":1,0: .b=150:8:X=BL:Y=BC:BL,BC;" " Mi$="6"BL=BL+1+(M$(X,Y)="F"):B=149:M$(BL,BC)=" "3100 Mi$="7"BL=BL-1-(M$(X,Y)="F"):B=149:M$(BL,BC)=" "3100 Mi$="8"BC=BC+1+(M$(X,Y)="F"):B=150:M$(BL,BC)=" "3100 Mi$="5"BC=BC-1-(M$(X,Y)="F"):B=151:M$(BL,BC)=" "3100 M$(BL,BC)="G"3100 M$(BL,BC)"Q"3110& >>.320,0;"The gate is open":3110& A.5,10 :20,0;"This gate is locked now."  bl=x:bc=y &"mt=mt+(bl-x)+(bc-y):BL,BC;B 0.2~L,0 :#M$(BL-1,BC)="P"3450z D Hwcp=0:19,0;"Paddington has missed the post.":1,-10 :1,-20:3460 zjcp=1:19,0;" Paddington has caught the post":1,10 :1,20 s20,0;" He";(" only"mt<30);" walked ";mt*10 ;" metres.";(" "mt>29);" " Vcpmt<3021,0;" Thank you kindly for your help.":3500 Jcp21,0;" Can you get me to a closer box?":3500 :21,0;" Shall we try that again? " ]1,30:0,0;(" Would you like another game ";n$;"? ");a$ a$=""3500 ea$(1)="y"a$(1)="Y"21,0;" One moment please . ":30 -a$(1)"n"a$(1)"N"3500 90,0;"Goodbye and thanks for the game." 3550 2:5: AL=118:C=130:M$(L,C)=" "4040 M$(L,C)>"H"4030 CL,C;7-(3M$(L,C)="G")-(M$(L,C)="F");" ":4040 C7:L,C;0+(2M$(L,C)="P");(M$(L,C)+72H) C:L 16,27;"GPO"  :5000:n=118:g$:r=07:b G$+R,B:R:N "A",63?,38&,38&,254,254,255,60<,24,"B",254,34",170,42*,226,254,120x,480,"C",126~,102f,66B,126~,102f,126~,126~,36$ "D",127,68D,85U,69E,92\,127,30,12 ,"E",252,100d,100d,127,127,255,60<,24,"F",28,62>,28,62>,62>,62>,20,20 "G",524,568,124|,568,62>,568,36$,546,"H",44,,28,62>,28,124|,28,36$,108l "I",254,254,68D,124|,124|,124|,124|,124|,"J",165,165,255,165,165,255,165,165 1"k",8,12 ,242,129,242,12 ,8,0,"l",28,20,20,20,99c,34",20,8,"m",0,16,480,79O,129,79O,480,16,"n",16,40(,68D,198,40(,40(,40(,568 A"O",170,0,135,63?,191,31,159,31,"p",170,1,32 ,161,160,193,240,253,"q",159,31,191,15,159,1,128,85U,"r",248,241,192,225,248,241,0,85U mm$(18,30):L=21412 :C=229:M$(L,C)="A":M$(L+3,C)="B":C DR=02:M$(L+R,2)="C":M$(L+R,11 )="C":R:L DC=23296:L=513 :M$(L,C)="C":L:C pgL=613 :C=222:M$(L,C)="G":C:C=412 8:M$(L,C)="F":C:L z>C=521:m$(9 ,c)="F":M$(10 ,C)="F":C +N=116:G$,L,C:M$(L,C)=G$:N "Q",9 ,22,"P",1,14,"P",4,17,"Q",6,4,"Q",6,12 ,"Q",10 ,22,"Q",13 ,4,"Q",13 ,12 ,"P",13 ,20,"P",16,14 "P",16,26,"E",2,11 ,"E",14,11 ,"D",5,23,"A",16,23,"A",15,23 d X<L=118:C=130:L,C;M$(L,C):C:L #(M(23730\+256*23731\)-(23653e\+256*23654f\) bU ppNNatv4xyI8AyGr! CAAAAAAAACAAAAAAAAAAAAAAAAAA C C C C BBBBBBBBBBBBBBBBBBBBBCBBBBBC GGFGGGGGGGFGGGGGGGGGGC C GG C C C C C C C C C C C C C C CAAAAAAAACAAAAAAAAAAAAAAAAAA C C C C BBBBBBBBBBBBBBBBBBBBBBBBBBBB