H [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0))  K KK#KNK=/LK,WHo2&q)8,B5PFImHoI?K=9i->IwM;K;LL:&I wB;*/K.MY'g'[wZ]'}_'}'M(G{()Q,)8/*"=.MI)+83/X8J8|0f4BY{2 1k +1 0; )19 g5] C5 2 W9 c2' r6+ y5[ Z= YY +Yi Y QYY 2P <Pg EYS N. XO dPg mW Y Y} 7YS +Y Z VV W5 yZ1 W? Z+ ,Z# :W LN VMx W sP ~PCNDNN/M?NX NXVNbN O OJPg OP5!PC*O9gU}PNVVOlQTu W1SSR9QkQQ`U%Uy}SVf7S[UoUFMPMW_# Babyl "# Babyl <# Babyl ># Babyl `# TDebug C& C Mode& Cc Self& Get JCL& GRAMMAR Mode& H Mode& Hack Syntax& HAKLIB Babyl Edit Mail Hook& HAKLIB Babyl M Hook& HAKLIB Babyl R Hook& HAKLIB Babyl Survey FROM/TO Control& HAKLIB Buffer Creation Hook& HAKLIB LEDIT Setup Hook& HAKLIB Pascal Mode Hook& HAKLIB Set Mode Line Hook& HAKLIB TECO Mode Hook& HAKLIB TeX Mode Hook& HAKLIB TTY Macro& HAKLIB WORDAB Setup Hook& Impurify& Kill HAKLIB Library& Label CRLF Hack& NOTES Mode& PCL Mode& Read JCL& Run Subsys& Setup HAKLIB Environment& Setup HAKLIB Library& Startup B& Startup BABYL& Startup INFO& Startup LEDIT& Startup MMBuffer MenuC ModeGrammar ModeMIDAS ModePCL ModeTest Load^R Auto Save^R Change Case Letter^R Find Long Line^R Find Unmatched Paren^R Forward Screen or Exit^R Indent to Column^R Label Search^R Move to Screen Bottom^R Move to Screen Top^R New Window^R Previous Buffer^R Refresh Screen^R Reverse Zap to Character^R Run Teco^R Save/Restore Point^R Super Parenthesis^R Swap Chars Before Point^R Whoedit^R Zap to Character~DIRECTORY~~DOC~ # Babyl "~DOC~ # Babyl <~DOC~ # Babyl >~DOC~ # Babyl `~DOC~ # TDebug C~DOC~ & C Mode~DOC~ & Cc Self~DOC~ & Get JCL~DOC~ & GRAMMAR Mode~DOC~ & H Mode~DOC~ & Hack Syntax~DOC~ & HAKLIB Babyl Edit Mail Hook~DOC~ & HAKLIB Babyl M Hook~DOC~ & HAKLIB Babyl R Hook~DOC~ & HAKLIB Babyl Survey FROM/TO Control~DOC~ & HAKLIB Buffer Creation Hook~DOC~ & HAKLIB LEDIT Setup Hook~DOC~ & HAKLIB Pascal Mode Hook~DOC~ & HAKLIB Set Mode Line Hook~DOC~ & HAKLIB TECO Mode Hook~DOC~ & HAKLIB TeX Mode Hook~DOC~ & HAKLIB TTY Macro~DOC~ & HAKLIB WORDAB Setup Hook~DOC~ & Impurify~DOC~ & Kill HAKLIB Library~DOC~ & Label CRLF Hack~DOC~ & NOTES Mode~DOC~ & PCL Mode~DOC~ & Read JCL~DOC~ & Run Subsys~DOC~ & Setup HAKLIB Environment~DOC~ & Setup HAKLIB Library~DOC~ & Startup B~DOC~ & Startup BABYL~DOC~ & Startup INFO~DOC~ & Startup LEDIT~DOC~ & Startup MM~DOC~ Buffer Menu~DOC~ C Mode~DOC~ Grammar Mode~DOC~ MIDAS Mode~DOC~ PCL Mode~DOC~ Test Load~DOC~ ^R Auto Save~DOC~ ^R Change Case Letter~DOC~ ^R Find Long Line~DOC~ ^R Find Unmatched Paren~DOC~ ^R Forward Screen or Exit~DOC~ ^R Indent to Column~DOC~ ^R Label Search~DOC~ ^R Move to Screen Bottom~DOC~ ^R Move to Screen Top~DOC~ ^R New Window~DOC~ ^R Previous Buffer~DOC~ ^R Refresh Screen~DOC~ ^R Reverse Zap to Character~DOC~ ^R Run Teco~DOC~ ^R Save/Restore Point~DOC~ ^R Super Parenthesis~DOC~ ^R Swap Chars Before Point~DOC~ ^R Whoedit~DOC~ ^R Zap to Character~DOC~ ~Filename~~Filename~~INVERT~1f[NoQuit m.lSaved Point Vector %Initial Local Count 0fo..qBuffer Creation Hookm.vHAKLIB Old Buffer Creation Hook :m(m.m& HAKLIB Buffer Creation Hookm.vBuffer Creation Hook)qHAKLIB Old Buffer Creation HookuBuffer Creation Hook)1fsNoQuit !"!0fs^RInitu..'0u:.X() 2401m.vSLOWLY Maximum Speed m(m.m& HAKLIB TTY Macrof(fsTTYMacw)) m.m& HAKLIB Set Mode Line HookuSet Mode Line Hook q...Du.../ q...Ku...D q.Wu...K m.m^R Autoargumentu..-460.-1[0 10 m(m.mMake Prefix Character).UU.\ m(m.mMake Prefix Character).DU.W qPrefix Char List[0 :iPrefix Char List0Control-\ q.U Control-W q.D  m.mLoad Library fsXJName:f6[J fsOSTeco"emLSends 1uSends Doc m.m^R Send/PrSendU:.X()' fsOSpeed-2401"lmLSlowly m.m^R Set Screen SizeU:.X(S)' qEMACS Version-161"g mLComplt' mLScrLin 1: f=JMM"n1:' 1: 1: mLTDebug m.m& Impurify mIIVORY^R Ivory-Bound This Page mITMACS^R Break Line mITMACSUncontrolify mITMACS^R Uppercase Last Word mITMACS^R Lowercase Last Word mITMACS^R Uppercase Last Initial 0uDisplay Matching Paren 1uDisplay Mode Line Inverse 1uError Messages in Echo Area 1uAuto Save Default 1m.vSuppress Blanking 1m.vNext Screen Context Lines 1m.vTags Find File m.lOverwrite Mode %Initial Local Count m.m& HAKLIB WORDAB Setup Hookm.vWORDAB Setup Hook fsOSTeco"n g(fsXUName)j<:s.;>0,.k [UhfxU :i*SCR:U-SAVE..0m.vAuto Save Filenames fsHSNameu0:i*0U.BABYLm.vBabyl Default File ' :iAuto Push Point Notification (Mark Set) m.mSave All Filesm.vMM Save Some Buffers m.m~DOC~ Save All Filesm.vMM ~DOC~ Save Some Buffers m.m^R Save Filem.vMM Save All Files m.m~DOC~ ^R Save Filem.vMM ~DOC~ Save All Files :i*Extended Command: m.vRead Command Prompt :i*Instant Command: m.vInstant Command Prompt 1m.vInhibit TeX Dollarsign m.m& HAKLIB TeX Mode Hookm.vTeX Mode Hook @:I*/m.m^R Examine Next M.Mm.qX m.m^R Forward Screen or Exitm.q  m.m^R Previous Screenm.qH :mTECO Mode Hook /m.vExFun Mode Hook m.m& HAKLIB TECO Mode Hookm.vTECO Mode Hook @:I*/1m.lAuto Fill Mode 0m.lSpace Indent Flag /m.vText Mode Hookm.vScribe Mode Hook 0m.vReindent ENDs 1m.vBegin on Same Line 0m.vMatch Block Word 4m.vDecl Body Indentation 4m.vProcedure Body Indentation 0m.vGlobal Comment Column m.m& HAKLIB Pascal Mode Hookm.vPascal Mode Hook m.m& HAKLIB LEDIT Setup Hookm.vLEDIT Setup Hook 0m.vLEDIT Save All Files Query @:I*/-1m.lDisplay Matching Paren 40m.vComment Column :i*(defunm.vLabel Search Prefix :i*(m.vLabel Search Suffix :i*A'm.vLabel Content Syntax /m.vLISP Mode Hook :i*Babylm.vMail Reader Library :i*BabylMm.vMail Sender Library -1m.vBabyl N After D m.m& HAKLIB Babyl M Hookm.vBabyl M Hook m.m& HAKLIB Babyl R Hookm.vBabyl R Hook' m.m& HAKLIB Babyl Survey FROM/TO Controlm.vBabyl Survey FROM/TO Control 0fo..qHAKLIB Babyl Label Answered"e @:i*|1,-1m(m.m& Label Babyl Message)to answer|m.vBabyl R Done Hook' 0m.vBabyl Strip Local Host 1m.vBabyl Day of Week Flag :i*[Address][Full-Name][Keywords][In-Real-Life][In-Reply-To][Location] [Mail-From][Message-id][Office][Phone][Postal-Address][Rcvd-Date] [Received][Redistributed-To][Redistributed-By][Redistributed-Date] [Remailed-Date][Remailed-From][Remailed-Sender][Remailed-To] [ReSent-Cc][ReSent-Date][ReSent-From][ReSent-Sender][ReSent-To] [Return-Path][Stanford-Phone][Telephone][Via] m.vBabyl Reformation Flushes These Fields q...(u...[q...)u...] q..^u..!q...^u...! q.^u..^700.fs^RInitu...^ q...Wu:.U(A) q..Su:.U(C) q..Ru:.U(E) q..Qu:.U(F) q[u:.U() m.m^R Character SearchU..S m.m^R Reverse Character SearchU..R m.m^R View Q-regU..Q m.mCompileU..Z m.m^R Just One SpaceU.. m.m^R Indent Comment RelativeU.; m.m^R Indent NestedU...I m.m^R Indent RelativeU..I m.mRevert FileU..* m.m^R Count Lines PageU...= m.mRename BufferU:.U() m.mSet Visited FilenameU:.U() m.m^R Indent to ColumnU:.U(9) m.m^R Down Indented LineU:.U() m.m^R Up Indented LineU:.U() m.mView BufferU:.U() m.m^R Kill Terminated Wordu:.U(D) m.mInsert FileU:.U(I) m.m^R Next Several ScreensU:.U(N) m.m^R Previous Several ScreensU:.U(P) m.mUndoU:.U(U) m.mView FileU:.U(V) m.mInsert BufferU:.U(Y) fsOSTeco"nm.mRerun CCLU:.X(Z) m.mPush to EXECU:.X(@)' m.m^R Break LineU..O fsOSTeco"nm.m^R WhoeditU...W' "#0fs^RInitU...W' m.mBuffer MenuU:.X() m.m^R Uppercase Last InitialU:.X(C) m.m^R Lowercase Last WordU:.X(L) m.m^R Uppercase Last WordU:.X(U) m.m^R New WindowU..W m.m^R Refresh ScreenU.L m.m^R Swap Chars Before PointU.T m.m^R Find Unmatched ParenU...( m.m^R Super ParenthesisU...) m.m^R Find Long LineU:.U() m.m^R Auto SaveU:.U() m.m^R Change Case LetterU:.U() m.m^R Run TecoU:.U() m.m^R Label SearchU:.U(.) m.m^R Move to Screen BottomU:.U(B) m.m^R Move to Screen TopU:.U(T) m.m^R Zap to CharacterU...S m.m^R Reverse Zap to CharacterU...R m.m^R Previous BufferU:.X(\) m.m^R Save/Restore PointU:.X(J) 1: fsMSName:f6u0 fsOSTeco"efsXUName:f6[U etDSK:0;U FOO' "#et0FOO.BAR' :iEditor NameModE :i..JModE 1fsModeCh 0fsNoQuit :m(1,m.m& Startup Jf"ewm.m& Read JCL')1,f Library: (1,f Function: [1)[0 :g(m.a01)m.vMM 1 :g(m.a0~DOC~ 1)m.vMM ~DOC~ 1 z"efj'j@f k zj."e0fsModifiedw0fsXModified' 0,0a- "e-d' 0,0a-"e-d' y0[1[0 m(m.m& Get JCL) j:s"n.,z@fx1-d' hfx0 0fsModifiedw0fsXModified fq0"nm(m.mFind File)0' fq1"gm1' m(m.m& Run Subsys)Babylm(m.m& Run Subsys)Info[0:i*[1 "emL1 :iEditor Name1 :i..J1  @:i..L|1m(m.m& Run Subsys)1| ' m.m1u1 m.m^R Return to Superior !again! fsTTYMacf"nuAmA' f[BBindm(m.m& Get JCL) hfx0f]BBind m10 mRoagain:iEditor NameLEDIT:i..JLEDIT  m(m.mLISP Mode) 0fsSuperior mLLEDIT :m(m.m& Read JCL):iEditor NameMMail:i..JMMail  mLMMail :m(m.m& Read JCL)f:m(m.aIVORYTest Load)f:m(m.aTMACSBuffer Menu)m(m.m& Init Buffer Locals) m.m^R Indent Relativem.qI 1m.lSpace Indent Flag 40m.lComment Column :i*--m.lComment Start :i*-- m.lComment Begin 1m(m.m& Set Mode Line)Grammar:m(m.mText Mode)m(m.m& Init Buffer Locals) 1m.lSpace Indent Flag 9fs^RInitm.qI 32m.lComment Column (:i*+1)m.lComment Rounding (:i*;)f(m.lComment Startw)m.lComment Begin :i* m.lLabel Search Prefix :i*:=m.lLabel Search Suffix :i*Am.lLabel Content Syntax 1,(:i* )m.lParagraph Delimiter [2fq2:"g:i2MIDAS' 0fo..qMIDAS Mode Dispatchf"n(1,)m.q.D' "#w96*5fsQVector[0 m.m^R Go to AC Fieldu:0(A) m.m^R Go to Address Fieldu:0(E) m.m^R Go to Next Labelu:0(N) m.m^R Go to Previous Labelu:0(P) q0m.vMIDAS Mode Dispatch(1,)m.q.D' 1m(m.m& Set Mode Line)2m(m.m& Init Buffer Locals) 1,(m.m^R Tab to Tab Stop)m.qI 1,(:i* : : : : : : : : : : : : : : : : :( ))m.lTab Stop Definitions 1,40m.lComment Column 1,(:i*+1)m.lComment Rounding 1,(:i*/*)m.lComment Start 1,(:i*/* )m.lComment Begin 1,(:i* */)m.lComment End @:i*|m(m.m& Exit EMACS) declare /noconfirm pcl-routines sys:cc.pcl cc 1 |m.lCompile Command 1m(m.m& Set Mode Line)Cm(m.m& Init Buffer Locals) 1,(m.m^R Indent Relative)m.qI 1,(@:i*|m(m.m& Exit EMACS) declare pcl 1 |)m.lCompile Command :i*CommandProcedurem.lLabel Search Prefix :i*;( (m.lLabel Search Suffix :i*Am.lLabel Content Syntax 1,(:i*!)f(m.lComment Start)m.lComment Begin 1m(m.m& Set Mode Line)PCLf:m(m.m# TDebug X)[1.[0 :i*abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[2 f"lw-'< "l-@:f2f(-."e@fg.,q0')l-c' "#@:f2f(-z"e@fgq0,.')l' 1a-Z"g1a-z+Zu1'"#1a-Z+zu1'f1:"lc'> .,q0fqPrevious Buffer:m(m.mSelect Buffer):ffsWindow[0.[1 zj:f fsWindow-q0"em(fs^RInit)' q1jq0fsWindow @:m(m.m^R Next Screen)ff&1"n@:f0' @:m(m.m^R Reposition Window)ff&1"e-fsPJATYw' fsRGETTY"em( fs^RInit)' fs^RArgP&6"e fs^RExpt-1"n f[Windowf+' "#0''"#'+(fs^RVPos)f(( -1,)fsTyoHash )+1f(-1,)@f0ff&1f"n':m(m.m^R Move to Screen Edge)-:m(m.m^R Move to Screen Edge).-b-2"lb+2:j"e@fg0'' .(.-(0@L.)[0)j q0"e.-b-2"e:c"e@fg'1u0'' q0"e-2au0:i0 0' "#q0-1"e0au0:i00 ' "#-au00a[1:i010'' .-(fq0)f0-(fq0)[0[1[2[3 qSaved Point Vectoru2 ff&1"'eu0 m.ifi:fcu1 q1-33."n q1-177."e:i1Delete' "#q1-40."lq1+100.u1:i1Ctrl-1' "#q1:i1''' "#:i*CfsEchoDis q0"e3,m(m.m& Read Line)Named Point: u1' "#:i*Name [CRL Prefix q2[CRL List 2,m(m.m& Read Command Name)Named Point: u1' fq1:"g0' :i*Name 1u1' @:fo21u3 q0"e.u0q2[..o q3"l-q3*5j10,0i-10cq1,.fsWord5c' "#q3*5+5j' q0,.fsWord' "#q3"l:i*1 holds no saved point@fg' "#.u0q:2(q3+1):j"e:i*Out of range@fg' "#q0m(m.m& Maybe Push Point)''' 0z-.[0fnz-q0j0l.[2 ff&1"e8'"#'[1 @f  LfsSHPos2,.k z-.-q0"gq1'"#z-.u0q1f"n+q3''mMM & Xindent q2+(q3/8)-.f"gw0'0[Auto Push Point Option .[1[9 @m(m.m^R Character Search) q1,.f:m(m.m& Kill Text)-:m(m.m^R Zap to Character){1,m(m.m& Read Line)Teco: [0 fq0:"g0' f=(q:.n(0)f"ew:i*')0"n q.n[..ozj-5d j5,0i]..o q0u:.n(0)' @m(q0(]0))wqComment Beginf"eqCommentStartf"ew:i*; ''[B qComment Endf"ew:i*'[E z-.[Z@fn|z-qzm(m.m& Maybe Push Point)| 0f[VBjgBqBuffer Filenamesf"nf[DFile' f=(fsDDevice)PS"ng(fsDDevice):i' i g(fsDFn1).ig(fsDFn2).i fsDVersionf"ewe?"n1'"#e[ere]fsIFVers+1''\ i, 0,-1fsFDConvi, Edit by g(fsXUName) gEi gB.[0fnq0jgEi 0,.@v 1<500:fb VEDIT; @f  L 1,1a-=@:; @:f01234567f(-z@;)L 8[..E8f[IBase .(\[0)f(,.k%0\),.> 0Q:.B(qBuffer Index+4)[..O f[DFile 1:<1,1m(m.m^R Save File)>"l :i*Auto save failed@fg' 0.[0fnq0j ff"n'"#fsWidth'[1 <.-z;2@:LfsSHPos-q1"g.u00'> :i*No long lines found@fg0zj-ful.-z[0.[1 -:s ( A fdl.-1[2 q0+zj <-fll.-q2-1:; q0+zj-ful1a*5+2(q0+zj):g..Di> q0+zjq1,.:iDefault Major ModeLISP m.m^R LEDIT Find Functionu.... m.m^R LEDIT Save DEFUNu...Y m.m^R LEDIT Zap to LISPu:.X(Z) m.m^R LEDIT Zap DEFUN to LISPu..Zm.m^R Add Global Word Abbrevu:.X(+) m.m^R Inverse Add Global Word Abbrevu:.X(-) m.m^R Add Mode Word Abbrevu:.U(+) m.m^R Inverse Add Mode Word Abbrevu:.U(-) m.m^R Word Abbrev Prefix Marku:.X() m.m^R Abbrev Expand Onlyu... m.m^R Unexpand Last Wordu:.X( ):i*!m.lLabel Search Prefix :i*:!m.lLabel Search Suffix :i* Am.lLabel Content Syntax 0fs^RInitf(u..")u..' 0fo..qTECO Mode Dispatchf"n(1,)m.q.D' 1,m.m& File PURIFY Loaded"e m(m.mLoad Library)PURIFY' 96*5fsQVector[0 m.m^R Backward Teco Conditionalu:0(") m.m^R Forward Teco Conditionalu:0(') 1,m(m.m& Get Library Pointer)FIXLIB"n m.m^R Insert Variable Nameu:0(V) m.m^R Insert EMACS Functionu:0(F) m.mGoto Teco Functionu:0(G) m.mWho Usesu:0(W) m.mTrace Function Callu:0(W) m.mUntrace Function Callu:0(W) m.mList Traced Function Callsu:0(L) m.m^R Examine Next M.Mu:0(X) m.m^R Goto Next M.Mu:0(N) m.m^R Goto Previous M.Mu:0(P) m.m^R Describe Previous M.Mu:0(D) m.m^R Print Next M.M Call Pathsu:0(M) m.m^R Print Key Call Pathsu:0(K) m.mPrint Call Pathsu:0(C) ' q0m.vTECO Mode Dispatch(1,)m.q.Do:i*ProcedureFunctionm.lLabel Search Prefix :i*;:(m.lLabel Search Suffix :i*A'm.lLabel Content Syntax 0m.lComment Column (:i*/4+1*4)m.lComment Rounding m.m^R Indent PASCAL Stmtm.qI 0fo..qPascal Mode Dispatchf"n(1,)m.q.D' 96*5fsQVector[0 m.m^R Plus Oneu:0(+) m.m^R Insert Commentu:0(*) m.mGlobal Pascal Commentu:0(;) m.mForward Levelu:0([) m.mBack Levelu:0(]) !"!m.m^R Start Stringu:0(') m.m^R Slurp Pascal to Charu:0(!) m.m^R Pascal ENDU:0(E) m.m^R Pascal WHILEU:0(W) m.m^R Pascal FORU:0(F) m.m^R Pascal WITHU:0() m.m^R Pascal IFU:0(I) m.m^R Pascal ELSEU:0() m.m^R Pascal PROCEDUREU:0(P) m.m^R Pascal FUNCTIONU:0() m.m^R Pascal PROGRAMU:0() m.m^R Pascal REPEATU:0(R) m.m^R Pascal BEGINU:0(B) m.m^R Pascal CASEU:0(C) m.m^R Pascal RECORDU:0() q0m.vPascal Mode Dispatch(1,)m.q.Df[BBindg()j <:s^M"ez"e:i*"#hfx*''-2di >f[BBindg()j z<ici> hfx*[L[O[P[S[C[H[0[7[8[9 !NewLabel! 0fo..qLabel Search Prefixf(uP)"eoNoLabel' 0fo..qLabel Search Suffixf(uS)"eoNoLabel' 0fo..qLabel Content Syntaxf(uC)"e !NoLabel! :i* No Label Definition for this buffer. Create it@fg 1m(m.m& Yes or No)"e0' m.m& Label CRLF HackuH 1,m(m.m& Read Line)Label Prefix: mHm.lLabel Search Prefix 1,m(m.m& Read Line)Label Suffix: mHm.lLabel Search Suffix 1,m(m.m& Read Line)Label Syntax: m( m.m& Hack Syntax)m.lLabel Content Syntax oNewLabel' .u0fnq0j m(m.m^R Widen Bounds) ff&1u2 q2"ej1,f Label: m.lLabel Search Last'"#@l' qLabel Search LastuL .uO <:sL;.u8fkc.u7 -:sP"eq8j!' fkc@f  l .-q7(q8j)"n!' @f  l .u7:sS"e!' fkc.-q7(q7j)"eoFound'> qOj<:sL;.u8fkc.u7 -:sP"eq8j!' fkc@f  l <.-q7@;sCfk@;> .-q7(q8j)"n!' .(:sS;fkc.u8)j <.-q8@;sCfk@;> @f  l .-q8"eoFound'> q2"e:i*No such label: L'"#:i*No more L'@fg0 !Found! 0@lq0m(m.m& Maybe Push Point) .u0 qComment Startu7 0u80u9 q7"n <%9b-.;-1@l 2f= "eq8:@;'"# fq7f=7:@;1u8'>' q8"eq9'"#1'@l -1f[^RInhibit 0@v 0@:f00,(fsZ)fsBound qParagraph Delimiter[0 fq0"g:i00-'"#:i0-' q0(]0)[Paragraph Delimiter 0fo..qBabyl Edit Mail Dispatchf"n[.D:' 96*5fsQVector[.D 1,m.m^R Babyl Yankf(u:.D(Y))[...Y 1,m.m^R Fill Indented Mail Regionu:.D(F) m.m^R Babyl Add Subject Fieldu:.D(S) m.m^R Babyl Add To-Recipientu:.D(T) m.m^R Babyl Add Cc-Recipientu:.D(C) m.m^R Babyl Delete Recipientu:.D(D) q.Dm.vBabyl Edit Mail Dispatch1fo..qHAKLIB Babyl CC Self"e' .-z[PfnqP+zjj fsOSTeco"eiCc: '"#iBcc: ' g(0fo..qBabyl User Namef"ewfsXUName:f6') i  fsWindowf"lw0'+.fsWindow jk@m(m.m^R Babyl Add To-Recipient) @m(m.m^R Babyl Add Subject: Field) zj0fsWindow :m(m.m& Cc Self)[0[2[..oq1j 0fo..qFlush From Surveyu0q0"n <:s0; !fkc.,q1fu2 !,fkc q2,.k>' q1j<:s!.;-fwk> u..oj fsOSTeco"e5' :s Date: "e:i0Unknown' "#:x0f[BBindg0 0a-)"e-flk-@f  k' -4c1a- "edi-' j1a"a@:f, l@f, l fsFDConvertu0q0+1"er' .+1-z"n:i0Unknown' "#hk400000000.,q0fsFDConvert j1a- "ef0' 2jd3fc5jdhx0' f]BBind' u..oq1jg0 i.u1 zj5fsQPPtr m(m.m& Push Message) 1m(m.m# Babyl J) 2,9999m(m.m& Babyl Survey Several Messages) qPfsQPUnwind :m(m.mSurvey Menu)jzjqHAKLIB Old Buffer Creation Hook[1 fq1"gm1' 5fsQVecu1 2u:1(0) q1uSaved Point Vector 1m.lAuto Fill Mode m.m^R TeX "m.q"!''! @:i*|m(m.m& Exit EMACS) TEX 1 |m.vCompile Command qParagraph Delimiter[11,(:i*1\$$%)m.lParagraph Delimiter 2,(fsHeight/12)fuEcho Area Height fsOSpeed-qSlowly Maximum Speed"g 0'"#fsOSpeedf"e2400'/500+1'm.vSlow Search Lines UsedfqEditor Type"g:iEditor Type' .-z(-:sSave(off)"nNoSave' "#-:s Save"nfkd'')+zjHAKLIBEMACS macros for FMF and KRONJS Necessary stuff for the library to workS Remove pure hooks etc.S Do the actual initializationS Impurify a function from a given libraryS Get cleaned up JCL into current bufferS Interpret JCL as filename to visitS Babyl subsystemS INFO subsystemS Run string arg as subsysS Process JCL for LISP editorS Process JCL for MM inferiorC Load any modified macros into Mm-vars and ^R-keys. g(m.aIVORY~DOC~ Test Load)jkC Display information about all buffers. g(m.aTMACS~DOC~ Buffer Menu)jkC Set up for CS143 parser grammars.S Set up for editing notes to myself.C Set up for editing PDP-10 assembly language.C Set up for editing C codeC Set up for editing PCL codeC Exit backtrace and continue macro execution.^R Twiddle case of next numarg letters^R Like c-X B Return.^R View the next screenful. If there are no more, exit recursive ^R level.^R Find a new window for point. If given a numarg, tries to put point on that line; otherwise, tries to fit defun, paragraph etc. on screen.x^R Tell TECO the screen should be repainted. With no arguments, says the entire screen is dirty. A numerical argument refreshes that line, relative to the current line. One c-U is like an argument of 0. Two c-Us refresh the current window.^R Go to first line of screen.^R Go to last line of screen.^R Switch the characters before point. Treats CRLFs as single characters. Point is unchanged.^R Save or restore point. Reads a char from the echo area; if it is an altmode, reads a long name. If given an argument, labels point with that char or name; otherwise, restores from a previously saved point.^R Insert whitespace at start of line. Arg (default 8) is number of columns. If already within indentation, adds to it. A zero arg always deletes all indentation.^R Kill to next occurrence of character^R Kill to previous occurrence of character^R Read a string and macro it.^R Update edit history. A variable VEDIT in the first 500 lines is incremented.^R Run an auto save to protect buffer from munging.x^R Find a line longer than the terminal width. Starts at point. An argument if given is used instead of tty width.^R Find open paren without matching close.^R Insert enough )s to finish top level DEFUNS Set keys for LISP editorS Set keys for word abbreviationS Set prefix keys for editing TECO codeS Set variables and keys for PascalS Convert ^M to a CRLF, make null string into ^XS Put ^S before and ^O after each char in a string Like TAGS, but works only on buffer. Look for label starting at beginning of buffer. If given an argument, continue search. Needs: Label Search Prefix - string defining prefix Label Search Suffix - string defining suffix Label Content Syntax - string of chars (Lisp syntax) within labelsS Set keys for editing mailS Add self as BCC to outgoing messagesS Set up outgoing msgsS Clean up survey menusC# Enter SvM on all messagesC# Go to start of messageC# Go to end of messageS Set up permanent local varsS Set vars for TeX modeS Set tty-dependant varsS Clean up mode line & Setup HAKLIB Library & Kill HAKLIB Library & Setup HAKLIB Environment & Impurify & Get JCL & Read JCL & Startup BABYL & Startup B & Startup INFO & Run Subsys & Startup LEDIT & Startup MM Test Load Buffer Menu Grammar Mode & GRAMMAR Mode & NOTES Mode MIDAS Mode C Mode & C Mode & H Mode PCL Mode & PCL Mode # TDebug C ^R Change Case Letter ^R Previous Buffer ^R Forward Screen or Exit ^R New Window ^R Refresh Screen ^R Move to Screen Top ^R Move to Screen Bottom ^R Swap Chars Before Point ^R Save/Restore Point ^R Indent to Column ^R Zap to Character ^R Reverse Zap to Character ^R Run Teco ^R Whoedit ^R Auto Save ^R Find Long Line ^R Find Unmatched Paren ^R Super Parenthesis & HAKLIB LEDIT Setup Hook & HAKLIB WORDAB Setup Hook & HAKLIB TECO Mode Hook & HAKLIB Pascal Mode Hook & Label CRLF Hack & Hack Syntax ^R Label Search & HAKLIB Babyl Edit Mail Hook & Cc Self & HAKLIB Babyl R Hook & HAKLIB Babyl M Hook & HAKLIB Babyl Survey FROM/TO Control # Babyl ` # Babyl " # Babyl < # Babyl > & HAKLIB Buffer Creation Hook & HAKLIB TeX Mode Hook & HAKLIB TTY Macro & HAKLIB Set Mode Line Hook +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2