%`wxWuP-v- X OG@D#`H ?: e?o@%z<GD`@G@*(4x &#@K#@$65SQp*zh~eeeeeeeeeeeeeeeeeeeI@YP vmv5+=Kj/Q {@mOU#q_Ð4A6A[H L DSK: EMACS; TS 126:EJDSK: EMACS; [PRFY] 173DSK: EMACS; _TECO_ OUTPUT[ 42@qk7+ Qv6h>7`>? `  p4 E7@ F:`+ + + + + + + + + + + + + + + + + + + + + + + + + + + + 4+ + V+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C+ 7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C7`C+ + + + + GKL|@ rKeeeeee+(>.W4P9u@P9i`y@umeac0;P0D l00^0^xxxxxxxxxxxxxxxx$!{,Cn :K)Km@""'oxG8KvEB!?G}::G}::-dr=!1u Kzl@!!EXowP@%??pHLWwmwBAqIA@ rq@"@"/TAo[@p>A@"@Ntq6Ber@1@-@2_Pr2_@27Jr2t9@r3:UrW\Y L@@@"D@?V@"DqXUK@"D@?w@"DrXKE@"D@-@"DqQKpxOKLP*]*]*]*]--@""'oxGKZ'z'z(?(?(?(?;P'p'p'p'p''Z'W'W'W'W''P'H'H'H'H''@'Y'Y'Y'Y'C'C@%:%:''@""'oxGK:LGKJeeeeee@-mmrunpurifydumpemacs;ts 126..E Bad value in q-reg ..E (output radix)2<1 The second argument was less than the firstAFN Ambiguous FS flag nameAOR Argument out of rangeARG Bad argumentAVN Ambiguous variable or macro name.BD" Bad condition after " -- should be G,L,N,E,B,C,D,A or UBEL A built-in ^R command called from macro signaled an errorCMD A char that isn't a TECO command was executedCNM Caller wasn't a macro (it was TECO internal code)DCD A disabled command was executedDSI Damned screw infinitelyERP Attempted :< ... ^\ with no closing > firstESR Empty sort recordFTL Filename too longICB Illegal ^] commandIEC Illegal "E" commandIFC Illegal "F" commandIFN Illegal FS flag nameIQN Invalid q-register nameILN Invalid local q-register numberISK Invalid sort key - "^P" commandKCB Kill currently selected bufferM^R Attempted to macro a meaningless numberNDO No device open for output - try "EW"NFC No free channels to pop intoNFI No file open for input - try doing "ER"NHP Nonexistent horizontal positionNIB You have addressed a character not in the bufferNIM Not inside a macroNOP Specified type of IO channel hasn't been pushedNRA File not random accessN^R Not in ^R - command meaningful only inside ^RPDL Pushdown stack fullPUR Attempted write in pure pageRDO Attempt to modify a read-only bufferQIT ^G typed on TTY and FS NOQUIT$ was negativeQNB Q-register not buffer - attempt to select a string or numberQNN Q-register not numericQNS Q-register not string or bufferQRF Q-regs failed, probably TECO bugQRP Q-register PDL overflow or underflowSFL Search failedSNI Semicolon not in iterationSNR There is no valid search string to repeatSTL String argument too longSTS Dispatch string too shortTMN Too many macro, ^]q-register, ^]^X, or ^]^Y nestingsUBP Unbalanced parentheses found with an FL-type commandUCT Unseen catch tagUEB FL-type command encountered end of buffer.UEC Unexpected end of commandUGT Unseen go-tagUJC Undefined journal file charactersUMC Unmatched ")" or ">" as a commandURK Buffer space or library space exhaustedUTC Unterminated conditionalUTI Unterminated iteration or errset (missing ">"?)UVN Undefined variable or macro nameWLO FS OFACCP$ when old access pointer wasn't multiple of 5WNA Wrong number of arguments    A A A' A AA AA A A () )( A A A AA A AA AA AA AA AA AA AA AA AA AA A ; A> A A< A A AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA (] A )[ A A A' AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA (} A ){ A ~m~t/\~S DSK: EMACS; [PURE] 162ment~X~Q~J~C NoMM & Yes or NoMM Make Spacerval!* number of characters between auto-saves! fs^rmdlywfs^rmcnt!* Don't let cursor be in this percent of screen! FS%BOTTOMh!* 1 => Searches ignore case! FSBOTHCASEoint!* Center cursor this percentage down the screen! FS%CENTERerse!* 1 => Display mode line in standout mode! FSINVMODng!* 1 => Try real overprinting on the screen! F"'NFS^HPRINW"'NFS^MPRINt!* Number of lines in echo area! FFSECHOLINESn!* Leave this percent of screen blank at EOB! FS%ENDa!* 1 => display error messages in echo area! FSECHOERRmn!* Page width for filling and grinding! FSADLINE!* Overwrite Mode status (see M-X Overwrite Mode)! 1FSMODECHWFS^RREPLACEode!* 1 => Display chars 0-37 as SAIL graphics! FFSSAILSystem Output Holding!* 1 => let system handle C-S and C-Q! FSTTYPAGE!* Don't let cursor be in this percent of screen! FS%TOPMode!* 1 => word commands deal with LISP atoms! :I.W"n:I.W@'1FSMODECHModeu!* nonzero => Auto Fill (break long lines at margin)! 1FSMODECH 32FS^RINITU "E' M.M^R Auto-Fill SpaceU oint ^@e* 1 => auto save under visited filename'!* 1 => digits and Minus before control chars set arg! 0FS^RINIT[2 "NM.M^R AutoargU2' Q2-Q0"E'Q2U- Q2U0Q2U1Q2U2Q2U3Q2U4 Q2U5Q2U6Q2U7Q2U8Q2U9entnts/8+1*8tFundamentaln!* Controls action of ) in showing the matching (! "NM.M& Matching Paren'"#0'FS^RPAREN.?!acesde!* -1 => Use tabs for indentation. 0 => only spaces.! "EM.M& Indent without TabsUMM & Indent M.M& Xindent without TabsUMM & Xindent' M.M& Indent with TabsUMM & Indent M.M& Xindent with TabsUMM & XindentISP ies.  '/* Char to exit I-search and do nothing elseFlag* Nonzero => Auto Fill indents new lines : : : : : : : : : : : :pMEMOXGPPRESS@XGPUNFASLOUTPUTOLREC 2sVisit File Save Old* -1 => visiting new file saves old, 0 => don't, 1 => ask userfixQ..H"EMDirectory Lister'meeFundamentals~<RingELisp MULTIPLE-VALUE IndentdentLISPn]*'F[DFILE FSOSTECO"E ETFOO EVARS FSXUNAMEFSDFN1' "#ETEMACS.VARS' FSHSNAMEFSDSNAM [1[3[4 Q..O[5F[BBINDQ..O[6 [..O 128*5,32:i*[2 *5:f2 / "*5:f2 |!'! 1:"L' <.-Z; @:F"EL!' 1AF  :"L@L!' .,(CS:.-2,.+1F=::"EC' ).-1X3 .u1@f l 1a-34"eq2[..d .+1,(@fll).-1x4 ]..d @:i4"4"!''!' "#.(:\u4)-."eq1-1j' @f  l :@f"n q1j:X4'' Q5U..O FQ3-2:G3F:"'L+( 0:G3-:"'E)"L M4U3' "#F=3*"EM4' "#Q4M.V3'' Q6U..O@L> :@i*|[1fsqpptr[2 :g(m.aAUX& Process Init Vars)u2 q2fsqpunwin :m(q1(]1)) |m.vMM & Process Init Vars MM & Process Init VarsM(M.ALEDEFSDefine LEDEFS)Inhibit Writeer~5MainFundamental;!* non-0 => do auto saves! "'NM(M.MAuto Save Mode)ult!* non-0 => by default use auto save! 1FSMODECHDSK: _SAV00EMACS Library FilenameEMACS VersionC Store buffer in specified file. This file becomes the one being visited. Specify filename as string argument. Precomma arguments have hairy meanings; see the code.ileMM ~DOC~ Write Filee:!QBuffer Index[2[4 0F[VBW0F[VZW :F "LQ.F-Q..F"E Q:.B(Q2+2)F"NFSDFILE''' 5,1F Write FileT1 F[DFILEET[TECO] OUTPUT0FSDVERSW <1:F"E0;'U4 F~(0,7:G4)OPN0130"N F~(0,7:G4)OPN0750"N Q4FSERR'' &77777.FSDVERS> F]DFILE FSOFCDATE[3 HP -1"E:'1+0U4 Q4"LF~(0,7:G4)OPN0750"E 0FSDVERSEF' "#Q4FSERR'' 0FSMODIF 0FSXMODIF +1"EFSRGETTY"EONoPrint'' FSOFILESRGETTY"E:FT' :I*CFSECHODIS @FTWritten: 1FSECHOLINES-1"N@FT ' 0FSECHOACT !NoPrint! Q..F-Q.F"NQ3' FSZU:.B(Q2+11) FS^RMDLYFS^RMCNT :"L Q3U:.B(Q2+8) FSOFVERSF"L FSOFILEF[DFILEFSDFN2:F6( F]DFILE)'U:.B(Q2+9) 1FSMODECH' "N0' FSDFILEU1 M(M.MSet Visited Filename)1 0leMM Write FileS Read in an command name, with completion. Rubout, ^D, ^U and ^L perform editing. Space and Altmode do completion. ? lists choices. Takes a prompt-string as a following string argument. A numeric argument is the initial contents of the string to be accumulated. A pre-comma arg containing the "4" bit means don't wait for a confirming CR; the "2" bit means complete over the symbol table in CRL List using the prefix string in CRL Prefix. The "8" bit is deliberately ignored. The "16" bit permits names that don't match. The "32" bit means CR is allowed with an empty name. The F^K command with the "8" bit set in its precomma arg calls & Read Command Name, passing along its arguments. Two values are returned, the second being the completed string (or 0 if exit was due to over-rubout). The first is bit-decoded; 1 means we displayed the string, 2 means the terminating character was Return. See Source code for more info.eMM ~DOC~ & Read Command Nameme:![0[1[2[3[4[5[6[7 1F[^PCASE :I6 0[8 0[9 q..q[.1:i*MM [.2 0[.0 &20."n2fo..QCRL Non-match Methodu.0' &2"nqCRL Listu.1 0fo..qCRL Prefixu.2 q.2"e:i.2'' 0[.3 0[.4 0f[HelpMacro f[BBindfq()"gg()' q..ou5 oRead !Redisp! 1u8 :i*CfsEchoDis fsrgetty"e@ft ' @ft6@ht zu.4 oRead !Barf! fg fsrgetty"n@ft ' oRead !Changed! q8"n fsrgetty"n q.4-q.3<:i*Xfsechodis> q.3,z@t' "#q.4,z@t' zu.4' zu.3 q9"n&4"n q8,q3' q8"n@ft0u9 :fi-13"noRedisp''' !Read! q8"e0:"eoRedisp'' @:fiu0q0-4110."eoHELP'fiu0 q0-32"e."eoRead'' q0f  ?"l q0- "eQ.0&4"n q8"n@FT ' q8+4,(HX*)'' q0-"efiu0' q0i q8"nfs^RMode"n-1@t%.4'' oRead' q0-"e i^R q8"nfs^RMode"n-2@t%.4%.4'' oRead' q0-177."e q8"eq0fsReReadoRedisp' z"eq8,0' zj0au0-d fsrgetty"e@ft0' "#q0-40."loRedisp' :i*Xfsechodis Q.4-1u.4 q.4-q.3"lq.4u.3' oRead'' q0- "eoRedisp' q0f:"lhk0u.3oRedisp' q0-?"e &2"e f=(0,2:g5)^R"e m(m.m& Load Bare)'' f[BBind:ft &2"e fs:ejpage*5120+400000000000.u7 j.u3i  <2r:s 5;0lq3,.kl .-z;.u30:l >q3,zk' :fo.1.25,0fu3 :fo.1.25,0fu4 q4-q3/q:.1(0)< 0fo..qCRL Name Listeru7 q7"nq3m7' "# q:.1(q3)u7 fq.2,fq7g7i ' q3+q:.1(0)u3 > j &2"e<:s~;0lk>' 0fo..qCRL Name Listeru7 q7"n1,m7' "# l j<.-z;x1l<.-z;1f=1"N1;'k>> ' ftHere are the possible completions of what you have typed:  ht0fsflushedwf]BBind 0u..hfoRedisp' !Retry! q0-"e (Q.0&2"'n)( )((z"'e)&(&40."'n))"n q8"n@FT ' Q8+6,(HX*)'' &2"ez-1"e0a:fcfLVKEIW:"l h@fc f~5L"eiist ' f~5V"eiiew ' f~5K"eiill ' f~5E"eidit ' f~5I"einsert ' f~5W"eihat ' oChanged''' :i3:i4 :fo.1.25,0fu1 fq.1/5-q1"gq:.1(q1)u2 f~2.2,0f-fq.2"gfq.2,fq2:g2u4'' :fo.1.25,0fu1 q1-1"gq:.1(q1-q:.1(0))u2 f~2.2,0f-fq.2"gfq.2,fq2:g2u3'' &2"e f=(0,2:g5)^R"e m(m.m& Load Bare)' fs:ejpage*5120+400000000000.u7 f[BBind f]BBind' f~34u1 q1"l (&20."'e)(q0-32"'n)"noBarf' :i7q7u2' "#q3u7q1"n0,q1-1:g3u7' z,fq7:g7u2' q0-"efq4-fq7"eq4u30u1'' q0-32"e fq2"eq1"n 0,0a-32"eoBarf' 32iq8"n@ft %.4'oRead'' 32f2+1u2q2"g 0,z+q2:g7u7'' "#fq2"eq1"n fq4-z"noBarf' q4u3''' f~34"efq3-fq7"e q0-"eq8"n@ft '2+q8,(:i*3)' 1u9'' hkg7oChanged !HELP! fiw:ftYou are typing in  &2"eftthe name of an EMACS extended command :i7 command' "#0fo..qCRL Name Typeu7 fq7"g:I7 7' "#:I7' fta7 name' ft. Use Rubout to delete previous characters; use  to delete the whole thing. Typing Space or Altmode causes as much of the name as possible to be filled in for you (this is called completion). Type ? to list all the7 names which match what you have typed. &6-4"eft If completion fills in the entire7 name an Altmode () appears. You can then start typing the arguments to the command. Terminate them with a Return. If there are no arguments, you can use just Return after a sufficient abbreviation.' "#ft If completion fills in the entire7 name,  &4"e ftan Altmode () appears.' "# ftit will be chosen.' Q.0&2"eft Typing Return will complete the7 name and terminate. &40."nft You may also type Return if there are no other characters, to enter a null7 name'' "#ft Typing Return will terminate the7 name, without completion.' Q.0&4"nft Typing Linefeed will terminate the7 name, without completion.' 0fo..qCRL HelpU7 q7"nFT 7'' FT  0u..hfoRedispMM & Read Command Name~r^R Search for character string as you type it. C-Q quotes special characters. Rubout cancels last character. C-S repeats the search, forward, and C-R repeats it backward. C-R or C-S with search string empty changes the direction of search or brings back search string from previous search. QSearch Exit Charm(m.m& Charprint) exits the search; with search string empty it switches to non-incremental ^R String Search. Other Control and Meta chars exit the search and then are executed. If not all the input string can be found, the rest is not discarded. You can rub it out, discard it all with C-G, exit, or use C-R or C-S to search the other way. Quitting a successful search aborts the search and moves point back; quitting a failing search just discards whatever input wasn't found. On printing terminals, C-L types line found but doesn't exit the search.h ~DOC~ ^R Incremental SearchMM ~DOC~ ^R Incremental Search[D 0[L 10.[R [Q@:iQ` q4+1*5-fq3"e q3[..ozj 200,0i]..o' .u:3(%4) qLu:3(%4) q2u:3(%4) q0u:3(%4) qDu:3(%4) ` [T fstyisourc"e @:iT` Q9-Q.9"N2[R'Q9U.9 fsrgetty"n2&qR"n qcfsechodis @ft9: q2u8'' @ft8:i8 `' "#:iT' [C:ICTL [0 [2:i2 [8:i8 [9 0[.9 1fo..qSearch Exit Option 200fsqvector[3 -1[4 [5 .[P [S:ISM.M& Isearch RuboutUS:MS :I*M(M.M& Isearch Help)F[HelpMac 1f[noquit [6[7 qD"g:i6I-Search:i7Failing I-Search' qD"l:i6Reverse I-Search:i7Failing Reverse I-Search' q6u9 0[I fsrgetty"e fstyisourc"e@ft S: ' 1fstypeo'' !Restart! 1:<1uI-2f[noquit 0fsnoquitwqD:m(m.m^R String Search)' q5-8"eoFunny' q5-176."goFunny' q5-"eoControl' q5-"e FSREREAD' !Normal! 4uR mQ :i220 fstyisource"e fq8"nmt' @ft0 "# !Try! mt '' qL"n!' .u5 40.&qR"e qD"gfq2-1r' "#fsz-qPf[vz fq2-1"gfq2:c"ezj'' f]vz'' qD:s2"l!' q5j1uLfg! !Funny! q5-177."eoRubout' q5&537.-S"eoForward' q5&537.-R"eoBackward' q5&537.-Q"eoQuote' q5&537.-L"efsrgetty"eoReprint'oControl' qE"eonormal' oControl !Reprint! 0tft..at ft S: 2 ! !Quote! 1f[noquit fsosteco"n-1f[helpch' fiu0 fsosteco"nf]helpch' 0fsquitwf]noquit onormal !Forward! qD"l:i6I-Search:i7Failing I-Search' q4"LqD"goDefault' "#1uD!'' mQ qD"L0uL' 1uD 40.uR otry !Backward! qD"g:i6Reverse I-Search:i7Failing Reverse I-Search' q4"LqD"loDefault' "#-1uD!'' mQ qD"g0uL' -1uD 40.uR otry !Default! mQ qSearch Default Ring[..o .fswordu2]..o fq2"l:i2' q2u8 40.uR otry !Rubout! q4"lfg!' ms qL"eq6'"#q7'u9 mt! !Control! q5fsreread 0; > f]noquit >u0@feqit-q0"e@fg qL"'gqI"N:i*:'"#:i* 'fsjrnwr QL"gmt oRestart' qI"emsmtoRestart' QPJ0fsnoquit -1fsquit' q0f"nfserr' fq2"g qSearch Default Ring[..o fq(.fsword)-1"G5c.-z"ej'' q2,.fsword ]..o' fstyisource"e@ft' qPmMM & Maybe Push Point 0hMM ^R Incremental SearchntFS:EJPAG-256"E' QEcho Area HeightFSECHOLINES 0F[VARMAC FSSAILUSAIL Character Mode FS^MPRINTUDisplay Overprinting  n:,.F.X~'!PREFIX!F@:M(Q.XM.P)Control-X Q.X ACS EMACSACS !* ITS! etDSK:EMACS !* set device name and FN2! fs hsname fs dsnamew !* fill in directory! fs xuname fs dfn1w !* and FN1! 1:"l 1:"l erEMACS;*'' fs d file[2 et@ > !** end of system-dependent code! fs msname fs dsname qEMACS Version:\u1 !* sigh, still need this! @y 1a-127"n ]2 :i*[..9 !* if init doesnt begin with rubout then! m(hfx*( 0fsmodifiedw))' !* execute it as TECO commands! hk 0fsmodified 1,m(m.mLoad Library)2 !* else load it as a library,! !* saving the filename!  *Initialization*~EMACS (Fundamental) Main: runpurifydump~filename~1OPN004 DSK: GZ; PURIFY :EJ FILE NOT FOUND~& Setup PURIFY Library:EJ]*-(fs:ejpage)"n]*'MACSKill VariableACS:ejDSK: EMACS; [PURE] 162wq.1u..l0u.1q.2u..p0u.2:m(q.3(0u.3))@+>&uhl@@l0 1B1B0 1B`!@!!* -*-?W<@%U@%U+@ @%U4@%UA@%U[@3@%Ud@%Ut z'[@%V:֯@%Va@/@%Vw@%Wz e@%W7O@a{׋ם@V@%W[@%We@%Wm@@%X 1@%X!i{@%XN@dث@%Xe@i@%Xo@%YQ]i@%Y>ٍٛ@ٵ@$~ -G@7@%Z2@%Z>@%ZH<ڟ@v Q@%ZW#@@%Zg@:#@[@%Z~Q@%[_I@%[=g@%[Gۥۻ@%[}@%\ @%\@%\U@%\7܉@)ܡܷ@$$K@%\v@%]@%] )=W@s@%]K&a@%]Uݿ@%]j@%^ @%^@%^+}7ޑޣ@%^7@$޿?{}@%^t@$}2!L?a/@!0@%_@%_(@%zl@${al@${a@%_3@$~ 7{@%_; M@#fa@4@Q@;y3@!@>@B@3V0߉ߑ߱@%_b@x@%_k@'@%_t@,@%`@%`2@%`?<@@%`o@%aD3kC@%aA@2@%b@@L!9_@u@51@@@@@@@@@#@@@ r֯@%5*@$jsPI@$.@$@#m"@#r@$evG@$[@$ /@$bG@Q @$En@$-@$8@$8w@%'Y@%#8@%#*a@$ @#ea@#~=@$k-8@#|t@#p[;@#~~ו@% R@#s,@#UN @#s}@#px@#qM@%*/qL`W`INXi9"I R,;gW`W