( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) C2[zS| [ 9 , 9< WF MM5& Check for Correct Superior& Fancy Mode Line& Kill MODLIN Library& Setup MODLIN Library~DIRECTORY~~DOC~ & Check for Correct Superior~DOC~ & Fancy Mode Line~DOC~ & Kill MODLIN Library~DOC~ & Setup MODLIN Library~DOC~ ~Filename~~Filename~~INVERT~1,m(m.m& Get Library Pointer)KMPTIME"e m(m.mLoad Library)TIME' m.m& Fancy Mode LinefsModeMacro m.m& Fancy Mode LineM.VMM & Set Mode Line fsOSTeco"e m.m& Check for Correct Superiorfs^RDisplay' m.m& Fancy Mode Line( ),m(m.m& Start Realtime Modeline Clock) 1fsmodech 0fo..QInvert Filenamesm.vInvert Filenames1,m(m.m& Get Library Pointer)EMACSm.m& Set Mode Linef(( )m.vMM & Set Mode Line )fsModeMacro fsOSTeco"e 0fs^RDisplay' 1fsmodech fsOSTeco"n0' [0[1 fsxjname-(f6MAILT)"e0' 2FO..QLast Correct Superioru1 fs%oplspu0 q0+q1"n q1-2"e2M.VLast Correct Superior' "#2uLast Correct Superior' 1fsmodechange 0-q0uLast Correct Superior' 0 -(fsqpptr*2)fsmodech [0[1[2[3[4[.1[.2[.3[.4 f[inslen f[sstring qEditor Nameu0 qModeu1 qBuffer Indexu3 0u.1 fsreadonlyu.2 :i*u.3 fsvz+bu.4 fnm.3 "n :i1q1uMode 0fo..Q1 Mode Hooku2 q2"nm2'' f[BBind f[DFile g..Jj :s[w.-1u.1 q.1jfq0ff~0-fq0-1"n0' hk g0i  g(M(M.M& Get Current Time)) fsOSTeco"n fsloadav[0 i g0' i [ fsOSTeco"e fs%OPLSP"n fsxjname-(f6MAILT)"n 0fo..QLISPT AutoLoad Hookf"nu.3' iLISP: ' "# iMAIL: ''' g1 qSubmodeu2 fq2"gi-2' qAuto Fill Mode"ni Fill' q:.B(q3+10)"ni Save' "#qAuto Save Default"n i NoSave'' qVisit File Save Old[0 q0"li SaveOld' "#q0"ei NoSaveOld'' ]0 q:.B(q3+12)f"n[0 i ReadOnlyFile q0"li/Buf' ]0' "#q.2"ni ReadOnlyBuf'' fs^RReplace"ni OverWrite' fsTyiSink"ni Def' Q.4"NI Narrow' MSet Mode Line Hook+0u2 fq2"gg2' 0fo..QEditor Typeu2 fq2"ni <2>'"#i -' qBuffer Filenamesu1 qBuffer Nameu2 q1"Net1 fsdfileu1 f~(fsdfn1:f6)2"e 0u2'' q2"ni 2' "#0a--"e-2d'' i]  fq1"gg1fq1r 0u4.fsvb fsosteco"n .(!z-.u4)j fshsname:f6u2 fsosteco-1"e fq2f~2"efq2d'' "#4f~DSK:"e4d fq2+2f~<2>"e fq2+2d''' zjfsdvers"e-2dq4-2u4'' "# .(s: z-.u4)j fsmachine:f6u2 :s;"l 1a- "ed' 3f~2:"e4d' :s:"l 1a- "ed'''' qInvert Filenames"n z-q4jg(:fx*(j))i ' 0fsvb zj fsdversion"'e+( fsdversion+2"'e)"l i =q:.b(q3+9)[0 q0"gq0\' "#-dq0+1"ei#' "#i~g0'' ]0'' zjQ.1JQ.1,[I zji  hf=..j"nhx..j' 0MODLINFancy Mode Line handler& Put winning mode line in effect& Get rid of this mode lineS Update Job Superior in Mode Line For use with LISPT if superior is changing. Checks to see if superior has changed, and calls MM& Set Mode Line if it has. This should be put in FS^R Display in order to win. Takes a minimal amount of overhead to check when superior has not changed. If job is a LISPT, runs qLISPT Autoload Hook if nonzero. oS Set the ..J Mode to display options. When setting the major mode, call this with a nonzero argument and the major mode name as a string argument. It will change the mode and run the Mode Hook variable, if there is one.& Setup MODLIN Library & Kill MODLIN Library & Check for Correct Superior & Fancy Mode Line +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2