€P× [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) ð&h&j~DIRECTORY~Œ~INVERT~˜M€x× [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) …DP\ait>y;e8,1E:B4L.QzYî`Hfrqx$n9(3$;?G#LqT %]+h&Bp!€%B"6!5+#V3#F$k]%(o$x$R$5"%$"l."w9"B&O#tZ$Fh%p$|!+ !m!w&"J2!Q@#FH#.T!`#nbx^€(J˜&SetupEENVLibrary˜@MakeReadableTECOšAddNILtoM-XCompile•CommentLispTextComoutŸConvertRegion8bitto7bit©ConvertRegion,AltoFonttoReadabležDoverizeKTVCrashreports‹Dumpme’EvalLISPFormEvalRegion•ForgotOpenParenMINITSMulticsC-TMulticsM-TŒNILMode•Process%logfileProcessJCL—ReadEvalRedisplaySafety’SendtoCLOLSP—Setupclockdisplay–Soley'sMetaClose•Soley'sMetaOpen‘SpanishRMode—UncommentLispTextValret‘ValretRegion’XUNAMEstartup–^AIndentforLISP~DIRECTORY~ž~DOC~&SetupEENVLibraryž~DOC~@MakeReadableTECO€~DOC~AddNILtoM-XCompile›~DOC~CommentLispText~DOC~Comout¥~DOC~ConvertRegion8bitto7bit¯~DOC~ConvertRegion,AltoFonttoReadable¤~DOC~DoverizeKTVCrashreports‘~DOC~Dumpme˜~DOC~EvalLISPForm•~DOC~EvalRegion›~DOC~ForgotOpenParen~DOC~MINITS•~DOC~MulticsC-T•~DOC~MulticsM-T’~DOC~NILMode›~DOC~Process%logfile•~DOC~ProcessJCL~DOC~ReadEvalRedisplay~DOC~Safety˜~DOC~SendtoCLOLSP~DOC~Setupclockdisplayœ~DOC~Soley'sMetaClose›~DOC~Soley'sMetaOpen—~DOC~SpanishRMode~DOC~UncommentLispText~DOC~Valret—~DOC~ValretRegion˜~DOC~XUNAMEstartupœ~DOC~^AIndentforLISP”~DOC~~Filename~Ž~Filename~Œ~INVERT~À1uDisplayMatchingParen 1m.vTagsFindFile 65m.vFillColumn -1fs^hprint "*5+1:F..D| `*5+1:F..D' ,*5+1:F..D' [*5+1:F..D( ]*5+1:F..D) 0u:.x() m.m^RLEDITZapDEFUNtoLISPu...L m.mCommentLispTextu..J m.mUncommentLispTextu...J m.m^RSelectBufferu:.x() m.m^RDrawVerticalLineu..| m.m^RBufferGraphu..+ m.m^RIndentRelativeu..I m.m^RWhatLossageu:.x(Y) m.mCompileu. m.m^RAuto-FillSpaceu.. @:i..&-1-(fs^hprint)fs^hprintw& m.mSaveAllFilesu. m.m^RBufferNotModifiedu..` m.mSoley'sMetaCloseu..) m.mSoley'sMetaOpenu..( m.mForgotOpenParenu.. m.mValretRegionu..! m.mValretu...! m.mComoutu:.x() m.mReadEvalRedisplayu:.x(î) m.mEvalLispFormu..î m.mEvalLispFormu...M m(m.mAddNILtoM-XCompile) ¨FS%TOFCI"E M.M^RAutoarg[0460.-1[1 10Q0U..- ]1]0' 3fsecholines fs%TOSAI"N 1fsSAIL' fsxuname-(f6DCP)"e m(m.mLoadLibrary)MODLIN ' fsxuname-(F6SOLEY)"e m(m.mLoadLibrary)BABYL ftBABYL  m.mBabylu:.x(R) ' fsxuname-(F6MERMAN)"e 1m.vInhibitHelpMessages m(m.mLoadLibrary)SORT m(m.mLoadLibrary)MODLIN m(m.mLoadLibrary)SENDS m(m.mLoadLibrary)VT52 m(m.mLoadLibrary)JOURNAL m(m.mLoadLibrary)BABYLm.mBabylu:.x(R) ' fs%tosai"n:i*,m(m.m^RSetMyWindowSeparator)' "# fsxuname-(f6DCP)"e :i*-,m(m.m^RSetMyWindowSeparator)' "#:i*:,m(m.m^RsetMyWindowSeparator)'' fsxuname-(f6DCP)"n fsxuname-(f6MERMAN)"n m.mMulticsC-Tu.T m.mMulticsM-Tu..T m.m^AIndentforLISPu..I m.mInsertFileu:.X(I) '' ¡0[0 fsxuname-(f6SOLEY)"e1u0' fsxuname-(f6SUNDAR)"e1u0' fsxuname-(f6STANZE)"e1u0' fsxuname-(f6BARMAR)"e1u0' (fsheight-60)"e (fswidth-84)"e (fs%tosai)"n0u0 ''' q0"n f[bbind g(fsclkmacro)0j @i&f[bbindeg-2d0l-5k-4di0l0,.k2ci: hxEditorTypef]bbind1fsmodech & [1hx1q1fsclkmacro]1 hk m(fsclkmacro) 1[1fsospeed"nfsospeed-301"l3u1'' q1*60*60fsclkinterval]1 f]bbind ' ]0 ì-:s  î "ebj' @f  qaj :s"ezj' -@f ub fsz-qbf[vz qaj <.-z; i;;;l> qa+3j-:s  î "ebj' @f  qaj :s"ezj' -@f ub fsz-qbf[vz qaj <.-z;1a-;"edw1a-;"edw1a-;"ed''w1a-"ed''l> qaj±0l."N-2ci)l'm(m.m^RIndentforLISP) :l°0l."N-2c-dl'm(m.m^RIndentforLISP) :l§.[1f@m(m.m^RBackwardSexp)q1+1j²m(m.mLISPMode) 1M(M.M&SetModeLine)NILf[bbindg(m.mCompile)0j[1 :sLISP"l0l @i@F~2NIL"E :NACOMP1 ' @ hx1q1m.vMMCompile m.mCompileu.]1f]bbind'«m(m.mTextMode) m(m.m&InitBufferLocals) 1m(m.mAutoFillMode) 70m(m.m^RSetFillColumn) 1,(:i*SRP)m.lCompilerFilename 1M(M.M&SetModeLine)SpanishR§-c1m(m.m^RTransposeCharacters)»1m(m.m^RBackwardWord) 1m(m.m^RTransposeWords)¡0lm(m.m^RIndentforLISP)ì.[1:[2q1-q2"g[1[2]1]2q1j' 0[3(q2-q1)/5<0u35q3/8u344c>]3 q1j]2]1ã.[1:[2q1-q2"e]2]1:i*NOR NoRegiontoValretFSERR' q1-q2"G[1[2]1]2' [3q1,q2x3 3]3]2]1·[11,m(m.m&ReadLine)Valret:u1 q1"n 1 ' ]1¶1,m(m.m&ReadLine)Comout:shsname:f6[2 q1"n o$tty:,dsk:2;_fileoutput 1 $tty: $pm(m.mSelectBuffer)_filem(m.m^RVisitFile)dsk:2;_fileoutput ']2]1…ftJCLStart... !)fsdfn2w0fsdversion fshsnamefsdsname 0u..h hkfj z"n-d0a-15."e-d'' z"n0[60[70[80[9 @i@@@i@@0j<1a-32"n0;'d>@s@@ .-z"n.,zx6'.-1,zk0j z"nhx7'hk q7"nm(m.mFindFile)7' q6"nm6' ]9]8]7]6' 0fsmodified ftEND 0u..h ¤:@i..l& @:i..l%% m(m.mXUNAMEStartup) m(m.mProcessJCL) m(m.mSetupclockdisplay) :iEditorTypeDUMPED  & ec :pdumpdcp;tse :kill :e  ¨fshsname:f6[2 fsxuname:f6[3 ((fsjname/100.)&7777777777.)+(f6>):f6[4 f[bbindg1i  f[dfile etdsk:2;4input eihpef :ewcli:34 hki(set-next-io-streams"dsk:2;4input""clo:3;4output") hpef f]dfile f]bbind m(m.mInsertfile)clo:3;4output .(w):wi i  Ä.[1:[2q1-q2"g[1[2]1]2'q2jq1,q2x1]2 m(m.mSendtoCLOLSP)]1 Â1,m(m.m&ReadLine)Lispform:[1 m(m.mSendtoCLOLSP)]1Àm(m.m^RMarkDefun)[1.,(w.)x1 m(m.mSendtoCLOLSP)]1’.[1:[20[3q1-q2"g[1[2]1]2'q1j (q2-q1)/5<0u35q3/8u34>4l> q1j(q2-q1)/5*4/2q1j]3]2]1Ú[0f[bbind iconfig,minits,fsm,user,uuo,channl,tty,compro, ipktncp,chsncp,ethncp, ich11,dte,interl,3com, 0j<.-z;@i@m(m.mFindFile)minits;@s,-d33.i15.i12.i> hx0f]bbind m0]0 m(m.mSelectBuffer)config »[0fsxuname:f6[1wfsdfn1:f6[4wqPreviousBuffer[3 hx0m(m.mSelectBuffer).temp.hkg0 m(m.mWriteFile)AI:VSDB;14 hki SENT-BY:1 HEADER-FORCE:RFC733 TO:(1@EE) SUBJECT:ASAFECOPY TEXT;-1  g0m(m.mWriteFile)mc:.mail.;mail> qPreviousBufferu0m(m.mSelectBuffer)0 q3uPreviousBuffer ¹[PreviousBuffer m(m.mSelectBuffer)crash-reportshk [PreviousBuffer m(m.mInsertFile)ktv;ktvcrash 0j<:s;-di.bp>0j 0ji.dvpress .fo0lpt8 .deheadermacro .vxlvpu.4i .nsp .em .defootermacro 'bp .em .stheadermacro0 .stfootermacro10.4i .nf .rs  0j < :sFrom:11DUMP;0l3k :sVersion:;li.ls2  s.bp0li.ls1  > m(m.mWriteFile)KTV;KTVR :clear :$SendingthefiletoR...î$ :r"ktv;ktvr" :$îDPRESS??$:ifmore0î$(:dpressktv;ktvî$) :$îSendittotheDover?$:ifmore0î$( :doverktv;ktvpressî :listfdvr:.file.(dir)î$) :$BacktoEMACS?$:ifmore0 :continue  ]0m(m.mSelectBuffer)0 ]PreviousBuffer ºf[bbindwf[dfilew-1f[fnamsyntax[0[1[2[3[4[5[6 e\e[fne]e^ 128*5fsqvectoru0 :i*cu1 -1u2128 :i*1a[9d^iwq9#100.i]9u1 -1u232 :i*d@i@^?@u:0(127) :i*cu1 q1u:0(11.) q1u:0(12.) q1u:0(15.) q1u:0(33.) :i*0[0."e%0'w0a-12."e2a-15."e%0''w q0"ed@i@^L@'"#c']0u:0(14.) eregj4ls:i@r:x6 @y zji  jw<.-z;m(q:0(1a))> fsmsnamefsdsnameewdsk: hpef6hk eregj4k:l.,zkhx6 :ftListingFileis6  wÙ0j0u00u1 <:spage; -s:2c\+q0u0 ssecond-sin4c\+q1u1 > fsdfn2u9 [..o0f[readonly :erdsk:.glpr.;%logcount@y zjwq9f6i:q0\ipagesinq1\iseconds  ewdsk:.glpr.;pwef%logcount f]readonly]..o ˆEENV½EmacsenvironmentforDCP,SOLEY,BARMAR,HOBBIT,STANZE¢SSetupthelocalenvironment.²CDothethingsthatareconditionalonXUNAME”Cdoesjustthat¹CCommentscurrentparagraphbyinsertingsemicolons.·CRemovessemicolonsinsertedbyCommentLispText.•CR.M.Soley'sM-)•CR.M.Soley'sM-(¨CputanopenparenbeforelastsexpÀCEnterNILMode.(SameasLISPexceptformodeandcompiler¨CAllowM-XCompiletorecognizeNILÅCEnterSpanishRMode.(SameasTextexceptformodeandcompiler–CC-TalaMultics€CM-TalaMulticsviaSoley¤CDoa^AbeforeindentforLISPªCMakepressfilesreadablefromemacs¯CValretthecurrentregiontothesuperior€Readacommandandvalretit½Ctakeacommandandsendittothesuperior(withalt-p)£CProcesstheJobCommandLine«CDumpouttheEMACSinto;tsE³CsendstothelisplisteningtotheCLOdevice¢LISPevalsthecurrentregion.˜Csendsformtolisp³CEvaulatethecurrentforminthecurrentLISP«CRegionisALTOfont.MakeitreadabležCSetupforhackingMINITS±CMakethisfilesafe--sendittoAIandEE´ReadinthecrashfileandsendittotheDover.¤CMakeprintablelistingofmacrosfile. Itleavesmuchtobedesiredandisn'tdoneright,therefore itisacrock,butitwasdesignedtobequickanddirtyÜCProcessesthe%logfileinthebufferandappendsinfototheendof.glpr.;%logcount&SetupEENVLibrary XUNAMEstartup Setupclockdisplay CommentLispText UncommentLispText Soley'sMetaClose Soley'sMetaOpen ForgotOpenParen NILMode AddNILtoM-XCompile SpanishRMode MulticsC-T MulticsM-T ^AIndentforLISP ConvertRegion8bitto7bit ValretRegion Valret Comout ProcessJCL Dumpme SendtoCLOLSP EvalRegion ReadEvalRedisplay EvalLISPForm ConvertRegion,AltoFonttoReadable MINITS Safety DoverizeKTVCrashreports @MakeReadableTECO Process%logfile Ô+8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2„Ô+8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2