There are no other files named emacs.elfstrom-init in the archive.
!* -*-TECO-*- *!
!* This is the default init file for EMACS on Twenex.
Anything in the buffer when you start this
will be used instead of the JCL.
FS QP PTR[9 0[5 !* Q5 := Flag for generation number reset!
1:< M(M.M & Process Init Vars) > !* Process EMACS.VARS.!
Q..9"E Q..LU..9' !* ..9 is what to run on the way out.!
!* In recent EMACS versions, it should be empty.!
!* This is here only for compatibility!
!* with old EMACS versions.!
FQ(0FO..QAuto Save Filenames)-1"L !* ITS!
:I*DSK:0;_^RSV > M.VAuto Save Filenames ]0''
"# FQ(0FO..QAuto Save Filenames)-1"L !* TOPS-20!
FS XUNAME:F6[0 !* User name !
FS MSNAME:F6[1 !* Connected directory !
:I*1EMACS-0.AUTO-SAVE-FILE M.VAuto Save Filenames ]1]0''
0fo..qMail Reader Program"e :i*MSm.vMail Reader Program' !* Default to MS!
fs xjname :f6 [j
fs msname fs d sname et dsk:foo >
QFind File Inhibit Write UInhibit Write
!* On non-meta keyboards, allow Alt 1 2 to mean an arg of 12.!
M.M ^R Autoarg[0 460.-1[1
10< Q0,%1^ FS ^R CMAC> Q0U..-
!* Process the JCL!
0[0 0[1 0[2
Z"E FJ J @F
K' !* Get JCL, or use whatever previous init file left in buffer.!
!* Flush leading spaces and CRLF if line is empty.!
ZJ ."N !* Process JCL command - extract filenames and commands!
"E -D' !* REMOVE CR AND LF AT END IF ANY *!
"E -D' 0,0A-
J :S"N .,Z@FX1 -D' !* IF COMMANDS TO EXECUTE, PUT THEM IN Q1!
J 7 F~(FILE) "E 7D' !* Delete stupid noise word.!
J < :S !; -D .,(S! .)K > !* Delete stupid confirmations.!
!* Printing them out is reasonable,!
!* but passing them to EMACS is stupid.!
:S B,.FX0 !* If name of file to read, put in Q0.!
< @F K
11 F~(OUTPUT AS)"E 11D' !* Delete (OUTPUT AS) if stupid EXEC fed it to us.!
"# 0,1A-["E .,(S] .)K' !* Delete any confirmation string shit.!
"# 0;'' > !* If we delete one turd, check for others.!
Z"N HFX2' !* If name of file to output as, put in Q2.!
FS LISPT"N FS CCL FNAMU0
0FS SUPERIOR 0U1 !* Dont try to suck in LISPT.!
F~JSNDMSG"E M(M.M TEXT MODE) 1U5'
1, m(m.m & Get Library Pointer)LEDIT"e
m(m.m Load Library)LEDIT'''
F~JMM"E F=EDITOR TYPEMMAIL"N M(M.M LOAD LIB)MM-MAIL''
F~JMS"E 1U5 F=EDITOR TYPEMS-MAIL"N M(M.M LOAD LIB)MS-MAIL''
HK 0FS MODIFIED
0FO..Q Inhibit Help Message"E
Q0"E Q1"E !* If no commands or file to read, offer help.!
qEMACS Version:\[1 !* get version no. as string!
FTEMACS Editor, version 1 - type ^_ (the help character) for help.
The help character on a VT100 is actually ^/ , (Read EMACS:VT100.TXT).
For a self-paced tutorial on EMACS run SYS:TEACH-EMACS.
FQ0-1"L Q1"N M1' !* No file specified => execute commands from JCL!
Q9FS QP UN :M..9' !* and enter ^R mode.!
Q0F[ DFILE 0 FS DVERS !* If called by EXEC EDIT command,!
FS DFILE U0 F]D FILE' !* Reset version number defaults.!
0fo..qTags Find File"e
QInhibit Write,M(M.M Visit File)0' !* Visit specified file.!
"# m(m.mFind File)0' !* unless user usually likes Find File,!
!* in which case use that instead.!
Q2"N Q2F[ DFILE 0 FS DVERS
FS DFILEU2 F]D FILE !* Reset version number defaults.!
M(M.M Set Visited Filename)2' !* Set filename as specified.!
Q1"N M1' !* If JCL held commands, execute them.!
Q9FS QP UN :M..9