Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/lptlib.elib
There are no other files named lptlib.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
)Ts8\	!$(8&@hR&\Cgq}x]& Kill LPTLIB Library& Setup LPTLIB Library
@ ListCopies to the Line PrinterPrint File^R Read Word~DIRECTORY~~DOC~ & Kill LPTLIB Library ~DOC~ & Setup LPTLIB Library~DOC~ @ List$~DOC~ Copies to the Line Printer~DOC~ Print File~DOC~ ^R Read Word~DOC~ ~FILENAME~~FILENAME~

~INVERT~<:I*FO..QPrint Old Library
:I*FO..QPrint Library
F~ALPTLIB"NQA'"#QB'M.VPrint Old Library
:I*LPTLIBM.VPrint Library
M.CPrint Library* Filename of the Library containing the PRINT macros.
]A]B
80FO..QPrint Width(
)M.CPrint Width* Default width for @ List output.
58FO..QPrint Length(
)M.CPrint Length* Default length for @ List output.
0FO..QPrint Format(
)M.CPrint Format* Non-zero for paper conservation.
1FSECHOFLUSH
[AHXA
FSRUNTIMEUB
F[BBINDWF[DFILEW-1F[FNAMSYNTAX[0[1[2[3[4[5[6[7[8[9
[..0[..1[..20[M
[D[E[F[G[P
E\E[FNE]E^
f[BBIND
G(QPAGE DELIMITER)
J<:S;13I10I>
HFXPF]BBIND
32<IZU..2>
95*5,32I
IZU..2
15.*5F     
12.*5F     
11.*5F     
14.*5F     
33.*5F     
HFX2
:F"L
:i*CList the Current Bufferfsechodisp0fsechoactive
1,1M(M.M& Yes or No)"N0[CoNo File''
5,FList File
!No File!
FQC"G
E?C"N:I*CNon-existent File.  Aborting list function.
fsechodisp0fsechoactive0ua'
ERC
HKI  G(FSIFILE)I    
0,FSIFCDATEFSFDCONV
HFX8
0UA@Y'"#
HKI  
:i*FO..QBuffer FilenamesuC
FQC:"GICurrent Buffer Name Unknown
:iCNONAME'
"#GC'
I    
0,FSDATEFSFDCONV
HFX8
GAWJ0ua'
0FO..QOutput To"EM.VOutput To'
"#0UOutput To'
3,FOutput to (Default: LPT:) 
fqo:"G:IOLPT:'
"#f[bbind
goj<:s:+1;w1c>
!<!<:S>+1;w1c>
0XO
.,(<:S.+1;w1C>W
1,0a-46"E1r'"#:l'.)XOutput To
f]bbind'
FQOutput To:"G
f[bbind
GCj<:s:+1;w1c>
!<!<:S>+1;w1c>
0K
.,(<:S.+1;w1C>W
1,0a-46"E1r'"#:l'.)XOutput To
f]bbind'
WF~(FSDFN2)FOR"'E(
WF~(QMODE)FORTRAN"'E)"N
1UMBJ
M(M.MStrip SOS Line Numbers)'
ZJ13I10I
58FO..QPrint LengthU0
80FO..QPrint WidthU1
FFF"N-2:"LU0'U1'
Q0-4"L
58FO..QPrint LengthU0'
0FO..QPrint Format"N
Q0-58"EW60u0''
Q0-3U0
J<.,ZF2.-Z;
0A(-DI~)#100.I>
J0S
<:S;R-DI~M>
J0S
<:S;-DI~J>
J<:S;-DI$>
J<:S

;-DI~L>
Q1-1"L
J<.-Z;W:L
FSHPOSITION-Q1F"G+Q1U1'
L>
q1-40"L40U1'
Q1-132"G@FTText Width Exceeds Width of Physical Device
0FSECHOACTIVE
132u1'
Q1-1/10+1*10U1'
JG813I10I
-2CFQ8-Q1+15"G
0LQ1-15C:K'"#
Q1-15-FQ8<I >'
I Page 
0FX82D
J<.-Z;:L
FSHPOSITIONU90L
Q9-1/Q1F"G<W<FSHPOSITION-Q1;1C>13I10I>'
L>
0U20U4
0U9
FSBCONSU3
0U7
J<.-Z;%20U9
C:S
P:.-FSZ"N2C'
Q7,.FSBOUND
0U7
J<:S
;%7>
JB"N1A-12"N12IR'C'
G8Q2\W3<I
>
q7-1-Q0"G
0U9Q7-1/Q0<
Q0L0L12I
%9
G8Q2\WI:
Q9\W3<I
>>'
QM"NOFORTRANTAG'
J<:S:!;.(
.-2(.-2u50L.UAQ5J
-:S!"L
C.-QA"LQ5J''
.,)X5
FQ5"G
[..OQ3U..O
FQ5-Q4"GFQ5U4'
Q2\40.IG513I10I
]..O'
)J>
OEND-OF-TAGS
!FORTRANTAG!
J<!AGAIN!:SPROGRAMSUBROUTINEOVERLAYBLOCKFUNCTIONUF
QF;QF+4"G0L1M(M.M^R READ WORD)UG
WF~GPROGRAM"EOHAVEIT'
WF~GSUBROUTINE"EOHAVEIT'
WF~GOVERLAY"EOHAVEIT'
1@LOAGAIN'
"#0L1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'
WF~GBLOCK"E1M(M.M^R READ WORD)UG
WF~GDATA"EOHAVEIT'
1@LOAGAIN'
WF~GINTEGER"E1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'
1@LOAGAIN'
WF~GREAL"E1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'
1@LOAGAIN'
WF~GCOMPLEX"E1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'
1@LOAGAIN'
WF~GLOGICAL"E1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'
1@LOAGAIN'
WF~GDOUBLE"E1M(M.M^R READ WORD)UG
WF~GPRECISION"E1M(M.M^R READ WORD)UG
WF~GFUNCTION"EOHAVEIT'''
1@LOAGAIN'
!HAVEIT!
0L:S;R.,(
:S(
;FKC.)X5
FQ5"G
[..OQ3U..O
FQ5-Q4"GFQ5U4'
Q2\40.IG513I10I
]..O'
>
!END-OF-TAGS!
Q0-55"G
0FO..QPrint Format"E
J<:S
;-D19I>'
"#Q0-57"GJ<:S
;-D19I>'''
ZJ.U70,FSZFSBOUND>
Q4F"G+2U4[..OQ3U..O0U5
J<.-Z;.U7%5
\UDC0K:L
Q4-.+Q7,56.IQD\L>
J:LL
Q4-36"LZJ
Q4+6U4Q0-1U0
Q0*2*((Q5+Q0*2-1)/(Q0*2))-Q5<15.I12.I>
J<.-Z;
Q0<.U7Q0L:X5Q7J:L
Q4-.+Q7,40.IG5L>
Q0K14.I15.I12.I>-D'
]..OZJ14.I15.I12.I
.-3U7
G3
Q3FSBKILL
ZJ-:S."NL.,ZK'
q7j<.-Z;%20U9
C:S

:
Q7,.FSBOUND
0U7
J<:S
;%7>
JB"NC'
G8Q2\W3<I
>
q7-1-Q0"G
0U9Q7-1/Q0<
Q0L0L12I
%9
G8Q2\WI:
Q9\W3<I
>>'
Q0-55"G
0FO..QPrint Format"E
J<:S
;-D19I>'
"#Q0-57"GJ<:S
;-D19I>'''
ZJ.U70,FSZFSBOUND>
'
0FO..QPrint Format"N
J<:S


;
-Dq1-1,61I
13i10i
1l2K
q1-1,45I
0,1a-13"N13I'"#1c'
0,1a-10"N10I'"#1c'
2R>
'
0[2
FQOutput To:"GFSDFN1:F6'"#QOutput to'[1
F~OLPT:"N
:I2O1.LST.0'
"#:I2lpt:;1'
]1
EW2
PWEF
fsofileu2
:i*Cfsechodisp0fsechoact
@ftOutput to 2 Completed in 
]2
@:(FSRUNTIME-QB+500)/1000=@FT sec.
0FSECHOACTIVE.[A[B
FF"E1UA'"#UA'
QAFWLW-QAFWXB
QB)[A[B[C[D
HXA
FSDFILEUC
F[BBIND
FSDFN1UD
Ff"NUB'"#1UB'
QB"GGA
QB-1F"G<
12IGA>
'
M(M.MWRITE FILE)LPT:D'
F]BBIND
M(M.MSET VISITED FILENAME)C
`M(M.MKill Variable)Print Length
M(M.MKill Variable)Print Width
M(M.MKill Variable)Print Format
QPrint Old LibraryF([A)UPrint Library
M(M.MKill Variable)Print Old Library
1:<M(M.M& Setup A Library)W>

LPTLIB&Macros for use on the line-printer"S Module for preliminary setup:C Make LPT listing of a given file or of the buffer
replacing control-character by tilda-character.  The second string
argument is the alternate output device.

    The command can be in one of the following forms:

        <page size>,<page width> MM @ LIST$<filename>$<output device>
	                       via TECO in Minibuffer.
or
	<page width> MM @ LIST$<filename>$     , Otherwise

	         with following defaults:
		 <page width> -- Explicit 0 = minimum( maximum line width, 132)
		                 No argument = 80 characters wide
		 <page size>  -- 58 lines (3-heading, 55-text)
		 <filename>   -- the currently accessed buffer
                 <output device> -- LPT:    

    Two variables are referred to.  These are:
	Q$Default Listing Width$ -- The default output listing. = 80.
       Q$Default Listing Length$ -- The default page length. = 58.
	 Q$Default Listing Type$ -- Nonzero implies a special miserly
				    output listing.  Only needed if
				    you don't want a new page on every
				    occurrence of Q$Page Delimiter$ = 0.J^R Read the following word and return.
Negative Arguments make sense.GC Prints <arg> copies of the buffer to LPT:,
    the output device2S Kill the variables used by the PRINT Libraryq& Setup LPTLIB Library
@ List
Print File
^R Read Word
Copies to the Line Printer
& Kill LPTLIB Library
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2