x [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0))   "-+=VK-MkM>[ Y C?e Y Du OF5 B KO1,zWp,,d-,Y!'}Y, 8-)-?\v'n'U"J4,bS"s}{2Ɏ& INFO Job& JLK Visit File Hook& JLKMAC RMAIL Reply Hook& JNAME INIT& MAIL Job& Mail Mode& Process JCL& Restart ..L& RMAIL Job& Setup JLKMAC Library@ ListingJLK SetupStartupTMACS SetupValret Region^R Comment-out Region^R Comment-out Text^R Copy From Previous Line^R Edit Local Modes^R End Comment New Line^R Uncomment-out Region^R Uncomment-out Text~DIRECTORY~~DOC~ & INFO Job~DOC~ & JLK Visit File Hook~DOC~ & JLKMAC RMAIL Reply Hook~DOC~ & JNAME INIT~DOC~ & MAIL Job~DOC~ & Mail Mode~DOC~ & Process JCL~DOC~ & Restart ..L~DOC~ & RMAIL Job~DOC~ & Setup JLKMAC Library~DOC~ @ Listing~DOC~ JLK Setup~DOC~ Startup~DOC~ TMACS Setup~DOC~ Valret Region~DOC~ ^R Comment-out Region~DOC~ ^R Comment-out Text~DOC~ ^R Copy From Previous Line~DOC~ ^R Edit Local Modes~DOC~ ^R End Comment New Line~DOC~ ^R Uncomment-out Region~DOC~ ^R Uncomment-out Text~DOC~ ~FILENAME~~FILENAME~~INVERT~M.M& JLK Visit File HookM.VVisit File Hook M.M^R Edit Local ModesU. M.M& ROTATED DIRECTORY LISTINGM.VDirectory Lister -1M.V^R Exit Flag 0M.VSpace Indent Flag :I*Command: M.VRead Command Prompt :I*M.VJCL M.M& JNAME INIT[0 Q0M.VDIRED-JCL ]0 M.M& JLKMAC RMAIL REPLY HOOKM.VRMAIL REPLY HOOK M.M& RMAIL JOBM.VRMAIL-JCL M.M& INFO JOBM.VINFO-JCL M.M& MAIL JOBM.VMAIL-JCL M.M& MAIL MODEM.VMAILT-JCLFSVZ"NZFSVBW0FSVZ' "#FSZ-(FSVB)FSVZW0FSVBW' H.[PFS^RHPOS 0L-@F 0L.+(:F)-QP+1"GFG' 1:<0,QH:FM>"NOSPACES' :F,FU0XH FQH"GQPJ.,(GH).' !SPACES!QPJ.,(,40.I).f[sstring qCommentStart[0 q0"e:i0;' 0l:fb0"el.' :l.,(gCommentEnd .-z"Ll'"#i ')..[0:,.F[1J .f[vb fsz-q1F[VZ qComment start[1 qComment end[2 fq1[3 fq2[4 b,z.[0:,.F[1J .f[vb fsz-q1F[VZ qComment start[1 qComment end[2 fq1[3 fq2[4 M(M.M^R Mark Paragraph) :M(M.M^R Comment-out Region)M(M.M^R Mark Paragraph) :M(M.M^R Uncomment-out Region).[1:[2q1-q2"e]2]1:i*NOR No Region to ValretFSERR' q1-q2"G[1[2]1]2' [3q1,q2x3 3]3]2]1"N.' .[0FNQ0J.ZJ14.[1 -:s 1"E.' .U1:SLocal Modes"E.' Q1JFSZ-.FSVZ nM(M.M& Recursive ^R Set Mode) FSWIDTH,79FU..0[FILL COLUMN M(M.MTEXT MODE) M.M^R RMAIL Yank[...YM.M^R Break LineU..M M.M^R Buffer GraphU...% M.M^R Comma-ArgU.,Q.,U.., M.M^R Draw Vertical LineU.| M.M^R Select BufferU:.X()Q...;U..; Q...?U.? Q..MU.MQ:.X()U..O Q.VU.. Q..VU..H FS%TOFCI"N Q..U Q.U.C Q..^U.^ ' M.M^R Indent UnderU.\ M.M^R Indent RelativeU...I M.M^R Indent Comment RelativeU...; M.M^R Comment-out TextU.+ M.M^R Uncomment-out TextU..+ M.M^R Comment-out RegionU.! M.M^R Uncomment-out RegionU..! M.M^R String SearchU..S M.M^R Reverse String SearchU..R M.M^R Character SearchU./ M.M^R Reverse Character SearchU../ M.M^R Reposition WindowU...L M.M^R Move to Screen EdgeU.. M.MCompileU. M.MSave All filesU. M.M^R Display Date and TimeU...? M.MSAIL Character ModeU..." M.MAppend to FileU:.X(F) M.M^R Mark Whole BufferU:.X() M.MValret RegionU..! M.M^R Copy From Previous LineU... M.M^R End Comment New LineU...M 1M.VTAGS Find FileFSXJNAME:F6UJ @:I*/M(M.MLOAD LIBRARY)LISPT/[..9 FSLISPT"NM..9' "#F~JLISPT"EM..9' "#F~JMACST"EM..9''' ]..9 M.M& RESTART ..LU..L FSHeight/18+1FSECHOLINES FSRGETTY"E3FSLINES' 0FSSAIL ET.NULL. (FILE) FSMSNAMEFSDSNAME 0FO..QJ-JCLF"EMM& PROCESS JCL'U..0 FQ..0"G:M..0' FNM(0FO..Q& Process OptionsF"E:I*') 200.+RFSREREADW FSLISTEN+Z-B"N:' FSRGETTY"E IEMACS Editor, Version GEMACS VERSIONHFX..0FT..0 Ready. :' FT  M.M^R Center LineU0 IEMACS EditorJ1M0WHFX..0FT..0  IVersion GEMACS VERSIONJ1M0WHFX..0FT..0  QEMACS VERSION-140"GMMInsert Date'"#mmget date'WJ1M0WJmmUntabify HFX..0FT..00U00U..0 FSHEIGHT/2-4 FTREADY. :FV90:' 0U..H0[0:I*[1 FJ."EQ1' 0A-37."E-D3I' 0,-1A-"E-2D' 0A-3"E-D:I1FN :KILLI' J:S"N.,Z@FX1-D' HX0 Z"NJFWL .,ZF=;"EB,.FX0-D F[DFILE ETDSK:0;.TECO.(INIT) E?"NETDSK:(INIT);0.TECO.' E?"EER@Y0U00U1 :M(@ :JCL $PF]DFILEW HFX*)''' HKFQ0"G-1F[FNAMSYNTAXET0 E?"E1,M(M.MVISIT FILE)'F]FNAMSYN' Q1FSLISPT"EFSTTYINIT' 0FSQPUNWIND 0FSSAIL FSHeight/18+1FSECHOLINES F+FTEMACS[JLKMAC] Restarted. 60:W0U..H:M(:I*):IEditor NameEMACS-MAIL:I..JEMACS-MAIL  M(M.MTEXT MODE) M(M.MSELECT BUFFER)MAIL: TYPE ^Z (or ^_^Z) to return to MAIL FSRGETTY"EFT..J' [0FSWIDTH,79FU0FSWIDTH]0 FSWIDTHUFILL COLUMN M.M^R AUTO-FILL SPACEU .,(FJ).FX..4 FQ..4"GET..4 E?"EER@Y'' ETMAILT SAVE 0U..H:M(:I*FSEXIT)FSXJNAME:F6U..4 .,(FJ-@F K).FX..5 1:<0U..HM(M.M..4)..5>F"N:FG' :KILLM(M.M& Recursive ^R Set Mode) F[BBIND ITO: .(FJ)J :<@FLL0,1A-,"N0;'>"E0,1A-40."E:D''"#ZJ' I FROM: FSXUNAMEF6I ----- :FWKZJ0,0AF+1"G-D337.FSREREAD' -2F= "E-2D40.I' Q..OM.VRMAIL REPLY BUFFERW]..O 1M(M.MMAIL)W 0U..JFR :KILLM(M.MLOAD LIBRARY)INFO @:I*%FN :KILL M(M.M& Recursive ^R Set Mode) M(M.M INFO ENTER)..6  %FS^REnter FJ:0KHFX..6 0U..H :I..J FN200.+RFSREREADW vHKFJ0J:SRMAIL"E:I*RML-RMAILLossage-CallJLK:FG' 0,.K:FX..8HK 0U..H ^FN%1:<2,MMRMAIL..8>W :KILL % ftspecified but not implemented.JLKMACJLKMAC macros not included with EMACSS Define variables needed with MM STARTUP.^R Toggle buffer bounds to allow editing of local modes.^R Copies text from the last non-blank line.^R Like CR but terminates comments first. Mostly useful for TECO, MACSYMA, PL1, etc. modes.^R Comment out a region of text. Comments each line if the comment terminator is null.^R Remove commenting-out in the region.^R Comments-out the current "paragraph". Usually this will comment out a text paragraph or a chunk of code using the appropriate type of commenting.^R Removes commenting inserted by ^R Comment-out Text.C Valret the current region to the superiorS Makes local mode text hidden.S RMAIL Reply Hook for use in EMACS.sC Assign ^R macros in TMACS to specific places. M-Return Break Line C-M-% Buffer Graph C-, and M-, Comma-arg C-| Draw Vertical Line ^X^B Select Buffers (combines list buffers and select buffer) C JLK's ^R command assignments: Note that by loading this library you automatically have the following features: Rotated directory listings, no exit from toplevel realtime edit mode, command prompt is "COMMAND:". Command shuffles: C-M-; -> M-; (meta deletes what control inserts) C-M-? -> C-? (put it where its useful) M-Return -> C-Return ^X^O -> M-O (same theory as M-;) On keyboards with Meta key: M-Altmode -> Altmode (why type 2 when one will do) C-Altmode -> ^C (makes exiting like other programs (MAIL, etc.)) M-^ -> C-^ (easier to type) Other random command assignments (* means this is EMACS default) \ and I family: C-\ Indent Under M-\ Delete Horizontal space (Meta undoes what Control does) * C-M-\ Indent region * C-I Indent (what ever is appropriate for the editing mode) * M-I Indent to tab stop * C-M-I Indent Relative ;, +, and Excl family (Excl = exclamation point, + = Shift-;): C-; Indent for comment (the usual) * M-; Delete comment C-M-; Indent comment relative (to previous comment) ^X ; Set Comment Column (^U^X; sets it from previous line) * C-+ Comment-out Text (usually a paragraph or continuous text) M-+ Uncomment-out Text C-Excl Comment-out Region M-Excl Uncomment-out Region Search commands: C-S Incremental Search (the usual) * M-S String search C-R Reverse Incremental Search (the usual) * M-R Reverse String Search C-/ Character Search M-/ Reverse Character Search Window repositioning: C-M-L Reposition Window (tries hard to be clever) C-. Move to screen edge ^X ^ Grow window (adjusts window size in 2 window mode) * M-Space Next Screen (same as ^V) M-BS Previous Screen (same as M-V) Random commands: C-T-B Save All Files (Control-TOp-B) C-T-C Compile (compiles the buffer - Control-TOp-C) C-M-? Display date and time C-M-" Complement Sail Mode (if you recall ^_" in ITS...) ^X F Append to file (the buffer that is) ^X^H Mark wHole buffer (as the region) JLK ^R Macros: M- Valret region to DDT C-M-Space Copy from previous line C-M-Return End Comment New Line C-T-M Edit Local Modes In addition, the paren balancing is turned on and TAGS searches do a Find File. If you load up the TMACS library, you also get the following: M-Return Break Line (good for hand grinding of wraparound lines) C-M-% Buffer Graph (shows you where you are in the file) C-, Comma-Arg (for specifying args - TECO hackers only) C-| Draw Vertical line (try it) You also get a more winning verion of LIST Buffers. C A standard startup macro for use in init files. Processes JCL if any and push a startup into ^R mode on the Q-PDL. EMACS (INIT) files should be terminated with  to cause the Q-PDL to be unwound.S Process JCL during the initial start up of EMACS. The form of the JCL is  , where is CRLF (the normal case) , , or . If JCL is terminated by  or  then the tty is returned to TECO's superior after the JCL is executed. JCL to be executed () is put in the named string JCL for the user's init file to macro, if desired. If is not null, the file specified is loaded into the buffer before loading and running the user's EMACS (INIT) file. -1 is used for the file name syntax meaning that FOO or USER;FOO will load USER;FOO >. As a special case, if the JCL is simply BAR; (no more or less) then BAR's .TECO. (INIT) file is run immediately. EMACS (INIT) files are read from the MSNAME directory, or (INIT); so do FOO to run a EMACS (INIT) file belonging to another user. Examples: :E MMRMAIL ; run RMAIL and exit TECO when done :E WORK ; load ;WORK > initially :E EMACS;FOO MA ; load EMACS;FOO > and run a user macro in A S ..L Macro used subsequent to the initial one, for restarts.S Set up an editing environment approriate for MAIL's Edit Escape.S JCL for jobs like DIRED, INFO, etc.S Process JCL for jobs with XJNAME MAIL.S Start up hackery for INFO jobs.S Start up hackery for RMAIL jobs.}C Prompts for specification of an @ listing. Parameters requested are: filespecs, input text type, output text type, and output device. Multiple input files are allowed if they are of the same input text type. Error checking is done on the input filespecs. Input text types may be LISP, TECO, MIDAS, PALX, or TEXT. Output text types are XGP or LPT. Output device is XGP, GLPT, LPT (ML), or a file spec. Several named strings control the defaults for these parameters: @ File Defaults - normally the buffer file defaults, @ input type - normally TEXT, @ output type - normally XGP, @ output device - normally XGP, @ JCL - default JCL for a given language type. By just typing CR at a prompt, the default will be taken. If an argument is given to this macro, prompting is only done for the file specs. If you want to verify the @ JCL at the end, type Y to the prompt for this and you will enter a mini-buffer with the JCL. To do fancier things with the @ program, you must use it directly.& Setup JLKMAC Library ^R Edit Local Modes ^R Copy From Previous Line ^R End Comment New Line ^R Comment-out Region ^R Uncomment-out Region ^R Comment-out Text ^R Uncomment-out Text Valret Region & JLK Visit File Hook & JLKMAC RMAIL Reply Hook TMACS Setup JLK Setup Startup & Process JCL & Restart ..L & Mail Mode & JNAME INIT & MAIL Job & INFO Job & RMAIL Job @ Listing +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2