Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/givelib.elib
There are no other files named givelib.elib in the archive.
 W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   


% :+
8A:PoZ(udTo.Ny*k% 7a W(- 4k?DH&}UZ^*5ghm(Iyr !,$!9$cE!dU(_#4i#zo$}Ib0J@e1C+3E;02L3[X4&j5`wBx5~GE0@e;6]G7R7u]7#e=En9}:

	A;[%D20;n9B?I<V<?h=Ew=]	@A	@X	'>4	:3v	F?@	S?g	]?v	n0	x0	L=& Get Real Filename& MOR Mode& Read Q-reg Name& Set Special Mode Line& Setup PJG-LIB LibraryBughunter ModeClean Personal DirectoriesDisplay VariableFlush VariablesGet CREF VariablesInsert DirectoryMake Structures DirectoryMortran ModeRead Teco FileReset BufferSame Version
SYSDPYge^R Add Mode Comment^R Adjust Line^R Auto Fill Comments^R Autoargument^R Break Line

^R Bufed^RRChangeeCaserLetter^RDirectoryREdit^R~FindeUnmatchedlObjects^R~IndicateoPage/line^ReInserteControlified^RSMc UppercaseoInitial^ROMc UppercaseJWord ^RaPlacePointeruonuLocation^RDPrintlObject^R QuerytReplace~DOC~ Display Variable~DOC~ Flush Variables~DOC~ Get CREF Variables~DOC~ Insert Directory#~DOC~ Make Structures Directory~DOC~ Mortran Mode~DOC~ Read Teco File~DOC~ Reset Buffer~DOC~ Same Version~DOC~ SYSDPY~DOC~ What Page~DOC~ ^R Add Mode Comment~DOC~ ^R Adjust Line~DOC~ ^R Auto Fill Comments~DOC~ ^R Autoargument~DOC~ ^R Break Line~DOC~ ^R Bufed~DOC~ ^R Change Case Letter~DOC~ ^R Directory Edit#~DOC~ ^R Find Unmatched Objects~DOC~ ^R Indicate Page/line ~DOC~ ^R Insert Controlified!~DOC~ ^R Mc Uppercase Initial~DOC~ ^R Mc Uppercase Word&~DOC~ ^R Place Pointer on Location~DOC~ ^R Print Object~DOC~ ^R Query Replace~DOC~ ^R SYSDPY"~DOC~ ^R Toggle Overwrite Mode~DOC~ ~FILENAME~~FILENAME~

~INVERT~+0FO..QPJG-LIB Setup Hookq0"G:M0'
vWf[dversionWf[dfile
4,FFile[..6
FSHSNAME
:IBBFOO..0
FQ..6:"G
FQBuffer Filenames"G
QBuffer FilenamesU..6'
"#W:I*B'
'
F[BBIND
E[
1:<1,111110000001.ez..6>"EJ:X*fsdfile'
E]
F]BBind
FF"E0fsdversion'
fsdfileJ[0[1:I1
:@I*/M(M.MDescribe)& Read Q-reg Name/F[HELPMAC
[2
<Q2"GQ2U00U2'
"#M.IFIU0'
Q0-"E:I*:..K(0)'
Q0-"EM.IFI&37.U0
:I*0'
Q0-*:.N(0)'
Q0-"E!RS!
1,M(M.M& READ LINE)Variable Name:  F"EORS'U2
FQ2"E0FSERR'
:I12
:FO..Q2"L
FF&2"N'
@FTDefine Variable "2"!''!
1M(M.M& Yes or No)"E
:I*CFSECHODIS
0FSERR'
M.V2'
Q1'
Q0-"E!RB!
1,M(M.M& READ LINE)Buffer: F"EORB':FCU2
FQ2"E0FSERR'
1,Q2M(M.M& Find Buffer)F"L
FF&2"N'
:I*BNF	Buffer Not FoundFSERR':\U2
:I*(Q:.B(2+4))'
Q0-("E1,M(M.M& READ LINE)Macro String:F"E:I*'U0
:I*(0)'!)!
Q0-:"E1,M(M.M& READ LINE)Q-Vector: F"E:I*'U0
:I*:0'
Q0-?"E
M(M.MDESCRIBE)& READ Q-REG NAME
:I*CType Q-Reg Name:  fsechodisp
F:M(M.M& READ Q-REG NAME)'
Q0-"E
1,M.I@FI+(
200.*FQ1)FS^RINDIRU0
Q0/200.,.:I2
Q0&177.U0
:I020
FQ1"NQ0'
Q0U1
Q1FP-101"E
F=1!PREFIX!-9"E
f[bbindg1
JS@:M(Q
.,(SM.P3R.)X1
f]bbind
M.IFIU0
[2:I2Q:1(0)
2"Eq0:FCu0']2
:I1:1(0)''
Q1'
:I110
Q0-.:@;>
Q1'"qSet Mode line hook[1
[21,FOption:u2
f[bbind
fq1"L:i1'
g1j
"E:@S/I 2/"NFKD''
"#:@S/I 2/"E@I/I 2/''
HXSET MODE LINE HOOK
1FSMODECHANGE9M(M.MLoad Library)Bughunt
m(m.mBughunter Mode)
%F:M(M.ALIST^R Print Something)if[bbind
:i*[buffer filenames
:i*f[dfile0f[dvers
fshsnameqa[e
etaCLEAN.DIR.0
5,4fDirectory Fileua
e?a"N
:i*CFile of Directories is nonexistent.  Defaulting to e
fsechodisp0fsechoactiv
echkie13i10i'
"#era@y'
j[b[c[d
0ub<.-z;1@l%bw>
qb*5fsqvectoruc
j0ud
qb<:xa
qau:c(qd)
1L%d>
hk
:i*Cfsechodisp
0udqb<
q:c(qd)ua
"E:i*AStarting DIRED on afsechodisp
0fsechoact
1:<M(M.MDIRED)a>"N
:i*AError in Processing Directory afsechodisp
0fsechoact''
"#
1:<M(M.MClean Directory)a>"N
:i*AError in Processing Directory afsechodisp
0fsechoact''
%d>
K[0[1[2[3[4
3,FVariable:  u4
:FO..Q4U0
Q:..Q(Q0)U1
Q:..Q(1+Q0)U2
Q:..Q(2+Q0)U3
FQ2"LQ2:\U2'
FQ3"LQ3:\U3'
:FTName:
1
Value:
2

0:G3-!"E
FTVarmac:
3
'
"#FTComment:
3
'
0F[a[b:I*Variables 0[d
FF"N:ICKeywords 1ud'
j<:S

;-d>
J-1F[^PCASE
L
J:S
AC
0,.K
qd"EM(M.MFlush Lines).'
:IA
J<.-z;
1M(M.M^R Read Word)UB
F~BA"NQBUA:K1l
'"#0l1k'
>
J13i10i
1ua
<.-z;
50l.-z;%aw
12i13i10i>
1,M.MMake Columns Chart"E
M(M.MLoad Library)Columns'
QA-(FSwidth-4/8)"G
(FSwidth-4/8)UA'
fswidth-4:\ub
qa,0M(M.MMake Columns Chart)B
J:KFSDFN1uB
:IBC in B
fswidth-6-FQB/2F"G,32i'
GB
TM(m.m& Read Filename)Teco File[1
[..OFSBCREATE
ER1@YM(HFX*)
fsBKill
0rQBUFFER NAME[1
QPrevious Buffer[4
M(M.MFUNDAMENTAL MODE)
0M(M.MAUTO SAVE MODE)
0M(M.MAUTO FILL MODE)
0M(M.MOVERWRITE MODE)
0FO..Qword abbrev mode"N
0M(M.MWord Abbrev Mode)'
M(M.MSELECT BUFFER)*GARBAGE*
M(M.MKILL BUFFER)1
M(M.MRENAME BUFFER)1
q4uPrevious Buffer
f~1MAIN"E:i*GAZONKu1'
fshsname[3
:i*31..fsdfile
0fsdversion
y1,FSub-commands:f([2)f[forkjcl
[1:i1SYSDPY
fsOSTeco-1"e
-(fzSYS:1.EXE)fz
'
"#-(fz<SUBSYS>1.SAV)fz'
(0[01[11[2
FF-1"Eu2'
QBuffer FilenamesF[DFILE
Q2:"G2u1
'"#FSDVERSION"N0'
1:<EREC>"N
1U0
Z"G@FTNew file? -- Assuming version 1
0FSECHOACTIVE'
'"#FSIFVERSIONU0''
Q0FSDVERSION
FSDFILEUBuffer Filenames
1FSMODECHANGE
QAuto Save Mode-Q1"E
@M(M.MAuto Save Mode)'
031,M.M& Setup PAGE Library"N
M(m.m^R Widen Bounds)W'
"#M(m.m^R Set Bounds Full)W'
1[1[2
j1l-2:s-*-"n
jk'
qbuffer filenamesfsdfile
Jf~(fsdfn2)FOR"EIC       odone'
f~(fsdfn2)B20"Ei00001w9iiREM odone'
f~(qmode)FORTRAN"EIC       odone'
f~(QMODE)BASIC"Ei00001w9iiREM odone'
J0FO..QComment BeginF"EW0FO..QComment Start'[2
fq2"GG20u1'
!done!
qMode[0
i-*-0-*-
q1"Egcomment end'
i

b,.+0[c1[d
FFF"N-2F(:"Lud'
)"Nuc''
QD<
0lWM(M.M^R Delete Horizontal Space)
:LWM(M.M^R Delete Horizontal Space)
Fshposition-(W0FO..QFill Column)"G1l!<!>'
QC"EW@M(M.M^R Center Line)'
QC"GW@M(M.M^R Right Adjust Line)'
QD"L-'1@L>
-QD@FF
QD-1"E
0,0A-13"E-2*QD:C'
QC"L0l''
0FSQpPtr[.0
Q..0&127[.7
Q.7-U"Eu.7'
[.1[.2[.3[.4[.5[.6[.8
:I.10u.50u.8
0u.20u.30u.40u.6
<Q.7-"EQ.21u.2%.4oL'
Q.7--"EQ.2#41u.2oL'
Q.7-,"E0.1u.5
Q.4"NQ.5"E1u.5''
Q.2&4"N-Q.5u.5'
Q.4<Q.5*4u.5>
Q.2&1"N1'"#0'u.8
0u.20u.4:I.1oL'
:I.1.1.7
Q.23u.2
!L!4,m.I
:FIF0123456789-,:;
FIu.7>
3,[email protected]
FQ.1"N.1u.3'
Q.2FS^RArgp
Q.3FS^RArg
Q.4FS^RExpt
Q.2&2"E1u.3'
Q.2&4"N-Q.3u.3'
Q.4<Q.3*4u.3>
-1FS^RLastW-1FSReRead
Q.8"N
Q.5,'(Q.2&3"N
Q.3')@:m(
Q..0FS^RIndirect@FS^RCmacro(Q.0FSQpUnwind))F:M(M.ABUFED)"F:M(M.ADIREDDirectory Edit)~1,FStart of Object: 
FQS:"G'
1,FEnd of Object: 
FQE:"G'
FF"N0-()'"#0'[L[A
0FO..QComment Start
0FO..QComment End
FQC:"G:IC'
FQD:"G10:ID'
1[0
f[bbind
gcJ<:S;%0W>
f]bbind
q0+1[1
f[bbind
gsJ<:S;%1W>
f]bbind
:IACSE
<!LOOP!.-z;:SA;
fssvalue+q0:"L
:SD"E:I*CUnmatched Comment.fsechodisp
0fsechoactiveW'OLOOP'
fssvalue+Q1:"L
.F(WfsinslenR.)J
QL-1UL'
"#%LW'
QL"'G:;>
QLF(:\UL
:I*CNesting Level = L.fsechodisp
0fsechoactive
)0f[VB
0[1.[2fnq2j
1l.[3
0[40[50[7
QPAGE DELIMITER[8
0j<%1
:s
8;.u5
.-1-Q2;
.u4>
:i*CfsEchodis
@ft Page q1@:=
@ft, Line 
m.m& Count Lines[6
q4,q3m6f(u7)@:=
@ft of 
q5-q4:"Gzu5'"#q5-1u5'
q3-q5"G-1'"#q3,q5m6'+q7@:=
@ft.

0fsechoactive
12M.IFI&177.[0
(q0-')*(q0-7)"E
1,M(m.m& Read Line)Octal: u0
q0"E0'fq0"E0'
f[bbind8f[ibaseg00j\u0
f]ibasef]bbind'
"#q0&?-?"E177.u0'
"#q0&37.u0''
.,(<q0i>).@FN|0FO..QCurrent Page"N
0UCurrent Page
W:@M(M.M^R Goto Page)'|
0FsVB0FsVZ
0FO..QPage Delimiter"E
:I

M.CPage Delimiter* Search String For Finding Page Boundaries'
QPage Delimiter
0[01[10[2
FFF"N-2:"LU0'
WU1'W
:F"L0[B'
"#:I*
f[bbindGBJ\u2f]bbind'
Q0"G0Jq0-1U0'
Q0M(M.M^R Mark Page)
M(M.M^R Set Bounds Region)
JQ1-1@L
:@LfsShpos-q2"G0@Lq2:C'
0,fszFsboundaries


:I*[1:I*[2
FFF"N(
)-2:"L
:\U1FS^RARG"N:\U2'
:I11,2'
"#
:\U1''
M(M.M& MINI INIT)1 MM Query ReplaceQuery ReplaceM(M.MSYSDPY)SYSDPY
2QOverwrite Mode"E-1'"#0'uOverwrite Mode
m.m^R Forward Word[0
"Lm0'"#1m0w-1m0'
.,(f"ew1'<
fw@fc
.(<fw:fbMc;-1fc1cfwfc>)j
.(<fw:fbMac;-2fc1cfwfc>)j
fwr>).ym.m^R Forward Word[0
"Lm0'"#1m0w-1m0'
.,(f"ew1'<
fw@fc
.(<fw:fbMc;-1fc>)j
.(<fw:fbMac;-2fc>)j
fwr>).;M(M.M& Init Buffer Locals)
M(M.MMake Local Q-Register)..D
1,1M.LSpace Indent Flag
1,16M.LComment Column
1,(:I*"!'!)M.LComment Begin
1,(:I*"!'!)M.LComment Start
1,(:I*"!'!)M.LComment End
1,(:I*)M.LParagraph Delimiter
1,(M.M^R Indent Nested)M.QI
1,(W377.@FS^RINIT)M.Q
1,(W177.@FS^RINIT)M.Q.
1,(:i*

SUBROUTINEPROCEDUREINTEGER FUNCTIONREAL FUNCTION)M.LPage Delimiter
1M(M.M& Set Mode Line)Mortran
[1[2[3[4[5[6[A
qComment Startu1
qComment Endu2
fq2"e0u2'
qComment Beginu3
fq3:"gq1u3'
fq1-1:g1u5
qFill Extra Space Listu6
:"GFG0'
0l.uA
<
0l:fb1"N
<q2"e:l'"#:fb2'
.u4
l@f	 l
fq1f~1:@;
q4,.k
q2"n-fq2d'
fq3f~3"efq3d'"#fq1d'
@f5k
-@f	 l@f	 k
0af6:"l32i'32i
>
q4j0l
m.m^R Auto-Fill Space[1
:l0f/2<.-(0m1f
).@;>
]1:l'
WL>
-1l:L
QA,.W[1
"g
.,(:<1af"a#40.:i1
f1'w
c>w).'
.,(-:<r1af"a#40.:i1
f1'w
>w).:i*[.1
f[BBind
q..om(m.mList Variables).1
1f<!DONE!
f<!KILL!
:ftKilling the following variables:

ht
ft
Ok? (Y, N, ^R) 
fi:fc[.2
1<q.2fYN"LftAnswer must be Y, N, or ^R.

1;'
q.2-Y"Ef;KILL'
q.2-N"Ef;DONE'
q.2-"E
0u..h1;'
>
>
bj
m.mKill Variable
<1:<0,25fm
-:fwl
<0x.2
1:<fo..q.2w>-(@feAVN)@:;
fwl>
mK.2
>
l.-z;>
>
0u..hm.[0
0l.[1
1[Auto Fill Mode
m.m^R Auto-Fill Space
:l<.-(0msf).@;>
q0:j"e:l'
fsRGETTY"e0t'
1FM(M.MSelect Buffer)*STRUCTURES*
:i*[buffer filenames
:I*F[DFile0F[DVERSION
E[E\FNE^E]
etPS:<STRUCTURES>*.DLUSER
5,2FDirectory [..6
FQ..6:"G:I..6PS:<STRUCTURES>*.DLUSER'
3[080[1
FFF"N-2F(:"Lu0'
)"Nu1''
0,fszfsboundariesWHK
1,111110000001.ez..6
JM(M.MKeep Lines).DLUSER.
J<.-z;
0l@I\M(M.MInsert File)\W:L27i1l>
[AHFXA0[B0[C0[D
MA
JM(M.MKeep Lines)&
JM(M.MReplace String)&<>
J0l:L1l
J:IA
<.-z;W.,(S:w.)XB0l
F~AB"EFQAD'"#qbua12ifqac13i10i'
1l>
J1dzj12i
J1l
<.UC:S


;
QC,.-1fsboundaries
J:IA      1UC-1UD
<QD;WJ0UD
<.-z;
:L.-(0l.)UB
FQA-QB"GQB'"#fqa'XB
F~AB"E
FQAC0,1a-."E
-1ud0KQC*2F"G,32i'
'"#0l:XA''
"#0l:XA'
1l>
QD"N%C'>
ZJ.,fszfsboundaries
1l>
0,fszfsboundaries
zj-1dWJ
etstructures.info.0
fsdfileF(UBuffer Filenames)U:.B(QBuffer Index+2)
Q1F"G:\[9
1,M.MMake Column Chart"E
1:<1,M(M.MLoad Library)NCOLUMNS>"NW''
q0,0M(M.MMake Columns Chart)9'
FSOSTECO-1"N
:I*CThis function is only valid on Tops-20.fsechodisp
0fsechoactiveW0'
:F"GOASK'
FF-1"GOASK'
QBuffer Filenamesf"nfsDFile
FF"E:I*[..6OGOTONE'
"#-4"LFSDFN1[..6
:I..6..6.*.*
OGOTONE'''
!ASK!
5,2FDirectory [..6
!GOTONE!
1,FOctal Flags (Default: 111110000001):  [..7
FQ..7"G
1:<..7.[0>"N:I..7''
"#111110000001.[0'
.:
FF&2"E1,'Q0ez..6
PJG-lib,This library belongs to Peter J. Gergely/S Sets up all the initial parameters neededsS Returns the real filename of the string arg.
No string argument implies to take the current buffer filename.  Q..6
is used as the buffer string input temporarily.  A numeric argument implies
that the real version number is to be used S Read name of qreg, return as string.
Given a numeric argument, uses it as the first character
of the q-reg name.  ^K is short for ..K(0) (last killed text), and
^M is short for .N(0) (last mini-buffer contents).  $ and ( will call &
Read Line; $ is followed by a variable name, ( by a function yielding a
string (e.g. q:.x(3) for qvectors).  ? or  [HELP] gets help.  Colon
begins a q-vector spec, and ^B begins a buffer specification.
If given a non-zero pre-comma argument, undefined symbols return it.,S Set the Mode line hook for the library6C Turns on the special bughunting text in comments_^R Prints either the buffer or a file using LIST
g(M.ALIST~DOC~ ^R Print Something)jktC Does a Dired on all directories
listed in the macro.  A NUMERIC argument runs CLEAN DIRECTORIES
instead of DIRED.  Gets the directory names from the string argument.
If no string argument is given then the default name is
<home-directory>CLEAN.DIR.0 The format of this file should be one
directory name per line.  Non-existant directories will not flag
errors.<C Display a named variable with value, comment & varmac.?C Makes a listing of the variables in a CREF listing.
The file should be of the type made with the /S option in CREF.  An argument 
implies that the library function will also be given.UC Reads and executes a teco file
eg. your emacs.init;  prompts for the filename.6C Resets all the parameters of the current buffer.$C Calls the program SYS:SYSDPY as a subfork.  The fork is
  deleted after the program is exited.  Any string argument is used as
  subcommands to the program.3C Tells EMACS to overwrite file when it saves it.
I.e. this file will be saved as the SAME version as the
current version on exit.  Autosaves will go to AUTOSAVE files.
Does nothing if visited file already has an explicit extension.
With zero argument, undoes it, i.e. EMACS will write new versions.|^R Puts a comment at start to indicate mode.
Adds a comment (of the current mode) at the beginning of the buffer,
which indicates that this mode should be used on subsequent edits of
this file. Overwrites a previous mode comment if there is one.^R Moves current line according to the post-comma argument.
The pre-comma argument is the repeat count
No post-comma argument or =0  --  centers the line removing preceding and
				  following whitespace.
		          <0  --  lines up the line with the left margin
				  removing the whitespace as above.
		          >0  --  lines up the line with the right margin
				  removing the whitespace as above.&^R To put on M-digit, M--, and ^U.P^R Display information about current buffers.
g(m.aBUFED~DOC~ BUFED)jkQ^R Allows a wildcard directory DIRED.
g(m.aDIRED~DOC~ DirectoryfEdit)jk
Numeric argument is the starting level.  The first string argument is
the starting object and the second one is the end of the object.
Comments are ignored and are defined via the variables $Comment Start$
and $Comment End$./^R Types out page and line number of cursor/^R Inserts characters, controlifying
e.g. If you type ^R Insert Controlified A, it inserts ^A; DELETE is ^?.
Type ^R Insert Controlified ' to enter a number octally.^R Moves pointer to the given location.
The following arguments are defined.
	Pre-Comma	Page No. a la Page Delimiter (Default = 0, Current)
	Post-Comma	Line Number on Page (Default = 1, Same line as FF)
	String Arg.	Character Position (Default = 0, Before first
			char.)N^R Query Replace using the minibuffer. 
Calls the Query Replace command. ^R Runs the sysdpy program^R Inverts state of overwrite/insert.
If inserting (normal), then goes into overwrite mode; if in overwrite
mode, reverts to normal insert mode..^R Uppercase just the initial or a Mc word^R Capitalize Mc wordcS Set up for Mortran editting
Makes Rubout the Tab-hacking Rubout.  Tab does ^R Indent Nested.Q^R Refill the comment and its continuations.
To handle comment starts (or parts of them) that are repeated, e.g.
";;; " in Lisp, or perhaps "/*** " in Pl1, it will treat a duplicated
last character of the comment start or begin as part of the comment
beginning when merging comment lines.  A numeric argument is the repeat count.r^R Next <argument> letters, moving past.
Numeric argument negative means move left.
Fast, does not move gap.uC Kill some variables specified by search string.
Kill variables whose name contains the string argument.
String argument actually is a TECO search string, and so you can flush
    variables containing "foo" OR "bar" by using the string argument
    "foobar".
The list to be flushed is typed, asking Y, N, or ^R?
    N means abort, ^R allows editing of the list.W^R Fill if too long, even out of Auto Fill mode.
Cursor may be anywhere within line.
Line will be broken (space inserted at margin) repeatedly until it
    fits within the margins.
Uses ^R Auto-Fill Space.xC Creates an index to the directories on alternate structures.
Creates an indented structures directory using the files given as the string
argument.  The default filespec is PS:<STRUCTURES>*.DLUSER.  The final result
is placed in the buffer *STRUCTURES*.  The precomma-argument specifies the
number of columns to use, and the post-comma is the page width.  The defaults
are 3 columns on 80 characters wide pages.  A negative or zero page width
prevents the columnar chart from being performed.C Inserts a list of a file directory into the buffer.
With no argument, inserts that directory.
With an argument of 1, inserts only the versions of the file in the buffer.
With an argument of 4, asks for input, only versions of that file are
    inserted.
A pre-comma argument says to insert the author for each file.
The first string argument is the directory to scan.
The second string argument is the octal flags used in the JFNS call.  The
default flags are 111110000001 octal, signifying to print the device,
directory, filename, extension, and version number.  Please refer to the
TOPS-20 Monitor Calls Reference Manual for more detail.6& Setup PJG-LIB Library
& Get Real Filename
& Read Q-reg Name
& Set Special Mode Line
Bughunter Mode
^R Print Object
Clean Personal Directories
Display Variable
Get CREF Variables
Read Teco File
Reset Buffer
SYSDPY
Same Version
^R Add Mode Comment
^R Adjust Line
^R Autoargument
^R Bufed
^R Directory Edit
^R Find Unmatched Objects
What Page
^R Indicate Page/line
^R Insert Controlified
^R Place Pointer on Location
^R Query Replace
^R SYSDPY
^R Toggle Overwrite Mode
^R Mc Uppercase Initial
^R Mc Uppercase Word
& MOR Mode
Mortran Mode
^R Auto Fill Comments
^R Change Case Letter
Flush Variables
^R Break Line
Make Structures Directory
Insert Directory
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2