P [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) }H (5,%1]?k F3j$ Y*9alI  q\#hsH$cI!$k_#={#O] 5 6";.u$M"qZM$u+k 3>$#z3$mA$9T^e&& Edit Sketch& Find Next Sketch& Find Sketch& Hack Sketch Var& Insert Sketch& Interactive Hack Sketch Var& List Sketch Library& Prepare Sketch Library Visit& Process Sketch& Setup Sketch Library& Sketch Library Prompt& Sketch Prompt& Sketch Set File Defaults& Sketch Var Help& View SketchCreate Sketch LibraryEdit SketchInsert SketchList Sketch LibraryView SketchVisit Sketch Library^R Sketch Dispatch^R Sketch Insert or Dispatch~DIRECTORY~~DOC~ & Edit Sketch~DOC~ & Find Next Sketch~DOC~ & Find Sketch~DOC~ & Hack Sketch Var~DOC~ & Insert Sketch~DOC~ & Interactive Hack Sketch Var~DOC~ & List Sketch Library~DOC~ & Prepare Sketch Library Visit~DOC~ & Process Sketch~DOC~ & Setup Sketch Library~DOC~ & Sketch Library Prompt~DOC~ & Sketch Prompt~DOC~ & Sketch Set File Defaults~DOC~ & Sketch Var Help~DOC~ & View Sketch~DOC~ Create Sketch Library~DOC~ Edit Sketch~DOC~ Insert Sketch~DOC~ List Sketch Library~DOC~ View Sketch~DOC~ Visit Sketch Library~DOC~ ^R Sketch Dispatch~DOC~ ^R Sketch Insert or Dispatch~DOC~ ~Filename~~Filename~~INVERT~0fo..QLast Sketch Namem.vLast Sketch Name 0fo..QLast Sketch Library Namem.vLast Sketch Library Name m(@:i*|m.m^R Sketch Insert or Dispatchu...S|fo..QSketch Setup Hook) :i*.[0[1 g1+q0j q0,fq1 fo..QSketch Insert Hookm.vSketch Insert Hookff&2"e fnq..H"n0u..H@v'' m.m& Insert Sketch,(:i*Insert):m(m.m& Sketch Prompt)1,m(m.m& Find Sketch)mSketch Insert Hookfnq..H"n0u..H@v' m.m& Edit Sketch,(:i*Edit):m(m.m& Sketch Prompt)[0[1 [..J 0[..F u0 !Retry! qLast Sketch Library Nameu1 q1"e @m(m.mVisit Sketch Library) oRetry' e[fne] e\fne^ f[dfile f[bbind er1@yj 0f[modifiedw0f[xmodifiedw :s 0 "l :i..J(Editing Sketch "0")!''! .,(s r.)fsbound' "#:s :"lzji ' g0i r :i..J(Creating Sketch "0")!''! .,(i~.)fsbound' [Cfsosteco"e:iCC'"#:iCZ' :i..J..J "~" marks point, c-m-C exits, c-] aborts!''! q..H"n0u..H@v'  et1 0,(fsz)fsbound ewhpef fsofile :i*CSketch Library "O" Written !''!fsechodisw0fsechoactive 0fnq..H"n0u..H@v' m.m& View Sketch,(:i*View):m(m.m& Sketch Prompt)[0[1 0f[^RStar u0:i*(Sketch "0")!''![..Jfr q0m(m.m& Find Sketch)u1 ft1 :fiw 0[L[P[N :f "l uP qLast Sketch NameuL :iPP Sketch fqL:"l:iPP (L)' 1,m(m.m& Read Line)P: uN' "#:iN' fqN"l-1' fqN"eqLast Sketch NameuN' "#qNuLast Sketch Name' qNm()[0[1 u0 qLast Sketch Library Nameu1 q1m(m.m& Prepare Sketch Library Visit) :i*NST No such sketch "0" in "F"fserr!''''![L[P[N m(m.m& Sketch Set File Defaults) qLast Sketch Library NameuL qL"nqLfsdfile' :f "l uP 5,m(m.m& Read Line)P Sketch LibraryuN fqN"l-1'' "#:iN' fqN"getN' fsdfilef(uN)uLast Sketch Library Name qNm()w[Last Sketch Library Name fnq..H"n0u..H@v' m.m& List Sketch Library,(:i*List):m(m.m& Sketch Library Prompt)m(m.m& Prepare Sketch Library Visit) ftSketches in file "F"... !''! ft----------  :fiw 0rf[bbind f[dfile e[fne] [F erFahk j[Last Sketch Name [0[1 -1u0 jk zj0a- "noFormatErr' -dj <:s~<!>!; 0a-"e-dc' "#0a-~"e q0:"loFormatErr' "#-d.u0'' "#0a-!"e"n-d.,( !-d .)fx*m(m.m& Hack Sketch Var)''''> q0"lzj'"#q0j' !FormatErr! :i*FMT Bad format in sketch entryfserrftYou are being asked for a filler for the "V" field of a sketch... Type text to be used in this sketch field (ended by Return), !''! ff"n ft or type Control-R to be able to type this text into an editor buffer, or type Altmode to use a sketch to fill this field, ' ft or type Return to use the defaultI, or type Rubout to ignore this field for now. ---------- [0 0:g0-@"e1,fq0:g0u0g(:i*fo..QSketch 0 Var)' 0:g0-:"e.[1z[Zz-.[2 1,fq0:g0u0m(:i*mm0) .-q1"ez-qZ"nz-q2j''' q0:m(m.m& Interactive Hack Sketch Var)[V[1[I[3[C uV 0fo..QSketch V Varu1 fq1"l:iI'"#:iI (1)' !Prompt! :i*CVI? fsEchoDis fiuC qC-e!Ignore! .(i<V>),.' qC-"e f[bbind [Cfsosteco"e:iCC'"#:iCZ' :i*(Filler for "V") End with c-m-C !''![..J q..H"n0u..H@v' ]..J]Cwg(hfx*(f]bbindw))' qC-"e 1,@m(m.mInsert Sketch):"l' oPrompt' (qC-?)*(qC-)*(qC-4110.)"e 1m(m.m& Sketch Var Help) oPrompt' qc- "eoPrompt' qC- "e-1uC' qCfsreread m.m& Sketch Var Helpf[Helpmac 1,m(m.m& Read Line)VI: u3 fq3"loIgnore' !Default! fq3"gq3u1' q1"nq1m.vSketch V Var g1' fnq..H"n0u..H@v' f[dfile m(m.m& Sketch Set File Defaults) 5,f Visit Sketch Library etL fsdfileuL e?"n @ftSketch library "L" doesn't exist. Create?!'! 1m(m.m& Yes or No)"nm(m.mCreate Sketch Library)L'' fsdfileuLast Sketch Library Name 0fnq..H"n0u..H@v' e\fne^ f[Dfile m(m.m& Sketch Set File Defaults) 5,f Create Sketch Library qLfsdfile f[bbind i-*- Text -*- This is an Emacs SKETCH library. Created  m(m.mInsert Date) zji by g(fsuname:f6)i.  ewhpef fsofileuL @ftSketch Library "L" created. !''!0fsechoactive 0ff"n@:m(m.m^R Sketch Dispatch)' "#@:m(m.mInsert Sketch)' [0[1 60:"e !Prompt! :i*CSketch Command: fsEchoDisplay' !Retry! fi:fcu0 q0-E"e f@:m(m.mEdit Sketch)' q0-I"e f@:m(m.mInsert Sketch)' q0-V"e f@:m(m.mView Sketch)' q0- "e f@:m(m.mList Sketch Library)' q0-"e f@:m(m.mVisit Sketch Library)' q0-Q"e0' q0-H"e [LftTo use a sketch, you must visit a sketch library. Currently, you are  qLast Sketch Library NameuL qL"nftvisiting the sketch library "L".!''!' "#ftnot visiting any sketch library.' ft You can visit qL"nftanother '"#fta ' ftsketch library by typing c-V now. You can list the contents of a library by typing c-L now.  qL"nftSince '"#ftOnce ' ftyou have visited a library, you can insert a sketch from that library by typing I qL"nft now' ft. To create a new sketch or modify an existing one, you can type E qL"nft now' ft. Or, if you just want to see an existing sketch without inserting it, you can type V qL"nft now' ft. ----------  ]LoPrompt' (q0-?)*(q0-)"e ftSketch commands: E Edit (or create) Sketch I Insert Sketch V View Sketch Sketch Library Commands: c-L List Sketch Library c-V Visit Sketch Library Type H for more info. Type Q to exit this mode. ----------  oPrompt' fg :i*CSketch Command (E, I, V, c-L, c-V, or ?): fsEchoDisplay oRetrywqLast Sketch Library Namef"nfsdfile' "#wfshsnamefsdsname fsxunamefsdfn1 0fsversion f6SKETCHfsdfn2' SKETCHMacros for hacking text sketchesS Set up this library after load C Insert a named text sketchS Insert a sketch with a given name (numeric arg)C Edit a named text sketchS Edit a sketch with a given name (numeric arg)C View a named text sketchS View a sketch with a given name (numeric arg)S Prompt for name and call continuation Continuation (a macro) is arg1; prompt type (a string) is arg2. Returns -1 on failure (over-rubout to prompt) S Return a sketch with a given name uS Prompt for library name and call continuation Continuation (a macro) is arg1; prompt type (a string) is arg2. C List the contents of the sketch libraryS List a library's contents (name is numeric arg2) S Set up for sketch library perusal Gets a fresh (temp) buffer and opens the library. Calls to & Find Next Sketch will visit successive entries in the library.sS Visit the next sketch in an open library. The library must have been opened by & Prepare Sketch Library Visit. If no next sketch is found, the buffer is left empty; a sketch will always have at least one char, so this isn't ambiguous.S Scan the current sketch removing syntactic markers. Kill the sketch's name, the trailing c-L, hack c-Q's and maybe variables. With a precomma arg, also processes 's, prompting for values in the echo area.S Give help with sketch var prompt qV must be set up with the var name and qI with default info (either a null string or something preceded by a space)S Hack sketch meta-quantityS Prompt for and insert named text (numeric arg2) Uses sticky defaulting on namesC Makes a sketch library current C Makes a new sketch library^R Insert sketch, or (with arg) menu of commands^R Dispatch to appropriate sketch commandS Set file defaults for a Sketch library& Setup Sketch Library Insert Sketch & Insert Sketch Edit Sketch & Edit Sketch View Sketch & View Sketch & Sketch Prompt & Find Sketch & Sketch Library Prompt List Sketch Library & List Sketch Library & Prepare Sketch Library Visit & Find Next Sketch & Process Sketch & Sketch Var Help & Hack Sketch Var & Interactive Hack Sketch Var Visit Sketch Library Create Sketch Library ^R Sketch Insert or Dispatch ^R Sketch Dispatch & Sketch Set File Defaults +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2