BACKUP TbkmagicTMODERNAFJUMCOMPFHORIZONFGOTHIC FCHUNKY FHELP ?SIMPLE WSIMPLE CSIMPLE KSCENE WSCENE CSCENE KHOUSE WHOUSE CHOUSE KSTARTERDPRINTER$CKED $bonepipTFONTED $HELPED $DCODE $DICTED $PDMENU $!BOOT $T1S*}Sy0/0/$T0/0/ J0/0/$%0/0/$0/0/$|,;,;d  ,;,;  ,;,;B  ,(̉#̂#!`S]#NE#/ ,#" #>CHAIN"PDMENU" 00 *LOAD SWCL2 8BA0 *LOAD SWCH1 9191 *LOAD SWCH2 9970 *LOAD SWCH3 A4C0 *LOAD SWCH4 AE7C *LOAD FONT B630  * PenDown *  * UTILITIES DISC MENU *  * version 1.10 * ( * (C) Logotron, 1986 * 27 <23,1,0;0;0;0;:*FX4,1 F-3,1)"pppppppppppppppppppppppppppppppp" P&3,2)" h,,,,,,,4 "(14)"j" Z*3,3)"<.,,l 0))((g%=138)(c%<4)) 6,c%+15)" ";33,c%+15)" " (g%=139)(c%>0):c%=c%-1 (g%=138)(c%<4):c%=c%+1 " g%=13 ,23,1,1;0;0;0;:*FX4,0 6&(c%+1) D@A,DJA,DTA,D^A,DhA @=&5400:"DICTED" J "HELPED" T=&1100:"FONTED" ^ "CKED" h"PRINTER" rc Dictionary Editor,HELP File Editor,Font Editor,Concept Keyboard Editor,Serial Printer Program rSR dicsave:LDA#4:STA wsflg &JMP refresh 0 .dicq :$EQUB 4:EQUS"Alphabetic list":BRK DEQUB 7:EQUS"Group list":BRK N#EQUB 5:EQUS"Add a new word":BRK X"EQUB 5:EQUS"Delete a word":BRK b'EQU  * PenDown *  * DICTIONARY EDITOR *  * version 1.10 * ( * (C) Logotron, 1986 * 27:columns=80 <intro:err= F error:DP@ P:m%=menu Zm%=0 cat dm%=1 new nm%=2 load x(f$="")(m%<>16) m%=0 m%=3 rename m%=4 save m%=5 all m%=6 alpha m%=7 group m%=8 addword m%=9 delword m%=10 addgroup m%=11 delgroup m%=12 divide m%=13 combine m%=14 printalpha m%=15 printgroups  m%=16:26::*FX4,0   intro "*LOAD DCODE 2000 , osblock 12, osbuff 8 6addword=&2000:search=&209D @rfp=&20CC:delword=&20FC J%wcount=&2221:word=&2300:osc=&2320 T!nfb=&2C00:dtL=&2C02:dtH=&2C1C ^res1=&70:res2=&71 h#ad1=&72:ad2=&74:ad3=&76:ad4=&78 rrg1=&7A:rg2=&7B:rg3=&7C | f$="":top%=&2C36:ot%=0:tw%=0 23,1,0;0;0;0;:*FX4,1 -3,2)"pppppppppppppppppppppppppppppppp" &3,3)" h,,,,,,,4 "(14)"j" *3,4)"<.,,l 23,1,0;0;0;0;:box("MENU") H6tbC:c%=016:m$:6,c%+1)""((27-(m$))2)m$: RK err <>17 0,19)""157"";:28,3,24,39,24::28,0,24,39,5,7:err= \ c%=0: f-35,c%+1)156;4,c%+1)""157"":*FX15,1 pJg%=:((g%=139)(c%>0))((g%=138)(c%<16)) 4,c%+1)" ";35,c%+1)" " z(g%=139)(c%>0):c%=c%-1 (g%=138)(c%<16):c%=c%+1 0,19)(39);  g%=13  Catalogue disc,Start a new dictionary,Load a dictionary from disc,Change dictionary filename,Save dictionary on disc,See all the words,See an alphabetic list,See a group list,Add a word,Delete a word  Add a group of words,Delete a group of words,Divide a group,Combine two groups,Print-out (alphabetic),Print-out (groups),Finish using this program 23,1,1;0;0;0;:=c% ݤgetword(gx%,gy%,gw$) 6gy%=100 gx%)""gw$":"; gx%,gy%)""gw$":"; dline$="":::g%=:(g%=13)(g%=32)(g%=39)(g%=45)((g%>64)(g%<91))((g%>96)(g%<123))(g%=127) L(((g%<65)(g%=127))((line$)=0))((g%<>13)(g%<>127)((line$)=20)) 7 S(g%<>13)(g%<>127)((line$)<20)((g%<65)((line$)=0)) line$=line$+(g%):g% 7(g%=127)((line$)>0) line$=line$,(line$)-1):g% (g%=13)((line$)>0)  =line$  ݤfound A search:?res1=0 message("That word not listed",102):= = $space(sx%,sy%) .'sx%,sy%)"PressSPACE ";:=32: 8ݤyn(yx%,yy%,yn$) BJyx%,yy%)""yn$" (Y/N) ";::g%=32:(g%=110)(g%=121):(g%&DF):=g% Lݤpos(ad%,off%) V=?ad%+(ad%?1*256)+off% ` all jbox("ALL THE WORDS"):14 t}':c%=6590:?word=c%:word?1=13: rfp:ad1?1>0 len%=0::w$=$pos(ad1,0):pword(w$,40):pnext(ad1,ad2,(w$)+1):ad1?1=0:' ~:'':15:space(0,18):  alpha ebox("ALPHABETIC LIST"):0,3)"Which letter?";::g%=223:(g%>64)(g%<91):g%:$word=g%: rfp ad1?1=0 message("No words listed beginning with"+g%,6) :14::w$=$pos(ad1,0):10)w$:pnext(ad1,ad2,(w$)+1):ad1?1=0:'':15:space(0,18)   group &5400 message("Dictionary full",6): < addword:?res1=&FF message("Word already listed",6):  ?tw%=tw%+1:top%=top%+($word)+5:?nfb=top%256:nfb?1=top%256 W?pos(ad3,?rg1)=?ad3:?pos(ad3,?rg1+1)=ad3?1:yn(0,6,"Add word to a group?")=110 7$word=getword(0,9,"Type existing word"):笤found (~?pos(ad3,?rg1)=?pos(ad1,?res2+3):?pos(ad3,?rg1+1)=?pos(ad1,?res2+4):?pos(ad1,?res2+3)=?ad3:?pos(ad1,?res2+4)=ad3?1: 2 delword &5400 message("Dictionary full",102):$word="F" n*(($word="F")($word="f")) addtolist xH($word="F")($word="f"):?(top%-2)=ot%256:?(top%-1)=ot%256:ot%=0: addtolist  addword:?res1=&FF message("Word already listed",101): tw%=tw%+1:top%=top%+($word)+5:?nfb=top%256:nfb?1=top%256:?(top%-2)=?nfb:?(top%-1)=nfb?1: delgroup Kbox("DELETE A GROUP"):$word=getword(0,3,"Type group word"):笤found 7nw%=?ad1+ad1?1*256:c%=0:''"Words to be deleted:"' :c%=c%+1:w%=?ad1+ad1?1*256:10)$w%:?ad2=?pos(ad1,($w%)+3):ad2?1=?pos(ad1,($w%)+4):?ad1=?ad2:ad1?1=ad2?1: nw%=?ad1+ad1?1*256 ,'':yn(0,18,"Delete this list?")=110 v''"Please wait ";:tw%=tw%-c%::w%=nw%:nw%=?pos(ad1,($w%)+3)+?pos(ad1,($w%)+4)*256:nw%>w% nw%=nw%-(($w%)+5) Y?res2=($w%): delword:?ad1=nw%256:ad1?1=nw%256:c%=c%-1:c%=0:top%=?nfb+nfb?1*256:  combine lbox("COMBINE GROUPS"):0,3)"Type a word from each group":$word=getword(0,6,"First group"):笤found Ykw%=?ad1+ad1?1*256:w%=pos(ad1,?res2+3):$word=getword(0,9,"Second group"):笤found nw%=?ad1+ad1?1*256::nw%=?(nw%+($nw%)+3)+?(nw%+($nw%)+4)*256:(nw%=?ad1+ad1?1*256)(nw%=kw%):nw%=kw% message("Both words already in same group",12): y?ad2=?w%:ad2?1=w%?1:?w%=?pos(ad1,?res2+3):w%?1=?pos(ad1,?res2+4):?pos(ad1,?res2+3)=?ad2:?pos(ad1,?res2+4)=ad2?1:  divide Hbox("DIVIDE A GROUP"):$word=getword(0,3,"Type keyword"):笤found "''"Remaining words in group will be"'"presented in turn. For each one:"'" RETURNkeeps it in group with keyword,"'" DELETEtransfers it to second group" ,%kw%=?ad1+ad1?1*256:w%=kw%:first= 6w:nw%=?pos(ad1,($w%)+3)+?pos(ad1,($w%)+4)*256:?ad1=nw%256:ad1?1=nw%256:'5)$nw%" ";::g%=:(g%=13)(g%=127) @g%=13 w%=nw% transfer J6kw%=?pos(ad1,($w%)+3)+?pos(ad1,($w%)+4)*256: Ttransfer ^g11:5)(13)$nw%;20-($nw%)," ");:?(w%+($w%)+3)=?(nw%+($nw%)+3):?(w%+($w%)+4)=?(nw%+($nw%)+4) hfirst first ?(nw%+($nw%)+3)=?(kw2%+($kw2%)+3):?(nw%+($nw%)+4)=?(kw2%+($kw2%)+4):?(kw2%+($kw2%)+3)=nw%256:?(kw2%+($kw2%)+4)=nw%256 r?ad1=w%256:ad1?1=w%256: | first Hkw2%=nw%:?(nw%+($nw%)+3)=nw%256:?(nw%+($nw%)+4)=nw%256:first=: printalpha +box("ALPHABETIC PRINT-OUT"):笤ready 2,21:"DICTIONARY: "f$::c%=6590:?word=c%:word?1=13: rfp:ad1?1<>0 len%=0::w$=$pos(ad1,0):pword(w$,columns):pnext(ad1,ad2,(w$)+1):ad1?1=0:'  :6,3: pword(w$,col%) Jlen%+(w$)+10 ?(top%-2)=ot%256:?(top%-1)=ot%256:ot%=0 0err=:6,3: :message(me$,my%) D,my%>99 mc%=1 my%-100:: 0,my%); N""157""me$:7 Xmy%<>101 space(0,16) b le 1;tortoise D;tu O , p`r ȱrArtsutrȱtsL ut ,t,ȑtLv {,,,,Lv ,r,rrs,w,v#v rvȥsvȄzp` pq`r ȱr愈rrsL tu 8A{,r,s`r`)߅|#`)|`qȘi|rvsw " " " "rtȱruȱrxȱryȩ6v,w,v,Hv " tvȥuvLm! " " xvȥyvL! "ȘevvwiwLA!,s),r t,u,L!,8|,,,˥re|tsiutrsus,,8|,,,`ȱvsvr`v8|vȱvv`pq6r,sr,s,`r pqrsP dw5 .dw12:LDX#0 .dw13:LDA dtH,X:CMP ad1+1 BCC dw15:BNE dw14 LDA dtL,X:CMP ad1 BCC dw15:BNE dw14 LDA ad2:STA dtL,X  LDA ad2+1:STA dtH,X:JMP dw15 .dw14  * PenDown *  * HELP FILE EDITOR *  * version 1.10 * ( * (C) Logotron, 1986 * 27:=&4FF0 <intro: error:DF@ F%choice assemble disassemble P Z intro d. head$(9),osc% 10,ob% 20,fn% 10,osbuff% 8 nerr=0:23,1,0;0;0;0; x-3,2)"pppppppppppppppppppppppppppppppp" &3,3)" h,,,,,,,4 "(14)"j" *3,4)"<.,,l 47+min%)(g1%<49+max%):g1% -:g2%=:(g2%=13)(g2%=127):g2%=127 g2% g2%=13:=g1%-48 disassemble %:0,2)"HELP FILE DISASSEMBLY:" finsert(1,1):oscli("DR."+(sd%)):openin:''"Page headings:":c%=1np%:" ";c%;"."head$(c%-1):  n%=1np% ,n%>1 insert(n%,1):oscli("DR."+(sd%)) {ptr%=?(&C02+n%)+&100*?(&C0D+n%)+&10000*?(&C18+n%):flen%=?(&C03+n%)+&100*?(&C0E+n%)+&10000*?(&C19+n%)-ptr%:readwrite(3) 2insert(n%,2):oscli("DR."+(dd%)):save(n%): 1#ch%:''"HELP FILE DISASSEMBLY COMPLETED": assemble &,:0,2)"HELP FILE ASSEMBLY:":headings 0F"Remember, thesourcedisc should"'"contain the PenDown files:" :pn%=1np%5:c2%=n%+4:c2%=-c2%*(np%>c2%)-np%*(c2%>=np%):c1%=n%c2%:"HELP";c1%;",";::(127*-(c2%=np%)):: D n%=1np% N0insert(n%,1):oscli("DR."+(sd%)):load(n%) X5insert(n%,2):oscli("DR."+(dd%)):n%=1 openout breadwrite(1):ptr%=ptr%+flen%:#ch%=3+n%:#ch%,ptr%&100:#ch%=14+n%:#ch%,(ptr%&10000)&100:#ch%=25+n%:#ch%,ptr%&10000: l.#ch%:''"HELP FILE ASSEMBLY COMPLETED": vݤdisccheck(f$) 1osbuff%?8=13:!(ob%+9)=0:A%=8:X%=ob%:Y%=X%256 (:!(ob%+1)=osbuff%:!(ob%+5)=1:&FFD1 8(!(ob%+5)=1)($(osbuff%+1)=f$+7-(f$)," ")):*DIR $ =(!(ob%+5)=0)  clear c%=&5000&7BFF4:!c%=0:: oscli($osc%) X%=osc%:Y%=X%256:&FFF7: load(l%) O?ob%=fn%256:ob%?1=fn%256:!(ob%+2)=&FFFF4FFE:c%=(ob%+6)(ob%+&11):?c%=0: 6$fn%="T.HELP"+(l%):A%=&FF:X%=ob%:Y%=X%256:&FFDD $(?&4FFE<>26) err=2:error:DF@ .?(&4FFE+!(ob%+&A))=&FF:flen%=!(ob%+&A)-1: save(s%)  *DIR T hs%=1 disccheck("HELP1") ''"There are some HELP pages already on":笤yn("this disc") #ch%:DF@  h?ob%=fn%256:ob%?1=fn%256:!(ob%+&A)=&FFFF4FFE:!(ob%+&E)=&FFFF4FFF+flen%:c%=(ob%+2)(ob%+9):?c%=0: *?&4FFE=26:?&4FFF=255 46$fn%="T.HELP"+(s%):A%=0:X%=ob%:Y%=X%256:&FFDD: >readwrite(rw%) H]?ob%=ch%:!(ob%+1)=&FFFF5000:!(ob%+5)=flen%:!(ob%+9)=ptr%:A%=rw%:X%=ob%:Y%=X%256:&FFD1: Rinsert(i%,I%) \(i%>1)(nd%=2) f6I%=1 i$="source":d%=sd% i$="destination":d%=dd% pG'"Insert";i$;"disc in drive";d%'"then pressRETURN ";:*FX15,1 z =13:  openout  *DIR ? Vdisccheck("HELP") ''"There is a HELP file already on this":笤yn("disc") DF@ jch%=("?.HELP"):#ch%,("S"):#ch%,("H"):#ch%,np%:#ch%,0:#ch%=14:#ch%,1:#ch%=25:#ch%,0:#ch%=36 jc%=1np%:#ch%,12-((head$(c%-1))2):cc%=1((head$(c%-1))):#ch%,(head$(c%-1),cc%,1))::#ch%,0: ptr%=&100:  openin dch%=("?.HELP"):c%=0255:?(&C00+c%)=#ch%::(?&C00<>("S"))(?&C01<>("H")) err=1:error:DF@ c%=&C24&CFF:?c%=0 ?c%=13 N:np%=?&C02:cc%=&C25:c%=1np%:head$(c%-1)=$cc%:cc%=cc%+(head$(c%-1))+2:   ݤyn(yn$) O""yn$". Continue? (Y/N) ";:7::g%=&DF:(g%=78)(g%=89):(g%):=(g%=89) headings b'"How many help pages in this file? "::0,5)(38):0,5)"(1 to 10)"np%:(np%>0)(np%<11) #0,7)"";14,"|");22,",");"|" $Yc%=1np%:head$(c%-1)="":0,c%+7)"Heading ";(-32*(c%<10));c%;" ";(20);"": .&"";14,"/");22,",");"/";:*FX4,1 8'"Type headings (maximum of 20 letters"'"each). Move cursor up and down with"'"cursor keys. PressCTRL+Fwhen you"'"have finished.":*FX15,1 B31,16,8:h%=0::g%= L*((g%=13)(g%=138))(h%0) h%=h%-1 `H(g%=127)((head$(h%))>0) head$(h%)=head$(h%),(head$(h%))-1):127 jC(g%>31)(g%<127)((head$(h%))<20) head$(h%)=head$(h%)+g%:g% t* 31,16+(head$(h%)),8+h%:g%=6:*FX4,0 ~31,0,14+np%,10:  error :#ch%: =17 /0,6)""157"";:err=0 28,3,6,39,6::26 +err=1 "Not a valid PenDown HELP file" 3err=2 "Incorrect page width in HELP page ";n% '7:0,16)"PressSPACE";:=32: (2<FPZdnx  * PenDown *  * FONT EDITOR *  * version 1.11 * ( * (C) Logotron, 1986 * 2h7:=&2F30: C$(3),L$(6),M%(5),X% &20,O% 8:W%=:R%=:T%=0:C%=06:L$(C%)::C%=05:M%(C%)::*FX4,1 32)(G%<127):CH$=(G%):CH$; p:U%=:(U%=13)(U%=127):U%=13:" ASCII=";G%;:su:W% bl:0,31)"No more room - press ESCAPE";:7: d : Ud:no: x1%,y2%:J%=0:K%=0:D%=:N%=:0,0)"DRAW"37,0)"OFF":cur::cur:*FX15,1 9D%N% fi(1):b%=B%+(K%8)*S%+J%:?b%=?b%(2^(7-K%8)) B(D%)N% fi(0):b%=B%+(K%8)*S%+J%:?b%=?b%(255(2^(7-K%8))) {cur::G%=:(G%=68)(G%=100)(G%=69)(G%=101)(G%=32)(G%=13)((G%>135)(G%<140)):(G%=68)(G%=100) D%=:0,0)"DRAW " ((G%=69)(G%=101) D%=:0,0)"ERASE" /G%=32 N%=N%:37,0)"OFF":N% 37,0)" ON" G%<>13 m G%=13:bl: bl:0,31)(39);: Pl:C$(0)<>"" o("LOAD F."+C$(0)+" 2F30") ms("No font filename given"): K(?&2F39<>("S"))(?&2F3A<>("F")) f:ms("Not a valid PenDown font"): ^T%=?&2F36+(?&2F37*256):S%=?&2F31:C$(1)=(S%24):C$(2)=(?&2F33-72):C$(3)=((?&2F38+6)256) "?H%=48+(16*(S%=24))+(32*(S%=12)):S%=12 l$="9D0" l$="24D0" ,in:dc:7: 6+s:笤s ms("No characters defined"): @iu:C%=-1::C%=C%+1:(C%=3)(C$(C%)=""):((C%=3)(C$(3)<>"")) ms("Control information incomplete"): Jhd 0,11)"Replace old file? (Y/N) ";:7:on::U%=&DF:(U%=78)(U%=89):no:0,11)(26):U%=78 TA?&2F39=83:?&2F3A=70:s o("SAVE F."+C$(0)+" 2F30 +"+l$): ^,ݤd:O%?8=13:X%!9=0:A%=8:Y%=X%256:*DIR F hM:X%!1=O%:X%!5=1:&FFD1:(X%!5=1)($(O%+1)=C$(0)+7-(C$(0))," ")):*DIR $ r =(X%!5=0) |g:x1%=(1280-(S%*20))/2:x2%=x1%+S%*20:y1%=63+(960-(H%*20))/2:y2%=y1%+H%*20:x%=x1%x2%20:x%,y1%:x%,y2%::y%=y1%y2%20:x1%,y%:x2%,y%:: 0cur:2,20,-20:0,0,20:2,-20,-20:0,0,20: Hfi(F%):0,F%:0,4,-4:0,0,-12:81,12,12:81,0,-12:0,-16,16:0,1: sdi:0,0)"WAIT":J%=0S%-1:K%=0H%-1:b%=B%+(K%8)*S%+J%:((?b%)(2^(7-K%8)))<>0 x1%+J%*20,y2%-K%*20:fi(1) !,:0,0)" ":7:x1%,y2%: /m:cur:(G%=136)(J%<>0) 0,-20,0:J%=J%-1 ((G%=137)(J%<>S%-1) 0,20,0:J%=J%+1 )(G%=138)(K%<>H%-1) 0,0,-20:K%=K%+1 %(G%=139)(K%<>0) 0,0,20:K%=K%-1  cur: *su:Q%=&2F80+(CH$):?Q%=0 a: p: Ka:A%=s:?(Q%-&60)=?&2F36:?Q%=?&2F37:B%=T%:B%>=&2F30+("&"+l$) W%=: FT%=T%+S%*?&2F32:?&2F36=T%256:?&2F37=T%256:A% yn("Copy") cy:  cl: Lp:B%=?(Q%-&60)+?Q%*256::yn("Edit") di:: 7:yn("Sure"):cl: *cl:C%=B%(B%+S%*?&2F32-1):?C%=0:: ݤyn(yn$):*FX15,1 &P28,31)yn$;"? (Y/N)";::G%=32:(G%=110)(G%=121):28,31)(11);:=(G%=121) 0cy::7::28,31)"What? ";:8::G%=:(G%>32)(G%<127):ch$=(G%):ch$;::U%=:(U%=13)(U%=127):U%=13:P%=?(&2F20+(ch$))+?(&2F80+(ch$))*256:P%>0 :@28,31)(11);:C%=0(S%*?&2F32-1):?(B%+C%)=?(P%+C%)::di: Do($X%):Y%=X%256:&FFF7: Nno:23,1,0;0;0;0;: Xon:23,1,1;0;0;0;: bi:no:3,2)"pppppppppppppppppppppppppppppppp"3,3)" h,,,,,,,4 "(14)"j"3,4)"<.,,l "" inf$=L$((C$(C%))) inf$;(10-(inf$));:: Ydc:C%=33126:((C%-33)12)*3+2,(C%-33)12+15)(129-6*(?(&2FA0+C%-32)<>0))C%;:: Bݤp(p%):p%=0 =23+(C$(0)) =23-(L$((C$(p%))))*(C$(p%)<>"") 'ݤi(I%,I$):ins%=0:V%=0 L%=7 L%=1 (I%=138)(v=7) v=v+2 .((I%=13)(I%=138))(v<7) v=v+1:p=p(V%+1) $(I%=139)(v>4) v=v-1:p=p(V%-1)  I%=127 del:=I$ i(V%=0)(p<30) ins%="ABCDEFGHIJKLMNOPQRSTUVWXYZ-0123456789",(I%)):ins%>0 I%:p=p+1:I$=I$+(I%):=I$  /V%=1 ins%="SML",(I%)):ins%>0 in%=ins%-1 *.V%=2 ins%="NC",(I%)):ins%>0 in%=ins%+2 4.V%=3 ins%="SC",(I%)):ins%>0 in%=ins%+4 >=(ins%>0)(C$(V%)="") L$(in%);:p=23+(L$(in%)):I$=(in%) H=I$ Rdel:p<24 \V%=1 s f&V%=0 127:p=p-1:I$=I$,(I$)-1): pp=23:p,v)(10);:I$="": z:ݤs:C%=&2FA0::C%=C%+1:(C%=&3000)(?C%>0):=(C%<&3000) !q::E%<5 M%(E%+1),9)"" 8M%(E%),9)"":G%=:ce:(G%=136)(E%>0) e:E%=E%-1 (G%=137)(E%<5) e:E%=E%+1 (G%=13)(E%=0) en (G%=13)(E%=1) l (G%=13)(E%=2) s (G%=13)(E%=3) v (G%=13)(E%=4) n (G%=13)(E%=5) Z%= -(G%=139) ed Z%:G%=139 e:p=p(3):v=7  E%=0: e:M%(E%),9)" ": ,v:u:C%=&3000 T%:?C%=?C%255::7: 2en:C$(1)="" ms("Character size not set"):  u:ed=: Nu:S%=12*2^((C$(1))):L%=10*(4(S%12)):(C$(2)="4")(C$(1)<>"0") L%=L%*2 $i?&2F30=L%:?&2F31=S%:?&2F32=S%6+2*(S%=48):H%=48+(16*(S%=24))+(32*(S%=12)):S%=12 l$="9D0" l$="24D0" .S?&2F33=(C$(2))+72:?&2F34=65:?&2F35=8:?&2F38=(C$(3))-6:笤s T%=&3000+S%*?&2F32 85?&2F40=0:?&2FA0=&30:?&2F36=T%256:?&2F37=T%256: B,ce:J%=:K%=:0,11)(39);:31,J%,K%: Ler:<>17 R%=: V&PHA:STX&76:TYA:ASLA:ASLA:ASLA:ASLA H%CLC:ADC&76:TAX:LDA KaL:STA tabL,X R%LDA KaH:STA tabH,X:LDX&76:PLA:RTS \ .delword fSTA&76:TYA:PHA:LDY#0 p.dw0:LDA tabH,Y:CMP KaH zBCC dw2:BNE dw1 LDA tabL,Y:CMP KaL BCC dw2:BNE dw1:LDA#0 !STA tabL,Y:STA tabH,Y:BEQ dw2 .dw1:LDA tabL,Y SEC:SBC&76:STA tabL,Y LDA tabH,Y:SBC#0:STA tabH,Y .dw2:INY:CPY#&80:BNE dw0 STX KaL:PLA:STA KaH #.dw3:LDY&76:LDA (KaL),Y:BEQ dw4 LDY#0:STA (KaL),Y #INC KaL:BNE dw3:INC KaH:BNE dw3 .dw4:LDY#0:STA (KaL),Y:RTS  .search  LDX#&7F #.se1:LDA tabH,X:CMP KaH:BNE se2 LDA tabL,X:CMP KaL:BEQ se3 $.se2:DEX:BPL se1:TXA:RTS ..se3:LDA#0:RTS:] 8 P%=&C00 B [OPT 0 L .bootck VLDX#&D0:LDY#&C:JSR&FFF7 `LDX#&E8:LDY#&C:JSR&FFF7 jLDA#resetck 256:STA akv tLDA#resetck 256:STA akv+1 ~ .resetck LDA#ck0 256:STA irqv LDA#ck0 256:STA irqv+1 LDA#timer 256:STA ev LDA#timer 256:STA ev+1 LDA#14:LDX#4:JSR&FFF4 LDA#0:STA &52:STA&FE62 LDA#2:STA&FE6B LDA#16:STA&FE6D LDA#&90:STA&FE6E:RTS .capsflag:BRK  .ck0:SEI LDA&FC:PHA:TXA:PHA:TYA:PHA LDA &52:BNE ck6  LDA#delay:STA &52 LDA&FE60:#&7F:TAX LDA tabH,X:BEQ ck6:STA &51 (LDA tabL,X:STA &50:LDY#0 2#.ck1:LDA (&50),Y:CMP#13:BEQ ck6 <CMP#1:BNE ck2:LDA capsflag F#&FF:STA capsflag:BNE ck6 P.ck2:CMP#2:BNE ck3:LDA#13 Z%.ck3:LDX capsflag:BEQ ck5:BMI ck4 d!CMP#65:BCC ck5:CMP#91:BCS ck5 nA#&20:BNE ck5 x.ck4:CMP#97:BCC ck5 CMP#123:BCS ck5:#&DF .ck5:TAX:TYA:PHA:TXA TAY:LDA#&99:LDX#0:JSR&FFF4 PLA:TAY:INY:BNE ck1 .ck6:LDA&FE60 PLA:TAY:PLA:TAX:PLA:STA&FC  CLI:RTI  .timer LDA &52:BEQ tim1:DEC &52 .tim1:RTS:] :  ݤcommand M"Command?";::Z%=:(Z%>143)(Z%<154):pos=:colkeys:31,pos,:=Z%-144 oscli(O$) #$O%=O$:X%=O%:Y%=O%256:&FFF7:  curson "23,1,1;0;0;0;: , cursoff 623,1,0;0;0;0;: @ list J笤com("List words") TQ?words<>0 "(PressSHIFTto scroll list)" message("No words in memory"): ^14:L%=words:C%=1: h5?KaL=(L%-words+&580)256:?KaH=(L%-words+&580)256 r>(?L%>31)(?L%<127) "";C%;(134-(search)&100)str($L%) |&(?L%>0)((?L%<32)(?L%>126)) lfk 'L%=L%+($L%)+1:C%=C%+1:L%=T%:15:  lfk 6l$=str($L%):(search)&100=0 l$=""+l$,(l$)-1) "";C%;l$:  ݤcom(C$) /C$" ";::g%=:(g%=13)(g%=127)::=(g%=13)  add 笤com("Add a word") W$=input("New word") PT%+(W$)0 D%=C%:C%=C%+($C%)+1 (?C%=0)($D%=W$) &*$D%<>W$ message("Word not listed"): 0rK%=D%-words+&580:?KaL=K%256:?KaH=K%256:A%=($D%)+1:X%=D%256:Y%=D%256: delword:T%=?KaL+?KaH*256:colkeys: :keyboard D11,2)"CONCEPT KEYBOARD" N!9,3)"h,,,,,,,,,,,,,,,,,,4" X&C%=411:9,C%)"j";(16);"5": b"9,12)"*,,,,,,,,,,,,,,,,,,%" l v colkeys >vpos=:cursoff:26: colkeys:window:31,0,vpos:curson:  ݤckey 4?&FE62=0:?&FE6B=2:?&FE6D=16:=(?&FE60 127) =-1  window 28,0,24,39,14:  overlay 笤com("Design overlay") .?words=0 message("No words in memory"): ("(PressSPACE BARto skip a word)" IW%=words::setword:W%=W%+($W%)+1:W%=T%:message("No more words"):  setword ?KaL=(W%-words+&580)256:?KaH=(W%-words+&580)256:(search)&100=-1 colkeys:w$=str($W%):"Word:"(-135*((w$,1))<127))w$:keyblock(W%-words+&580)  keyblock(Ka%)  !?&FE6D=16:"First keypad? "; I:K1%=ckey:K2%=(-99):(K1%<>-1)(K2%=):K2% 0,)(15);:31,0,:  ;vpos=:26:A%=("*"):X%=K1%16:Y%=K1%16: col2:window *631,20,vpos:"Last keypad? ";::K2%=ckey:K2%<>-1 43?K1c=K1%16:?K1r=K1%16:?K2c=K2%16:?K2r=K2%16 >(?K1c>?K2c K%=?K1c:?K1c=?K2c:?K2c=K% H(?K1r>?K2r K%=?K1r:?K1r=?K2r:?K2r=K% R[?KaL=Ka%256:?KaH=Ka%256:vpos=:cursoff:26: setkeys:window:31,0,vpos,10:curson: \ error f;colkeys::<>17 "";:28,3,14,39,14::7:window: p zmessage(m$) "";m$: clearkeys 笤com("Clear some keys") keyblock(0):colkeys: clearboard Mcursoff:vpos=:26:C%=411:12,C%)(16)::window:curson:31,0,vpos: cleartab C%=tabL tabL+&FF:?C%=0:  clearwords #C%=words words+639:?C%=0::  new !笤com("Start new overlay") Kcleartab:clearwords:clearboard:T%=words:message("Memory cleared"):  testkey $笤com("Test one Concept key") $4?&FE6D=16:"Press keypad:";::K%=ckey:K%<>-1 .0 testkeys(K%): message("Key undefined") 8 Btestkeys(X%) LLtk%=((?(tabH+X%))*256+?(tabL+X%)-&580+words):(?tk%>31)(?tk%<127) " "; VMstr($tk%)" ";:pos=:vpos=:cursoff:26: testkeys:window:31,pos,vpos ` curson: j testall t$笤com("Test all Concept keys") ~"(PressSPACEafter each word)":C%=testtab testtab+&7F:?C%=0::K%=0&7F:(?(testtab+K%)=0)(?(tabH+K%)>0) testkeys(K%):=32: : ݤname #:"Filename?"N$:(N$)<8:=N$ save 笤com("Save overlay") 0T%=words message("No overlay in memory"): EF$=name:"Insert disc to save overlay,"'"thenRETURN ";:=13 `disccheck '"Replace old file? (Y/N) ";:7::g%=&DF:(g%=78)(g%=89):(g%);:g%=78 : ?C%=words-1::C%=C%+1:(C%=T%)(?C%=1):C%<>T% ?capsflag=&7F X$&CD0="LOAD C."+F$+" A00":$&CE8="LOAD W."+F$+" 580":oscli("SAVE K."+F$+" C00 +100") Roscli("SAVE C."+F$+" A00 +100"):oscli("SAVE W."+F$+" "+~words+" "+~T%):: ݤdisccheck 2OB%?8=13:!(O%+9)=0:A%=8:X%=O%:Y%=O%256:*DIR K ":!(O%+1)=OB%:!(O%+5)=1:&FFD1 3(!(O%+5)=1)($(OB%+1)=F$+7-(F$)," ")):*DIR $ =(!(O%+5)=0) ( load 2笤com("Load overlay") 127) out$=fkeys(G%):str(out$); n4(nm%)(G%<127)(G%>31) out$=out$+(G%):(G%); xB(G%=127)nm% (in$)+3,)(13);:31,(in$)+3,:nm%=:out$="" 3(G%=127)(out$<>"") 127:out$=out$,(out$)-1) %(G%=13)(nm% out$<>"")::=out$ ݤfkeys(f%) (f$="":(f%>159)(f%<165) f$=(f%-21) (f%>127)(f%<138) f$=(f%) f%=165 f$=(9) f%=166 f$=(127) f%=167 f$=(2) f%=168 f$=(27) f%=169 f$=(1) f$<>"" nm%= =f$ ݤstr(S$) S%=(S$,1)) .(S%>138)(S%<144):=strsub(fkey$(S%-139)) S%=9:=strsub("TAB") "S%=127:=strsub("DELETE") ,S%=2:=strsub("RETURN") 6S%=27:=strsub("ESCAPE") @S%=1:=strsub("CAPS LOCK") JS%<128:=S$ T(S%<138:="f"+(S%-80)+" " :="" ^ݤstrsub(s$) h=""+s$+" " @  * PenDown *  * SERIAL PRINTER PROGRAM *  * version 1.10 * ( * (C) Logotron, 1986 * 27:=&5000 < intro F error:DP@ P getcodes Z file:: d intro n23,1,0;0;0;0; x-3,2)"pppppppppppppppppppppppppppppppp" &3,3)" h,,,,,,,4 "(14)"j" *3,4)"<.,,l max%) I%=:"Number out of range - please try again" r I%:=i% | file X''"Please insert disc for printer file in"'"disc drive, then pressRETURN":=13 #?&5000=b%:?&5001=rx%:?&5002=ry% *SAVE ?.P 5000 +3   error R<>17 :0,6)""157"";:28,3,6,39,6::26,7:0,16)"PressSPACE ";:=32  SbL,X:CMP KaSt)V4 )jORHD;one P=>,two DF,three 9P,four ,Y,five ?b,six /-j,seven 9-t,eight E-~,nine P-,ten TG,eleven D,twelve ,,thirteen }7,fourteen -,fifteen %-,twenty m-,hundred :<,thousand F,,million .,first Y,-second 5-third P<-fourth -%-fifth H/-sixth G9-seventh m1E-eighth -P-ninth 5Z-tenth XPd-once 6,m-twice >,w-dozen 0<-number 6-fraction R-decimal K-half K-quarter v6-piece D-none yA-few ,-only NH-many C-every .-another L-either 9.neither 05.alone AJ.whole :7(.plenty =3.amount nR>.hardly KI.nearly OT.quite ^.almost .i.enough Ht.about 2~.around mH.something 0.everything NJ.nothing G06,time #4.watch C.o'clock Q.minute Q.hour r>.night ~,.morning 4.afternoon .1 /evening >Q/today ?/yesterday -/tomorrow 9:/birthday l8G/holiday >S/Sunday B^/Monday }Ji/Tuesday Pu/Wednesday //Thursday ED/Friday 4/Saturday 58/week \3/month ./year 8/decade T0/century a1usually .shape Kw1square G1rectangle 81triangle vK1rhombus =1parallelogram K1circle 11centre /1middle I1perimeter j41circumference @1edge 62corner E2vertex @2round 6%2straight LP22point 5<2smooth 4grandmother 544grandfather 45cousin <5aunt 55auntie YB&5uncle 205nephew @8;5neice 6E5sister b,P5brother I\5gentleman Fj5ladies X;u5woman 55women J5anybody R5somebody .5nobody rO5occupation @5doctor I6dentist xH5policeman ?O5detective I5secretary @F5postman = 6fireman T?^6soldier 2Qsergeant j,.6captain ::6colonel a8F6general NR6admiral C6prince i6i6princess [Ov6queen )L6royal JG6majesty -6duke 6nurse :@ghost 66giant ;6fairy 46neighbour .6editor Fj4that J@6which W16what =6when 77where YJ7there s77who .!7how qJ)7why 417here L4:7whom C7C7whose )76they 7V7them 7_7their V7i7those KLs7these M7}7this i77they're `47themselves 7M7spaceship Q27rocket G27solar 67system 7planet C7astronaut mG7satellite /7orbit I8Earth A 8Mercury gC8Venus 2 8Mars ZC)8Jupiter 58Saturn [>@8Neptune V9L8Uranus dHW8Pluto t:7colour ?l8black b?v8white 78red R8blue 88green K8yellow /8purple K8grey \Ka8body R8head F8brain LQ8skull H8tooth ?8eye 8blood 6:8bone P>9spine ?9elbow >9shoulder L&9wrist {E09thigh M:9knee `LC9ankle :M9foot &GV9nerve CK`9heart 3j9kidney 9Hu9finger 09knuckle 9throat 639stomach H9healthy sL9disease g3dQmouth P9tongue 88clothes 6C9shoes J9sandals 79trainers C9trousers N :jacket /:shirt 9!:skirt 8+:jumper 06:blouse 8A:suit w0J:umbrella GW:wearing Bc:handkerchief Ht:pocket MF:cardigan N:glasses ::anorak -:leather DH:woollen B:knitting H:gloves L:collar _I:button J:ribbon Q:cotton R:nylon 9animal C9;insect 2Rhorse @);rabbit >4;chicken O@;elephant ,M;monkey /X;lamb XFa;lion Cj;mouse 9t;hippopotamus F;rhinoceros 1;giraffe :;zebra ;donkey |>;hamster c:;budgerigar ?;whale 6;goldfish 3;eagle 1;tortoise D;turkey , d=apple y=n=banana >y=apricot /=peach E>=plum W8=pear D=sweet G=juicy 0=orange 7=lettuce @=rhubarb :=sugar A:=flour P=custard n2=wheat D>honey L >marmalade 8>pineapple G(>wine 01>beer 81:>whisky v8E>peanut =P>bottle +3[>saucepan 'Ph>knife :'door R>window B>bath .H>lounge O>bedroom Q>stairs \<>furniture 3>chair M>table 2I>electric @;>radio %D>television ,?telephone >?programme |M?refrigerator 40?washing .built #EAbuilding ??hospital .9Rlibrary _N?museum E@office 0@garage P)@castle I4@theatre _7?@factory 6J@palace CV@place 7b@street Nm@city Bw@village @avenue P@county 5@country @@ground O@desert Q@forest L@mountain j;@island I@ocean ;0@beach N@coast <@seaside a0Astream w@Ariver 7Avalley N'Apavement J1Akerb j9|Bcapital .6BEurope /Bworld 9KBAsia LBIndia `RBPakistan b@Aweather u/Brain 1Bclimate GBsunshine JBwindy (>Bforecast @Churricane HCthunder /Clightning M*Cdrought 66Ccloudy 1DACfrozen Z=LCsnowflake 7Bmaterial EgCmetal 3qCwooden :|Ciron @Cgolden ;Csilver FNCsteel 9Cpaper 1Cwater QCmarble /Cliquid MCplastic yGZCtransport PDCvehicle 8Caeroplane ePDbicycle :/Dtrain 9Dstation C%Drailway B1Dcoach A;Dliner a;EDticket Edriver *C Eaccident dQEcanoe t3#Ebulldozer J1Ehovercraft !7@Ejourney =LEmotorway @Cschool FdEteacher ?pEtaught dE{Ewrite EEmusic Epainting BEpicture -Ewriting EEwrote Epencil u4Ewritten OEmathematics 0Earithmetic zQEcorrection :Fmultiplication @Fdivision 5#Faddition RA0Fsubtraction 0@Fsentence 2OMFpoetry 22XFlanguage 4eFpiano Gthrow CGsurfing 9RGswimming QGsailing 9Gskiing !:Gclimbing ERGwalk #KkIfight u9zQplaying iNGhappened R Hfought HI.Hbattle @9Hkilled 3Hleave 2Hopened +RDHclosed 9NHused NYHarrive QdHdepart KmHwaiting AxHbecome >Hcarrying ?@Hdigging iLlearn :sLheard `9}Lsupposed MLthank 6Lbelieve kILshout ?Lchoose 0Lplease (.Lforget LLforgotten #HLremember =MLmemory 8Lhoping ;Linvite BMlaugh ?Mlisten 3Msurprise =)Mtalk |D2Mreason Lexpect S=Mchance JMthink -KLlike ;DMenjoyment ?4Nfavourite /Ncheerful <Nbeautiful 5J,Ninteresting OQoak 5$Qconifer 20Qdeciduous ->Qevergreen -LQbranch NPdinosaur A ;ache B35Scotland AAarmy ~.!6navy I.Qweapon W:Qrifle 2Qcannon EQsword 7Qshield :Qarrow BQuniform M1Qmissile OQforce BQmilitary 3Qdestroyer 5Rfrigate 2PRcruiser \2 Rbomber 8#Hoperation =9surgery MERclinic YHPRvaccination 1A`Rinjection ;nRanaesthetic BP~Rmedicine LRcough vIRmeasles ~RRwound &9Rbruise ?Rfracture B+Rspider 9;referee ?Ghappening >.Rappeared d=Rdouble w-Rextraordinary 8SBernard 2SР H II   ! Rbkmn`xHHHR`R`) QQ PP B H IH 4 H 0 A[ a{)ߪH hи`hhhX@RR` LOAD C.HOUSE A00 LOAD W.HOUSE 580 ՇQQQQߏ ]]]]2222 hhhh****rrrrCCCC9999zzzzhouse garden chimney window door kitchen lounge dining room stairs bedroom bathroom toilet curtain carpet washing machine refrigerator freezer electric cooker basin cupboard work surface television fireplace armchair settee bannister landing switch wardrobe chest of drawers dressing table Р H II   ! Rbkmn`xHHHR`R`) QQ PP B H IH 4 H 0 A[ a{)ߪH hи`hhhX@RR` LOAD C.SCENE A00 LOAD W.SCENE 580 ##38ϝsun sky cloud tree roof house bedroom window front door lounge window garden gate wall pillar box pavement bus stop bus door window wheel road bedroom window sky tree trunk Р H II   ! Rbkmn`xHHHR`R`) QQ PP B H IH 4 H 0 A[ a{)ߪH hи`hhhX@RR` LOAD C.SIMPLE A00 LOAD W.SIMPLE 580 ƴրʤΰa b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9 0 , . ? -     SH_}|Help about HELPGlossarySentencesMaking a DictionaryHELP on HELP____________To make a HELP file: 1. Enter Pendown. 2. Set page width to 26. 3. Type information. 4. Try to keep length to 12 lines. 5. Save as HELP1 ... 10. 6. Leave PenDown and enter BASIC. 7. Place PenDown disk in DRIVE 0. 8. Press SHIFT-BREAK to load disk.9. Select HELP Editor.10. Use option A to assemble PenDown text into HELP file. 11. You need the same number of headings as PenDown files to be assembled. 12. You may take the PenDown disk out, so as to assemble the HELP file on another disk to the one with your PenDown text on.GLOSSARY________centre - to centre text means to place it in the middle of its linecurrent - current drive means the drive you are using now. How things are set now.cursor - the flashingline which tells you where the next letter you type will come on the the screen.default - when you start to use PenDown some things are set for you. These settings are called the default settings - the ones which PenDown starts with.delete - when you press DELETE, it rubs out to the left.disk - magnetic disks are used for keeping text. Be careful how you pick them up and where you put them down.drive - disk drives are numbered. If you only have one drive it is DRIVE 0. A second drive is DRIVE 1. Some drives use both sides of the disk. The other side of DRIVE 0 is DRIVE 2 and the other side of DRIVE 1 is DRIVE 3.edit - when you look at text and make changes to it, you edit it.file - when you have typed some text, you SAVE it as a file on the disk.filename - each name given to a file must have only seven letters in it.insert - when you put a letter or word into text. You do this by putting the cursor in the place just after where you want to make the insert.lower-case - the sort of letters which this is typed in are called lower-case. They are the ones which are not capitals. The computer produces lower-case letters when both CAPS LOCK and SHIFT LOCK are off (the red lights are not on) and you are not holding down the SHIFT key when you type a letter.menu - when you press a red key, you get a list of choices. This is called a menu.return - when you press the RETURN key, you start a new line on the screen. screen - where you can look at your text as you type it before it gets printed.shift - if you press a key when you are holding down the SHIFT key, if it's a letter key the letter will be in upper-case, a capital.shift-lock - this key will lock into and out of capital letters. When the red light is on you will get capitals. Some keys have two things on them, if the light is on you get the top one. tab - thisallows youto jump some spaces along a line.text - the name given to the words which you write.upper-case - when the CAPS LOCK or SHIFT LOCK lights are on, or the SHIFT key is being held down when a letter key is being pressed, the letter will printed in capital or upper-case letters.vdu - visual display unit, the screen.wysiwyg - what you see is what you get. This is how PenDown works. The way you see things on the screen, is the way they get printed on paper.SENTENCES_________You must try to write insentences. Notice howthese sentences start andhow they finish.Sentences always beginwith a capital letter.They always end with afull stop.You start a new sentencewhen you change the thingyou are writing about. Thething you are writingabout is called thesubject. The rule is: anew subject - a newsentence.When you type in yoursentences, leave a spaceafter the full stop,before you start the nextsentence.When you write a sentence,you sometimes need to addmore about the subject.You use a comma toseparate the main part ofthe sentence from theextra part. Here's anexample: The sun was shining,but it was cold.Commas are used toseparate things in lists: It was a dark, shiny,glittering shape.When you use commas, leavea space after them likeyou do when you use a fullstop.DON'T FORGET THE SPACEAFTER FULL STOPS & COMMAS.STARTING A DICTIONARY_____________________ 1. Put PenDown disk in DRIVE 0. 2. From BASIC hold down the CTRL key and press BREAK. 3. Choose the dictionary option on the menu. (At this point it's a good idea to remove the PenDown disk and replace it with the disk you want the dictionary on.) 4. From the dictionary menu, choose the start a new diction- ary option. 5. Enter the name for your dictionary. 6. If you just want your words in the alphabetic list, you may enter them in multiples. 7. If you want your words to be in special groupings as well, they must be entered singly, starting with the word which is to be the generic name of the group. 8. When entering special groupings, it's worth thinking about the order in which you enter them, because that's the order they will appear in, in the group list. 9. Finally, SAVE your dictionary. Remember you can always add to it later.order in which you enter them, because that's the order they will appear in, in the group list. 0KATSF` @` @` @` @0ROQNTP12345679:;<=>?@BCDEFGHIKLM  000000000000  ?8x000000000000000000000`00000000000000000000000000000000``  000000000000000000000000000000??00000000000000000000000000000000000000  x0000000000000000000`0000000000000000000000000000000``  000000000000000000000000000000??00000000000000000000000000000000000000  000000  000000000000000000000000000000000000000000000000000000000000  000000000000   ??0000000000000000??00000000000000000000000000   ??000000000000000000000000000000   00`` 0`` 31``?0``p8p8p8p8000000p000000 000000000000000000000000000000??00000000000000000000000000000000000000  <<?<<?<<<<<<00000000000000  p8?p8p8p8p8000000p0000000  000000000000000000000000000000000000000000000000000000000000  000000  p8p000000000000p@0000000000000000000000000pp0000  p8p?000000p00000  ??00000000000000000000000000000000000000000000000000000000000000000000   000000  000000000000000000000000000000000000000000000000000000000000  p8p88p8pp88pp00p   ??p000000p000000p  8p88p8p88p8pp88p8pp8p8000000pp000000  8p88p8p8pp8p000000   8p8p8p8p8p0p0000000000000000000??00000000000000000000000000000000000000??000000??000000 <<  ??000000??000000   p8p000000000000000pp?000000000000000000000000pp0 0KATSF` ` ` @`@@ @0QTPNOR134:5K6HEFIC;=7G9M0``?`0000 `p?9<|x~|x0 @>0 @ 0`??????????~||<ܜ>???>>  0??@@@@@@??>~8xϏ<<||||~>><  0 >p`08|~?0`?`?x|^ 0`>p`08|~?0`?`?x|^ 0`>p`08|~?p`p`>>>>??>?>>???????????>~<<||||~>><  0 ??????????~||>ޟ|??   0|>>>??????@?~|<||~~?? Ç 0|>>>??????@@?~|<||~~?? Ç 0|>>>??????@@?~|>||~??  Ã 1|>>>???????~|>||~?? @>  Ã 0|>>>??????@@?~|<||||~~???> Ç 0<?0@0xx808<><<||~???> Ç 0??@@@@@@??>~ޞ??????  Ƅ 0>|x~~~????p?y‚??`|| 0`  ``?? ` ???~|<|||||~~???>@@@ Ç 0  ``?? ` ???~|<|||||~~???>@@@ Ç 0|>>>??????@@?~|`0 0`<?Á?~| @@>||~??  Ã 1<?Á?~| @@? 0xߏ>||~??    Ã 0??@@@@@@x>|||~??? Ç 0|>????????>~??>>????????????<<>ǃ>???@@@AABBBCCOOPN******((*** ***((((( ******   * ** (***   ******  ((((((*  ** *  ****** **  ******  ((* ***  **  ******   ** ** * * ** * * * *(* **(((((((*  ****   * **** ****** *******(( (((** * ****** *** ((((((((( **** **   ** ( **((** ********** ** *  * ((******(( (((** * ** * ******  *((  ******  ** ****** * ***** * *********  ( * * ** * *( ****** * *( ****** ( ( ******  ************* * * *  *  ****** * *** ** (* * (********************   **** **** ****   *((((* ((((((******  **** (  (((((((((  * ((   * ******  (  *((  *((*  ((* (*  *(  * * *(ABCDEFGHIJKLMNOPQRSabcdefgh( KA8SF$p|> ?? pppp0 88|````|??11113 x0800008 ??00008 8??11111100 ??111111008000088 L|x????00??00 ?? ?? 0 p8 ?? ?????p800008 ??11111180088 L|8??111111 111111p0000??0000???? 8??8>>pp888pp808800000137><8<|̌  ??  ?? \LLLLL?333s3333g?? ??  ??    LLLLLLx0  x x 0#&$$ d$$d$ 11ఘ~ `BƎb11 ??9119LLLLL ~ `8hDT|) `8h899 99999#9KASSF`` @ ``` @@@ @` @` @` ` @` @` @` @@000HHIIIJJQPOKOQHDEEEFFFGGPORKRQS111223334445566677788999::NLNLRN:;;<<<===>>???@@@AABBBCCCDMLMK3333333300000000 ?0000??00000000??33??000000000000000000 0000000000000000??0000000000000000??33330000000000000000??000000000000330000000000000000 ??00??00000000000000000000000000000000000000??08x00000000000000000000000000<<0 000000000<<0000000000000000000000000??00000000000000000000000000000x??0<000000000333333333333??00000000000000000000000000000000000000000000<<<<?000<<<<<<<80 8p;sÃ0000000000000000<00??0000000033333333??333333000000000000000033333333??0000000000000000  000000000000000000000000000000000000000000??33??0000000000000000??33??333333333333??0000000000000000??????????00000000000????00????00000  <<<<< 0000<03?<x00000000000<??<<000000000<??<<0000000000000000000000000??0000000000000000????33????0000000000000000??8pp8|̌|000000000000 <81#000000 8p?p̜4d00<< 8p8p̜4d00 9p000000??p8 ??000000p98p 33????330000000000000000<< 0000 <<  0000````??000000??<<0000000000000000 333300000000000000000000000000008pp99p9pp8p9pp9pp8p9p99p8ppp  ABCDEFGIJKLMNOQRSTUVWYZ &-'.?( BLACK MAGIC. One stormy night I was lying in bed when...what was that I sat up quikly apitter patter of footsteps on thefloorbords outside the bedroom. Sudenlythey changed to the scrappig offootsteps nerer. Then the door starredto open. A kind of fear cluced me. Thekind that sendes a shiver down yourspine. It closed agan then it opened. Askeleton came walking in the door. Iopened my mouth to scream but the wordsgot stuck in my thoat and no sound cameout. As it came nearer I coved my headwith the pillow. When I looked it hadgone. The next day I went to a hotel inLondon that night the same thing happedbut this time I noticed he only had onearm and one finger and five toes how oddI thought. The next night the same thinghappend and that night I was so scared Itook a knife and cut off his hand. As Idid so the skeleton disappeared and fornights afterwards I slept in piece byJulia Harrison.Early one morning at209 a bur