Trailing-Edge
-
PDP-10 Archives
-
BB-F494Z-DD_1986
-
10,7/runoff.kbd
There are 4 other files named runoff.kbd in the archive. Click here to see a list.
< RUNOFF -- RUNOFF macros for ITPS-10 system
Robert D. Houk -- 30-Jul-77
These macros are intended for two purposes - one is to provide an
interface into ITPS for RUNOFF users to ease their conversion over
to ITPS; the second reason is to provide a prototype macro system
for general use, specifically that same area addressed by RUNOFF.
In general, these macros parallel RUNOFF in name and function -
wherever there is an applicable RUNOFF command there is an ITPS
macro of the same name (usually RUNOFF's abbreviated name) with
the same or similar functionality.
To use the RUNOFF macro system simply include in your text file:
[*setup macro]
[*RUNOFF][preliminary user commands][*BEGIN]
body of user text
[*END]
This command sequence must be followed in order to assure proper
functioning of the macro subsystem. The "preliminary user commands"
are any commands which merely set parameters - such as [*FT] or [*PS],
etc. The [*BEGIN] macro call must precede all user typeset text (in-
cluding all leading, tabbing, etc.)!!! The user should include the
[*END] macro call (to do any device-specific end of take functions)
as the very last piece of his text file.
Important system conventions:
1) All type faces are assumed to be setup (i.e., numbers are
assigned to faces) with the major face (as specifiec by the
[Fnnn] command) a multiple of 10 (decimal); the correspond-
ing italics face as "nnn" + 1; the corresponding bold face
as "nnn" + 2; the corresponding small caps face as "nnn" +3.
Consider the standard line-printer/ASCII setup: face 210 is
the standard face; face 211 is the italics face; face 212 is
the bold face; and face 213 is the small caps face.
2) The setup macro initializes the D-registers (see below) and
defines the incore macro END to be called at the end of the
take to do any device-dependent functions
3) If D1 is zero then +& character is form feed (octal 014); if
positive then D1 contains amount of leading to perform between
"pages".
4) Whenever a value "n" is specified as being "p.p's" then
the numeric value of picas must be followed by a "." character
to delimit the picas and another numeric value to represent the
points:
"50" is fifty points;
".50" is fifty points;
"4.2" is four picas two points (fifty points);
"42.0" is forty-two picas (five hundred and four points);
"42." is illegal (no points "fraction" specified).
Whenever a value is specified as being points then the numeric
value may be either just points or picas.points.
------------------------------------------------------------------------
*** WARNING ***
Following are general warnings concerning restrictions or bugs about
which the user should be aware:
1) In versions of JUSTIF before %301(373) the use of one-shot
face commands is not allowed (e.g., the [WB] command) since
JUSTIF does not properly reset the $F register at the end of
the one-shot.
2) The face modify facility ([FM] command) is not supported.
3) JUSTIF should be assembled to handle at least 128 incore mac-
ros with a minimum size of 48 words each.
In general tracking down errors can be very painful, as JUSTIF is very
sensitive (trusting) of user input. The best way to track down errors is
probably to get the .JH file and simply trace down what happened - char-
acter by character until the "obvious" error appears. Once an error has
occurred JUSTIF has a tendency to propagate the error - hundreds of errors
may happen just because the column width got set wrong for example. If an
error after the first error is not obvious (like illegal command) then try
the file again after having fixed the "obvious" leading errors. JUSTIF is
very trusting of user input and tends to just believe anything you tell it,
especially in macros, and gets correspondlingly confused when you tell it
something wrong.
Probably 99.9% of all errors are in the end attributed to user error, but
errors in the basic system software do happen, especially after a new re-
lease of some sort. If a problem defies solution, try to reduce the number
of variables involved to a minimum - try simple test cases to make sure you
understand the basic functionality being exercised, ask other people for help
(it is truly amazing how consistently one can misread a (e.g.) mis-spelled
word), even trace the .JH file character by character. If all else fails,
give up and try a different approach.
------------------------------------------------------------------------
*** PROGRAMMING ARCANA ***
A very important (and incredibly obscure) macro programming procedure
which can lead to "impossible" (to comprehend) bugs concerns the way
JUSTIF handles "page" breaks (really a vertical column break). JUSTIF
always processes text until a word break before trying to justify a
line of text (it has to go to the end of the word so it can properly
hyphenate the word). This means that any text which exceeds the line,
as finally "set" by the justification routines, must be "reprocessed"
a second time. JUSTIF does this by "re-executing" the input stream
from the point that the line break occured. The obscurity is that
the input stream can contain embedded commands which are also executed
a second time. This leads to some very bizarre (yea, even psychopathic)
cases. Consider a line which contains the following text stream:
. . . re[FB]stric[FR]tions/Z . . .
The usage of the face commands "[FB]" and "[FR]" illustrates why JUSTIF
must process until an unambiguous end of line is encountered - the com-
mands can affect the way the word itself is set. Now, if the line is
finally broken at "restric-" then the "tions" will appear on the next
line. But to JUSTIF, the next line will start "[FR]tions/Z". It is the
"/Z" which causes the grief - it was seen once whilst looking for an
end of word condition, and then again when the end of word was finally
set. The net effect is that the "tions" is overlaid across the begining
of the line which hyphenated "restric-". This trivial (yet still pain-
fully obscure) example can be sidestepped by putting a space between
the "tions" and the "/Z" as so:
. . . re[FB]stric[FR]tions /Z . . .
Since JUSTIF will not set the line until the column which has been
EXCEEDED the "/Z" will only be executed if the "tions" can be guaranteed
to fit the line, and the "/Z" will also be guaranteed to affect only
the final typeset line which contains the "tions" text. (The case cited
above has actually been fixed in JUSTIF, but still serves to illustrate
my point).
The real complications arise when the line break coincides with the page
(or column) break - for in this case the "excess" text must be saved
across any page-break information (which is to say the [VH macro). The
penultimate headache arises when it is a macro itself (such as the [*ELS]
macro herein defined) which finally trips the page break mechanism at
some intermediate point within the macro itself. Since the macro is just
a string of commands (and//or text) itself, these commands are subject
to the same treatment as the "/Z" in the example above. This can lead to
non-obvious (to say the least) behaviour for commands which modify data
such as one of the user registers (e.g., a [ZS command) since the command
can be executed twice! Therefore macros must written in such a manner
that any line break caused by the macro will not doubly-execute any
such commands.
As a real-life example (which took an hour DDT'ing my way through JUSTIF
to initially comprehend), consider the [*ELS] macro below. It starts out
with a call to the [*TBOL] macro - to ensure that any previous text is
set and a new line is started (since [*ELS] by definition terminates
any [*LE] currently being processed). This [*TBOL] macro also has the
effect of guaranteeing that any impending page break that might occur
will occur at the [*TBOL] execution - ensuring that following commands
up to the "[ZET1,TLE0]" command are safe. Now the [*TLE0] macro, if
called (i.e., register T1 contains 0) can cause a page break since it
calls the [*TTP] macro, which in turn . . . If the [*ELS] macro did
not start out with a [*TBOL] call (which it didn't for a long time)
and if the [*ELS] macro was called at the end of a line of text which
EXACTLY fit the page, then the initial commands in the [*ELS] macro
would get executed twice (in particular, the "[ZSI5,1]" command, which
caused I5 to go negative, which lead in turn to calculating negative
indents since the indents are calculated as the product of the [*LS]
nesting level, which . . .)!
Another example is the set of [*HLn] macros below. In the HLn macros
I must save the HLn text body away (in a TTHLn "scratch" macro) before
a possible page break occurs. This is required for running headers
which want to include in the running head the HL level and/or text
for that page. The problem lies with HLn macros which are the very first
text on a page - the HLn macro must be seen and executed before the
page break in order to provide the header information. This requires
that the TTHLn macro be defined and the Hn register be incremented
before the [*TBOL] call (which is what may well force a page break
if there is no more room in the current page). Unfortunately (as de-
scribed above) if the [*TBOL] causes the page break all preceding
commands will be re-executed - leaving the Hn register incremented
twice (it's ok for the TTHLn macro to be redefined since it is re-
defined to be the same thing). Therefore I use register H0 as a sort
of "reeentrancy" counter to indicate how many times the [ZIHn] com-
mand was executed, and to adjust the Hn register accordingly. (As a
corollary, this mean that a running head macro must subtract H0 from
Hn iff H0 .GT. 0 in order to find the correct header level, and fur-
ther, that running feet can't reliably access the current header level
counters.)
So if you encounter problems which seem to arise at page, or even line
boundries (easy to check - add leading text to shift everything down
a word/line or two) look for this case arising - the [VH macro being
called.
Good Luck.
------------------------------------------------------------------------
Register Usage Conventions
(Unless otherwise specified, all
applicable values are in points)
A group Not Used.
B group Not used
C group Multi-column work
C Scratch column counter for [*THVCL]
C0 Column (as opposed to page) width
C1 Column gutter (space between columns)
C2 Number of columns
C3 Total leading ($U) at top of text column(s)
C4 Not used
C5 Not used
C6 Not used
C7 Not used
C8 Not used
C9 Not used
D group Device (setup) specific information
D Not used
D0 Base face
D1 If .EQ. 0 device does form feed'ss (+& char)
If .GT. 0 do [VA!D1] to split pages
D2 If .EQ. 0 no super/subscript (instead do (nn))
If .GT. 0 D2 is percent stored leading for [EJ]
D3 Width of average character (in percent) re em space
D4 Not used
D5 Not used
D6 Not used
D7 Not used
D8 Not used
D9 Not used
E group Not used
F group Reserved for footnoting
G group Running head/foot control
G Not used
G0 .GT. 0 if have seen [*CH] or [*AX]
G1 [*FT] setting for running head
G2 If .LT. 0 then no running head at all
If .EQ. 0 then blank running head
If .GT. 0 then normal running heads
G3 [*FT] setting for running foot
G4 If .LT. 0 then no running foot at all
If .EQ. 0 then blank running foot
If .GT. 0 then normal running foot
G5 Not used
G6 Not used
G7 .NE. 0 then print page number on page header
G8 .NE. 0 then print subtitle on page header
G9 .NE. 0 then print title on page header
H group Header level information
H Not used
H0 Interlock on Hn level increments
H1 Header level 1
H2 Header level 2
H3 Header level 3
H4 Header level 4
H5 Header level 5
H6 Not used
H7 Not used
H8 Not used
H9 Not used
I group Indent information
I Not used
I0 Right margin (effectively the column width)
I1 Left margin (indent from 0)
I2 Indent (both margins) for each [*NOTE]
I3 Nesting level for [*NOTE]
I4 Indent (left margin) for each [*LE]
I5 Nesting level for [*LIST]
I6 Not used
I7 Not used
I8 Not used
I9 Not used
J group Tables information [*TABLE?]
J $U for bottom of longest table sub-column
J0 Total indent from table sub-columns
J1 Width of sub-column 1 (points)
J2 Width of sub-column 2
J3 Width of sub-column 3
J4 Width of sub-column 4
J5 Width of sub-column 5
J6 Space (gutter) between table sub-columns
J7 Space (leading) 'tween table entries
J8 Test page value for start of new table entry
J9 Table indent
K group Not used
L group Listing control and lists
L .GE. 0 then list all ([MJ] command)
.LT. 0 then suppress macro & commands ([MJ%])
L0 .EQ. 0 then L8 leading else L9 leading
L1 List level 1 number
L2 List level 2 number
L3 List level 3 number
L4 List level 4 number
L5 List level 5 number
L6 Extra leading (points) between [*LS]'s
L7 T.P. (lines) after L6 for [*LS]
L8 Extra leading (points) between [*LE]'s
L9 T.P. (lines) after L8 for [*LE]
M group Not used
N group Not used
O group Not used
P group Page formating information
P Page number of current page
P0 Page width
P1 Page depth
P2 Pointsize (regular text)
P3 Leading (regular text)
P4 Pointsize (running head)
P5 Leading (running head)
P6 Pointsize (chapter header)
P7 Leading (chapter header)
P8 Pointsize (running foot)
P9 Leading (running foot)
Q group Paragraphing and other random info
Q Total leading ($U register) at top of page text
Q0 Paragraph indent
Q1 Paragraph leading (extra between paragraphs)
Q2 Paragraph test page
Q3 Not used
Q4 Not used
Q5 Not used
Q6 Not used
Q7 Not used
Q8 Not used
Q9 Not used
R group Scratch and Temporary work registers
S group Scratch and Temporary work registers
T group Scratch and Temporary work registers
U group Not used
V group Not used
W group Not used
X group Not used
Y group Not used
Z group Not used
------------------------------------------------------------------------
Vertical Mark Point usage
0 Not used
1 Not used
2 Not used
3 Not used
4 Not used
5 Not used
6 Not used
7 Temp used by [*THV] and friends
8 Top of current table entry ([*TEn]) column
9 Bottom of longest (so far) table entry column
------------------------------------------------------------------------
Command Macros Listing
(tbs)
------------------------------------------------------------------------
Internal macros Listing
(tbs)
------------------------------------------------------------------------
Command Macros
AX n,title Set appendix number "n", title "title"
>[*COR:AX=[*TBOL]< Make sure previous line is ended
>[ZXG0,1]< Flag in chapter/appendix
>[*COR:TCNUM=@=]< Set text of chapter/appendix number
>[*TITLE]< Define new title
>[*COR:TSUBTT==]< Clear subtitle
>[*THL0]< Clear all header-level information
>[ZGG2,TZXG2]< Get [*FT] setting for running head
>[ZZP][*PGI]< Advance to new page
>< This may unfortunately cause a blank page
>< if the [*TBOL] above terminated the pre-
>< ceding page, but it must be done this way
>[ZGG4,TZXG4]< Get [*FT] setting for running foot
>[ZZG1][ZZG3]< Reset [*FT]
>[*TSAVE][PR!P6,!P7][C.!P0]< Set up for Chapter heading text
>[FB]Appendix [*TCNUM][FR]/C< Print "Appendix n"
>[FB][*TTITLE][FR]/C< And the title beneath it
>[*TRSTR][VA36]/L< Reset for normal text
>=]/Z<
------------------------------------------------------------------------
BEGIN Start typeset output
>[*COR:BEGIN=[ZSG4,1]< Set running foot back
>[ZUD1][ZXD1,-1]< Suppress initial page feed
>[*THV]< First title, etc.
>[ZVD1]< Restore page feed value
>=]/Z<
------------------------------------------------------------------------
BL n Skip "n" * 12 points
>[*COR:BL=[*TBOL]< Make sure at start of line
>[ZXT1,@]< Read "number" of lines
>[ZMT1,12][VA!T1]< Advance that far
>=]/Z<
------------------------------------------------------------------------
CH n,title Set chapter number "n" with title "title"
>[*COR:CH=[*TBOL]< Make sure line is ended
>[ZXG0,1]< Flag in chapter/appendix
>[*COR:TCNUM=@=]< Set text of chapter/appendix number
>[*TITLE]< Define new title
>[*COR:TSUBTT==]< Clear subtitle
>[*THL0]< Clear all header-level information
>[ZGG2,TZXG2]< Get [*FT] setting for running head
>[ZZP][*PGI]< Advance to new page
>< This may unfortunately cause a blank page
>< if the [*TBOL] above terminated the pre-
>< ceding page, but it must be done this way
>[ZGG4,TZXG4]< Get [*FT] setting for running foot
>[ZZG1][ZZG3]< Reset [*FT]
>[*TSAVE][PR!P6,!P7][C.!P0]< Set up for Chapter heading text
>[FB]Chapter [*TCNUM][FR]/C< Print "Chapter n"
>[FB][*TTITLE][FR]/C< Print title beneath that
>[*TRSTR][VA36]/L< Reset for normal text
>=]/Z<
------------------------------------------------------------------------
COL n,g Set multiple columns (note this command
resets both the left and right margins)
n = Number of columns
g = Gutter (p.p's) between columns
>[*COR:COL=[ZXC2,@]< Pickup number of columns
>[ZXC1,@]< Pickup column gutter
>[*TCOLST][*TCOLSX]< Setup for text columns
>[ZXI0,C0][ZZI1]< Reset left and right margins ([*TCALIR] etc.)
>=]/Z<
------------------------------------------------------------------------
ELS End list
>[*COR:ELS=[*TBOL]< Insure at begining of a line
>[ZZL0]< Flag between lists leading
>[ZSI5,1][ZXT1,I5]< Decrement lists nesting level
>[ZET1,TLE0]< Set [*LE] for level 0 (illegal)
>[ZST1,1][ZET1,TLE1]< Set [*LE] for level 1
>[ZST1,1][ZET1,TLE2]< Set [*LE] for level 2
>[ZST1,1][ZET1,TLE3]< Set [*LE] for level 3
>[ZST1,1][ZET1,TLE4]< Set [*LE] for level 4
>[*TCALIL][IL.!T1]< Set new left indent as appropriate
>[*TCALIR][IR.!T1]< Set new right indent as appropriate
>=]/Z<
------------------------------------------------------------------------
END End of typeset text, clean up
>[*COR:END=[*TBOL]< Ensure at begining of line
>[VC%][C.!P0][I%]< Clear world
>[ZGG4,TFOOTD]< Do a running foot if enabled
>[*TDEND]< Do any device-specific end of take clean up
>=]/Z<
------------------------------------------------------------------------
ERROR Increment error counter, print "?"
>[*COR:ERROR=[*TBOL]< Make sure at start of line
>[ZXS9,$E][ZIS9][ME!S9]< Increment JUSTIF error counter
>/L? < Prefix error text
>=]/Z<
------------------------------------------------------------------------
FT Put running head on first page
>[*COR:FT=[ZXG1,1]< Notify [*CH] & [*AX]
>[ZXG2,1]< Notify [*THV]
>=]/z<
------------------------------------------------------------------------
HL1 Header Header level 1 text with header "Header"
>[*COR:HL1=[ZIH0]< Count times reentered
>[*THL1]< Stuff too big to fit in definition here
>[*TBOL]< Now, make sure on a new line
>[ZSH1,H0]< Allow for reentrancy
>[ZXT1,5][ZMT1,P3]< TP of 5 lines with a
>[ZXT2,2][ZMT2,P3]< Skip of 2 lines
>[*TTP]< Make sure have room on page
>[FB][ZNG0,TCNUM][ZNG0,TDOT]< Chapter number if in chapter/appendix
>[ZAH1].0< Header level one numbering
> [*TTHL1][FR]/L/L< Now print the header (in bold face)
>[ZXH0,-1]=]/Z< HL command now processed
------------------------------------------------------------------------
HL2 Header Header level 2 text
>[*COR:HL2=[ZIH0]< Count times reentered
>[*COR:TTHL2=@=]< Save the HL2 text
>[ZIH2]< Increment header level
>[ZZH3][*COR:TTHL3==]< Clear header level 3
>[ZZH4][*COR:TTHL4==]< Clear header level 4
>[ZZH5][*COR:TTHL5==]< Clear header level 5
>[*TBOL]< Now, make sure at begining of line
>[ZSH2,H0]< Allow for reentrancy
>[ZXT1,4][ZMT1,P3]< TP of 4 lines with a
>[ZXT2,1][ZMT2,P3]< Skip of 1 line
>[*TTP]< Make sure have room on pages
>[ZNG0,TCNUM][ZNG0,TDOT]< Chapter number if in chapter/appendix
>[ZAH1].[ZAH2]< Header level 2 numbering
> [*TTHL2]/L/L< List the text body
>[ZXH0,-1]=]/Z< HL2 command finished
------------------------------------------------------------------------
HL3 Header Header level 3 text
>[*COR:HL3=[ZIH0]< Count times reentered
>[*COR:TTHL3=@=]< Save the HL3 text
>[ZIH3]< Increment header level
>[ZZH4][*COR:TTHL4==]< Clear header level 4
>[ZZH5][*COR:TTHL5==]< Clear header level 5
>[*TBOL]< Now, make sure at begining of line
>[ZSH3,H0]< Allow for reentrancy
>[ZXT1,3][ZMT1,P3]< TP of 3 lines with a
>[ZXT2,P3]< Skip of only 1 line
>[*TTP]< Make sure room on page
>[ZNG0,TCNUM][ZNG0,TDOT]< Chapter number if in chapter/appendix
>[ZAH1].[ZAH2].[ZAH3]< Header level 3 numbering
> [*TTHL3]/L< Issue the text body
>[ZXH0,-1]=]/Z< HL3 command finished
------------------------------------------------------------------------
HL4 Header Header level 4 text
>[*COR:HL4=[ZIH0]< Count times reentered
>[*COR:TTHL4=@=]< Save the HL4 text
>[ZIH4]< Increment header level
>[ZZH5][*COR:TTHL5==]< Clear header level 5
>[*TBOL]< Now, make sure at begining of line
>[ZSH4,H0]< Allow for reentrancy
>[ZXT1,2][ZMT1,P3]< TP of 2 lines with a
>[ZXT2,P3]< Skip of 1 line
>[*TTP]< Make sure room on page
>[ZNG0,TCNUM][ZNG0,TDOT]< Chapter number if in chapter/appendix
>[ZAH1].[ZAH2].[ZAH3].[ZAH4]< Header level 4 numbering
> [*TTHL4] - < Issue text body
>[ZXH0,-1]=]/Z< HL4 command finished
------------------------------------------------------------------------
HL5 Header Header level 5 text
>[*COR:HL5=[ZIH0]< Count times reentered
>[*COR:TTHL5=@=]< Save the HL5 text
>[ZIH5]< Increment header level
>[*TBOL]< Now, make sure at begining of line
>[ZSH5,H0]< Adjust header level around reentrancy
>[ZXT1,2][ZMT1,P3]< TP of 2 lines with a
>[ZXT2,P3]< Skip of 1 line
>[*TTP]< Make sure room on page
>[ZNG0,TCNUM][ZNG0,TDOT]< Chapter number if in chapter/appendix
>[ZAH1].[ZAH2].[ZAH3].[ZAH4].< Higher level numbering
>[ZAH5]< Header level 5 numbering
> [*TTHL5] - < Issue text body
>[ZXH0,-1]=]/Z< HL5 command finished
------------------------------------------------------------------------
I n Indent "n" p.p's from left (one-shot)
>[*COR:I=[*TBOL][ZXT1,@]< Read indent amount
>[HL.!T1,0,1]< Indent one line
>=]/Z<
------------------------------------------------------------------------
IVLS i,j,k,l,m Set list parameters
i p.p's indent for each [*LS]
j inter-list extra leading
k inter-list t.p. (lines after "j")
l intra-list extra leading
m intra-list t.p. (lines after "l")
>[*COR:IVLS=[ZXI4,@]< Indent value in p.p's for each [*LS] nesting
>[ZXL6,@]< Inter-list (between lists) extra leading
>[ZXL7,@]< Inter-list test page (in addition to L6)
>[ZXL8,@]< Intra-list (between list items) extra leading
>[ZXL9,@]< Intra-list test page (in addition to L8)
>=]/Z<
------------------------------------------------------------------------
IVTB i, t, v, g Set table sub-column parameters
i indent p.p's
t test page p.p's
v leading between entries
g gutter between sub-columns
>[*COR:IVTB=[ZXJ9,@]< Pickup table indent
>[ZXJ8,@]< Pickup test page value
>[ZXJ7,@]< Pickup (extra) leading between entries
>[ZXJ6,@]< Pickup sub-column gutter
>=]/Z<
------------------------------------------------------------------------
LALL List macro and command expansions
>[*COR:LALL=[ZPL,2]< Bump nesting count of [*LALL]'s
>[ZGL,TMJON]< If .GE. 0 then turn on listing ([MJ])
>[ZSL,1]< Make register "L" contain true value
>=]/Z<
------------------------------------------------------------------------
LE List entry item follows
>[*COR:LE=< Not legal till see [*LS]
>[*ERROR]Not in a "List"/L/L< Issue error message
>=]/Z<
------------------------------------------------------------------------
LM n Set left margin to "n" p.p's from 0
>[*COR:LM=[ZXI1,@]< Remember new left margin
>[*TCALIL][IL.!T1]< Set new left indent
>=]/Z<
------------------------------------------------------------------------
LS Start a new list (recurses)
>[*COR:LS=[*TBOL]< Ensure at begining of a line
>[ZZL0]< Flag between lists leading
>[ZII5][ZXT1,I5]< Increment list level
>[ZST1,1][ZET1,TLE1]< Set for list level 1
>[ZST1,1][ZET1,TLE2]< Set for list level 2
>[ZST1,1][ZET1,TLE3]< Set for list level 3
>[ZST1,1][ZET1,TLE4]< Set for list level 4
>[ZST1,1][ZET1,TLE5]< Set for list level 5
>[*TCALIL][IL.!T1]< Set new left indent as appropriate
>[*TCALIR][IR.!T1]< Set new right indent as appropriate
>=]/Z<
------------------------------------------------------------------------
NHD No running head (but keep paging)
>[*COR:NHD=[ZXG2,-9999999999]< No running head (but keep paging)
>=]/Z<
------------------------------------------------------------------------
NLV n,m,o,p,q Set header level to "n.m.o.p.q"
>[*COR:NLV=[ZXH1,@]< Load header level 1
>[ZXH2,@]< Load header level 2
>[ZXH3,@]< Load header level 3
>[ZXH4,@]< Load header level 4
>[ZXH5,@]< Load header level 5
>=]/Z<
------------------------------------------------------------------------
NM n Set page number to "n", enable paging
>[*COR:NM=[ZXP,@]< Set new page number
>[*PAGING]< Enable paging
>=]/Z<
------------------------------------------------------------------------
NNM Turn off page numbering
>[*COR:NNM=[ZZG7]< No page numbers on running head
>=]/Z<
------------------------------------------------------------------------
NOTE note,text Print "note" bold centered, text
>[*COR:NOTE=[*TBOL]< Make sure at nice place
>[ZII3]< Increment [*NOTE] nesting level
>[*TCALIL][IL.!T1]< New left indent
>[*TCALIR][IR.!T1]< New right indent
>[ZXT1,P3][ZMT1,5]< Test page of 5 lines
>[ZXT2,P3][*TTP]< With one blank line before "note"
>[FB]@[FR]/C/L< Print "NOTE" or whatever in centered bold
>@< The note text itself
>[*TBOL]< Make sure last line terminated
>[ZSI3,1]< Decrement nesting level
>[*TCALIL][IL.!T1]< Reset left indent
>[*TCALIR][IR.!T1]< Reset right indent
>[ZXT1,P3][ZMT1,3]< Test page to make sure not too close
>[ZXT2,P3][*TTP]< To bottom of page
>=]/Z<
------------------------------------------------------------------------
NPA Turn off paging completely
Note that [*AX] and [*CH] reset this
>[*COR:NPA=[VC9999999999]< Set [FB]HUGE[FR] page
>=]/Z<
------------------------------------------------------------------------
NRFOOT Turn off running feet
>[*COR:NRFOOT=[ZXG4,-999999999]<Turn off running feet
>=]/Z<
------------------------------------------------------------------------
NRHEAD Turn off running head(s)
>[*COR:NRHEAD=[ZXG2,-999999999]<Turn off running head(s)
>=]/z<
------------------------------------------------------------------------
NST Turn off subtitles in running head(s)
>[*COR:NST=[ZZG8]< No subtitles on running head(s)
>=]/Z<
------------------------------------------------------------------------
NTI Turn off titles, subtitles in running head(s)
>[*COR:NTI=[ZZG8][ZZG9]< No titles, subtitles on running head(s)
>=]/Z<
------------------------------------------------------------------------
PARA i, s, t Set paragraphing parameters:
Indent "i" p.p's;
Skip "s" points;
Test Page "t" points.
>[*COR:PARA=[ZXQ0,@]< Read in paragraph indent
>[ZXQ1,@]< Read in skip value
>[ZXQ2,@]< Get test page values
>[IP.!Q0,.!Q1]< Tell JUSTIF (TP not yet implemented)
>=]/Z<
------------------------------------------------------------------------
PG Force a new page
>[*COR:PG=[ZXC,1][VB]< Force premature page break at next line
>=]/Z<
------------------------------------------------------------------------
PGI Force a new page immediately
(this defeats allowing following [*HLn]
to provide running header information)
>[*COR:PGI=[ZXC,1][VB]/L< Force premature page break immediately
>=]/Z<
------------------------------------------------------------------------
PGCOL Force a new column
>[*COR:PGCOL=[VB]< Force premature column break
>=]/Z<
------------------------------------------------------------------------
PLCHAP points,leading Pointsize & leading for chap/app
(Must be issued from regular text)
>[*COR:PLCHAP=[ZXP6,@]< Read in pointsize for chapter titles
>[ZXP7,@]< And read in leading
>=]/Z<
------------------------------------------------------------------------
PLFOOT points,leading Pointsize & leading for running feet
(Must be issued from regular text)
>[*COR:PLFOOT=[ZXP8,@]< Read in pointsize for running feet
>[ZXP9,@]< And read in leading
>=]/Z<
------------------------------------------------------------------------
PLHEAD points,leading Pointsize & leading for running head(s)
(Must be issued from regular text)
>[*COR:PLHEAD=[ZXP4,@]< Read in pointsize for running head(s)
>[ZXP5,@]< And read in leading
>=]/Z<
------------------------------------------------------------------------
PLTEXT points,leading Pointsize & leading for regular text
(Must be issued from regular text)
>[*COR:PLTEXT=[ZXP2,@]< Read in pointsize for regular text
>[ZXP3,@]< And read in leading
>[PR!P2,!P3]< Set regular text parameters
>=]/Z<
------------------------------------------------------------------------
PS h, w Set page size "w" p.p's by "h" p.p's
(Does not include space for any running feet,
resets both left and right margins)
>[*COR:PS=[*TBOL]< Insure at begining of fresh line
>[ZXS1,P1]< Old height of page
>[ZXP1,@]< New height of page
>[ZXS2,$M][ZDS2,$Y]< Remainder of old page
>[ZXT1,P1][ZPT1,S2][ZST1,S1]< Current difference of old and new page
>[ZXP0,@][CM.!P0]< Set new width of page
>[ZGT1,TVC]< If .GT. 0 then still room left on page
>[ZET1,PG]< If .EQ. 0 then time for a new page
>[ZLT1,PG]< If .LT. 0 then time for a new page
>[ZGT1,TCOLST]< If not new page, set columns
>[ZXI0,C0][ZZI1]< Reset left and right margin
>< (Necessary for multi-columning)
>=]/Z<
------------------------------------------------------------------------
RFOOT Turn on running feet
>[*COR:RFOOT=[ZXG4,1]< Turn on running feet
>=]/Z<
------------------------------------------------------------------------
RHEAD Turn on running head(s)
>[*COR:RHEAD=[ZXG2,1]< Turn on running head(s)
>=]/Z<
------------------------------------------------------------------------
RM n Set right margin to "n" p.p's from 0
>[*COR:RM=[ZXI0,@]< Read in indent amount
>[*TCALIR][IR.!T1]< Set new right indent
>=]/Z<
------------------------------------------------------------------------
SK n Skip "n" lines
>[*COR:SK=[*TBOL]< Start fresh line
>[AR@][*TEOL]< Skip "n" lines
>=]/Z<
------------------------------------------------------------------------
SP v Set vertical leading to "v" points
>[*COR:SP=[ZXP3,@][V!P3]< Set and remember new stored leading
>=]/Z<
------------------------------------------------------------------------
SUB n Print "n" as subscript
>[*COR:SUB=[ZXT5,$P][ZXT6,$V]< Get current pointsize and leading
>[ZU$P]< Save pointsize for moment
>[ZMT5,60][ZDT5,10000]< T5:=60% of current pointsize
>[ZMT6,D2][ZDT6,10000]< T6:=(D2)% of current leading
>[PR!T5][EJ-!T6]< Smaller print, lower baseline
>[ZET6,TLPRN]< If no baseline then type "(" instead
>@< The subscript itself
>[ZET6,TRPRN]< If no baseline then type ")" instead
>[EJ%][ZVT5][ZDT5,100][PR!T5]< Restore world
>=]/Z<
------------------------------------------------------------------------
SUBTTL text Set page header subtitle to "text"
>[*COR:SUBTTL=<
>[*COR:TSUBTT=@=]< Define new subtitle text
>=]/Z<
------------------------------------------------------------------------
SUP n Print "n" as superscript
>[*COR:SUB=[ZXT5,$P][ZXT6,$V]< Get current pointsize and leading
>[ZU$P]< Save pointsize for moment
>[ZMT5,60][ZDT5,10000]< T5:=60% of current pointsize
>[ZMT6,D2][ZDT6,10000]< T6:=(D2)% of current leading
>[PR!T5][EJ-!T6]< Smaller print, lower baseline
>[ZET6,TLPRN]< If no baseline then type "(" instead
>@< The superscript itself
>[ZET6,TRPRN]< If no baseline then type ")" instead
>[EJ%][ZVT5][ZDT5,100][PR!T5]< Restore world
>=]/Z<
------------------------------------------------------------------------
TABLE2 w1, w2 Set for two column table
w1 width of sub-column 1
w2 width of sub-column 2
>[*COR:TABLE2=[ZXJ1,@]< Pickup width of sub-column 1
>[ZXJ2,@]< Pickup width of sub-column 2
>[ZZJ3][ZZJ4][ZZJ5]< Clear others
>=]/Z<
------------------------------------------------------------------------
TABLE3 w1, w2, w3 Set for three column table
w1 width of sub-column 1
w2 width of sub-column 2
w3 width of sub-column 3
>[*COR:TABLE3=[ZXJ1,@]< Pickup width of sub-column 1
>[ZXJ2,@][ZXJ3,@]< Pickup widths of subcolumns 2 and 3
>[ZZJ4][ZZJ5]< Clear the rest
>=]/Z<
------------------------------------------------------------------------
TABLE4 w1, w2, w3, w4 Set for four column table
w1 width of sub-column 1
w2 width of sub-column 2
w3 width of sub-column 3
w4 width of sub-column 4
>[*COR:TABLE4=[ZXJ1,@]< Pickup width of sub-column 1
>[ZXJ2,@][ZXJ3,@][ZXJ4,@]<Pickup widths of subcolumns 2, 3, and 4
>[ZZJ5]< Clear the rest
>=]/Z<
------------------------------------------------------------------------
TABLE5 w1, w2, w3, w4, w5 Set for four column table
w1 width of sub-column 1
w2 width of sub-column 2
w3 width of sub-column 3
w4 width of sub-column 4
>[*COR:TABLE5=[ZXJ1,@]< Pickup width of subcolumn 1
>[ZXJ2,@][ZXJ3,@][ZXJ4,@]<Pickup widths of subcolumns 2, 3, and 4
>[ZXJ5,@]< Pickup width of subcolumn 5
>=]/Z<
------------------------------------------------------------------------
TABS8 Set Tab stops every 8 "spaces"
>[*COR:TABS8=[T%]< First clear old tab stops
>[TS4.10,9.7,14.5,19.2,24.0,28.10,33.7,38.5,43.2,48.0,52.10,57.7,62.5,67.2,72.0,76.10]<
>=]/Z<
------------------------------------------------------------------------
TE2 t1, t2 Text entry for 2-sub-column table
t1 text for sub-column 1
t2 text for sub-column 2
>[*COR:TE2=[*TTEI]< Setup for table entry
>@< Text body of sub-column 1
>[ZXS1,J1][ZXS2,J2][*TTBLTE]< Set for table sub-column 2
>@< Text body of sub-column 2
>[*TTEND]< End of table entry, position past longest
>=]/Z<
------------------------------------------------------------------------
TE3 t1, t2, t3 Text entry for 3-sub-column table
t1 text for sub-column 1
t2 text for sub-column 2
t3 text for sub-column 3
>[*COR:TE3=[*TTEI]< Setup for table entry
>@< Text body of sub-column 1
>[ZXS1,J1][ZXS2,J2][*TTBLTE]< Set for table sub-column 2
>@< Text body of sub-column 2
>[ZXS1,J2][ZXS2,J3][*TTBLTE]< Set for table sub-column 3
>@< Text body of sub-column 3
>[*TTEND]< End of table entry, position past longest
>=]/Z<
------------------------------------------------------------------------
TE4 t1, t2, t3, t4 Text entry for 4-sub-column table
t1 text for sub-column 1
t2 text for sub-column 2
t3 text for sub-column 3
t4 text for sub-column 4
>[*COR:TE4=[*TTEI]< Setup for table entry
>@< Text body of sub-column 1
>[ZXS1,J1][ZXS2,J2][*TTBLTE]< Set for table sub-column 2
>@< Text body of sub-column 2
>[ZXS1,J2][ZXS2,J3][*TTBLTE]< Set for table sub-column 3
>@< Text body of sub-column 3
>[ZXS1,J3][ZXS2,J4][*TTBLTE]< Set for table sub-column 4
>@< Text body of sub-column 4
>[*TTEND]< End of table entry, position past longest
>=]/Z<
------------------------------------------------------------------------
TE5 t1, t2, t3, t4, t5 Text entry for 5-sub-column table
t1 text for sub-column 1
t2 text for sub-column 2
t3 text for sub-column 3
t4 text for sub-column 4
>[*COR:TE5=[*TTEI]< Setup for table entry
>@< Text body of sub-column 1
>[ZXS1,J1][ZXS2,J2][*TTBLTE]< Set for table sub-column 2
>@< Text body of sub-column 2
>[ZXS1,J2][ZXS2,J3][*TTBLTE]< Set for table sub-column 3
>@< Text body of sub-column 3
>[ZXS1,J3][ZXS2,J4][*TTBLTE]< Set for table sub-column 4
>@< Text body of sub-column 4
>[ZXS1,J4][ZXS2,J5][*TTBLTE]< Set for table sub-column 5
>@< Text body of sub-column 5
>[*TTEND]< End of table entry, position past longest
>=]/Z<
------------------------------------------------------------------------
TITLE text Set page header title to "text"
>[*COR:TITLE=<
>[*COR:TTITLE=@=]< Define new title text
>=]/Z<
------------------------------------------------------------------------
TP n, s Test column for at least "n" lines left
if no new column skip "s" lines
>[*COR:TP=[*TBOL]< Make sure at begining of line
>[ZXT1,@][ZMT1,P3]< T1:=t.p. value in points
>[ZXT2,@][ZMT2,P3]< T2:=skip value in points
>[*TTP]< Do the actual test page (column) work
>=]/Z<
------------------------------------------------------------------------
TPV v, s Test column for at least "v" points left
if no new column skip "s" points
>[*COR:TPV=[*TBOL]< Make sure at begining of line
>[ZXT1,@]< T1:=t.p. value in points
>[ZXT2,@]< T2:=skip value in points
>[*TTP]< Do the actual test page (column) work
>=]/Z<
------------------------------------------------------------------------
XALL Turn off macro and command listing
>[*COR:XALL=[ZSL,1]< Bump nesting count of [*SALL]'s
>[ZLL,TMJOFF]< If .LT. 0 then turn off listing ([MJ%])
>=]/Z<
------------------------------------------------------------------------
Internal usage macros
TBOL Make sure at begining of line
>[*COR:TBOL=/?< Make sure at begining of line
>=]/Z<
------------------------------------------------------------------------
TCALIL Calculate total left indent into T1
>[*COR:TCALIL=[ZXT1,I1]< Get left margin
>[ZXT2,I2][ZMT2,I3][ZPT1,T2]< Left indent for [*NOTE]
>[ZXT2,I4][ZMT2,I5][ZPT1,T2]< Left indent for [*LE]
>[ZPT1,J0]< Indent for table sub-column(s)
>=]/Z<
------------------------------------------------------------------------
TCALIR Calculate total right indent into T1
>[*COR:TCALIR=[ZXT1,C0]< Get column width
>[ZST1,I0]< Get indent to right margin
>[ZXT2,I2][ZMT2,I3][ZPT1,T2]< Right indent for [*NOTE]
>=]/Z<
------------------------------------------------------------------------
TCOLST Setup parameters for multi-columns
>[*COR:TCOLST=[ZXT1,C1]< Column gutter
>[ZMT1,C2][ZST1,C1]< T1 := total space devoted to gutter
>[ZXT2,P0][ZST2,T1]< T2 := total space available to text
>[ZDT2,C2][ZXC0,T2]< C0 := width of each column
>[C.!C0][VG.!C1]< Set column width and gutter
>=]/Z<
------------------------------------------------------------------------
TCOLSX Set column parameters
>[*COR:TCOLSX=<
>[ZXC,C2][C.!C0]< Set column width for text column(s)
>< (Must set column width before [VC] com-
>< mand; [VC] remembers widest column set,
>< which otherwise would be [C.!P0] above)
>[ZXT1,$M][ZDT1,$Y]< Calculate column length for text column(s)
>[VM7][VC%][VP7][VC!T1]< Set column length for text column(s)
>< (Must reset [VC%] so [VC] returns here;
>< [VC] remembers longest column set, which
>< otherwise would be from [VC!P1] above)
>[ZXC3,$U]< Remember total leading at start of column
>=]/Z<
------------------------------------------------------------------------
TCNUM Text for chapter/appendix level
>[*COR:TCNUM=< Initially blank
>=]/Z<
------------------------------------------------------------------------
TDASH Print "-"
>[*COR:TDASH=-< "-"
>=]/Z<
------------------------------------------------------------------------
TDOT Print "."
>[*COR:TDOT=.< "."
>=]/Z<
------------------------------------------------------------------------
TEOL Give forced end of line
>[*COR:TEOL=/L< Quad left will do for now
>=]/Z<
------------------------------------------------------------------------
TFACE Set to proper face in T1
>[*COR:TFACE=[ZCT1,10000]< Reduce to font number (ignore [FM])
>[ZXT2,T1][ZCT2,10]< T2:=subface index (1=italics, etc.)
>[ZST1,T2][F!T1]< T1:=master face font number
>[ZST2,1][ZET2,TFI]< If subface 1 then italics face
>[ZST2,1][ZET2,TFB]< If subface 2 then bold face
>[ZST2,1][ZET2,TFS]< If subface 3 then small caps face
>=]/Z<
------------------------------------------------------------------------
TFB Set bold face
>[*COR:TFB=[FB]< Bold face command
>=]/Z<
------------------------------------------------------------------------
TFFEED Do a logical page feed (seperation)
>[*COR:TFFEED=[ZED1,TLPFF]< Do form feed if available
>[ZXT2,D1][ZGT2,TVAT2]< Else do immediate lead 'tween pages
>[ZXQ,$U]/Z< Leading at start of page (text)
>=]/Z<
------------------------------------------------------------------------
TFI Set italics face
>[*COR:TFI=[FI]< Italics face command
>=]/Z<
------------------------------------------------------------------------
TFM Set face modify(ed)
>[*COR:TFM=[FM]< Face modify command
>=]/Z<
------------------------------------------------------------------------
TFOOTD Do a running foot
>[*COR:TFOOTD=<
>[F!D0][PR!P8,!P9]< Set for running foot text
>[ZXT1,$U][ZST1,Q][ZDT1,$Y]< T1:=total points so far this page
>[ZXT2,P1][ZST2,T1][VA!T2]< Position for running foot
>[*TFOOTR]< Print the running foot
>=]/Z<
------------------------------------------------------------------------
TFS Set small caps face
>[*COR:TFS=[FS]< Small caps face command
>=]/Z<
------------------------------------------------------------------------
TFU Set face underline(d)
>[*COR:TFU=[FU]< Face underline command
>=]/Z<
------------------------------------------------------------------------
THEADB Force immediate blank running head
>[*COR:THEADB=<
>[ZUG7][ZUG8][ZUG9]< Save current header setting
>[ZZG7][ZZG8][ZZG9]< Turn off all parts of head
>[*THEADD]< Do the running head
>[ZVG9][ZVG8][ZVG7]< Now restore header settings
>=]/Z<
------------------------------------------------------------------------
THEADD Do a running head
>[*COR:THEADD=<
>[F!D0][PR!P4,!P5]< Set for page header text
>[*THEADR]< Print the running head
>=]/Z<
------------------------------------------------------------------------
THEADR Print the running head text
>[*COR:THEADR=[ZNG9,TTITLE]/Q< Print title if titling
>[ZNG7,TPAGE][ZNG7,TPAGNO]/R< Print page number if numbering
>[ZNG8,TSUBTT]/L/L/L< Print subtitle if subtitling
>=]/Z<
------------------------------------------------------------------------
THL0 Reset all header level information
>[*COR:THL0=[ZXH0,-1]< Just to make sure . . .
>[ZZH1][*COR:TTHL1==]< Clear header level 1
>[ZZH2][*COR:TTHL2==]< Clear header level 2
>[ZZH3][*COR:TTHL3==]< Clear header level 3
>[ZZH4][*COR:TTHL4==]< Clear header level 4
>[ZZH5][*COR:TTHL5==]< Clear header level 5
>=]/Z<
------------------------------------------------------------------------
THL1 Helper for HL1
>[*COR:THL1=[*COR:TTHL1=@=]< Save the HL1 text
>[*COR:TSUBTT=[*TTHL1]=]< And give a free [*SUBTTL] a la RUNOFF
>[ZIH1]< Increment header level
>[ZZH2][*COR:TTHL2==]< Clear header level 2
>[ZZH3][*COR:TTHL3==]< Clear header level 3
>[ZZH4][*COR:TTHL4==]< Clear header level 4
>[ZZH5][*COR:TTHL5==]< Clear header level 5
>< The levels are advanced before the [*TBOL]
>< in case the last command was a [*PG]
>=]/Z<
------------------------------------------------------------------------
THV Paging macro (set by [VH command)
>[*COR:THV=[*TSAVE]< Save the state of the world
>[VM7][VC%][VP7][I%][C.!P0]< Turn off all columning or paging
>[ZGG4,TFOOTD]< Do running foot if set
>[*TFFEED]< Advance to "top of next page"
>[VC!P1]< Set size (length) of this page
>[ZIP]< Increment the page number
>[ZEG2,THEADB]< Do blank header if (e.g.) [*CH]
>[ZGG2,THEADD]< Otherwise do a normal running header
>[ZZG1][ZZG3]< Reset [*FT] anti-blanker
>[ZIG2][ZIG4]< Bump [*CH] blanker
>[*TRSTR]< Restore the state of the world
>=]/Z<
------------------------------------------------------------------------
THVCL End of column macro (calls THV)
>[*COR:THVCL=[ZSC,1][ZEC,THV]< Call THV macro if end of page
>=]/Z<
------------------------------------------------------------------------
TLE0 Define [*LE] for list level 0 (illegal)
>[*COR:TLE0=[*COR:LE=< Define the [*LE] macro
>[*ERROR]Not in a "List"/L/L< Issue error message
>=]< End of [*LE] macro definition
>[ZZL1]< Reset list level 1 counter
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Test page value
>[ZXT2,L6][*TTP]< And skip value
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLE1 Define [*LE] macro for list level 1
>[*COR:TLE1=[*COR:LE=< Define [*LE] macro
>[*TBOL]< Insure at start of a new line
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Inter-list test page value
>[ZXT2,L6][ZEL0,TTP]< Do inter-list leading if first item
>[ZXT1,P3][ZMT1,L9][ZPT1,L8]< Intra-list test page value
>[ZXT2,L8][ZGL0,TTP]< Do intra-list leading if otherwise
>[ZIL0]< Note we are now "otherwise" until [*LS]/[*ELS]
>[HL-3,0,1]< Put list item number out 3 picas
>[ZIL1][ZAL1]./Z< Number this list item
>=]< End of [*LE] macro definition
>[ZZL2]< Reset next lower level's counter
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLE2 Define [*LE] macro for list level 2
>[*COR:TLE2=[*COR:LE=< Define [*LE] macro
>[*TBOL]< Insure at start of a new line
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Inter-list test page value
>[ZXT2,L6][ZEL0,TTP]< Do inter-list leading if first item
>[ZXT1,P3][ZMT1,L9][ZPT1,L8]< Intra-list test page value
>[ZXT2,L8][ZGL0,TTP]< Do intra-list leading if otherwise
>[ZIL0]< Note we are now "otherwise" until [*LS]/[*ELS]
>[HL-3,0,1]< Put list item number out 3 picas
>[ZIL2][ZAL2]./Z< Number this list item
>=]< End of [*LE] macro definition
>[ZZL3]< Reset next lower level's counter
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLE3 Define [*LE] macro for list level 3
>[*COR:TLE3=[*COR:LE=< Define [*LE] macro
>[*TBOL]< Insure at start of a new line
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Inter-list test page value
>[ZXT2,L6][ZEL0,TTP]< Do inter-list leading if first item
>[ZXT1,P3][ZMT1,L9][ZPT1,L8]< Intra-list test page value
>[ZXT2,L8][ZGL0,TTP]< Do intra-list leading if otherwise
>[ZIL0]< Note we are now "otherwise" until [*LS]/[*ELS]
>[HL-3,0,1]< Put list item number out 3 picas
>[ZIL3][ZAL3]./Z< Number this list item
>=]< End of [*LE] macro definition
>[ZZL4]< Reset next lower level's counter
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLE4 Define [*LE] macro for list level 4
>[*COR:TLE4=[*COR:LE=< Define [*LE] macro
>[*TBOL]< Insure at start of a new line
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Inter-list test page value
>[ZXT2,L6][ZEL0,TTP]< Do inter-list leading if first item
>[ZXT1,P3][ZMT1,L9][ZPT1,L8]< Intra-list test page value
>[ZXT2,L8][ZGL0,TTP]< Do intra-list leading if otherwise
>[ZIL0]< Note we are now "otherwise" until [*LS]/[*ELS]
>[HL-3,0,1]< Put list item number out 3 picas
>[ZIL4][ZAL4]./Z< Number this list item
>=]< End of [*LE] macro definition
>[ZZL5]< Reset next lower level's counter
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLE5 Define [*LE] macro for list level 5
>[*COR:TLE5=[*COR:LE=< Define [*LE] macro
>[*TBOL]< Insure at start of a new line
>[ZXT1,P3][ZMT1,L7][ZPT1,L6]< Inter-list test page value
>[ZXT2,L6][ZEL0,TTP]< Do inter-list leading if first item
>[ZXT1,P3][ZMT1,L9][ZPT1,L8]< Intra-list test page value
>[ZXT2,L8][ZGL0,TTP]< Do intra-list leading if otherwise
>[ZIL0]< Note we are now "otherwise" until [*LS]/[*ELS]
>[HL-3,0,1]< Put list item number out 3 picas
>[ZIL5][ZAL5]./Z< Number this list item
>=]< End of [*LE] macro definition
>[ZZT1]< Clear T1 for [*LS]/[*ELS]
>=]/Z<
------------------------------------------------------------------------
TLPFF Do a line-printer (ASCII) form feed
>[*COR:TLPFF=+&< Print form feed character
>=]/Z<
------------------------------------------------------------------------
TLPRN Print "("
>[*COR:TLPRN=(< "(" CHARACTER
>=]/Z<
------------------------------------------------------------------------
TMJOFF Do [MJ%]
>[*COR:TMJOFF=[MJ%]< Turn off command and macro listing
>=]/Z<
------------------------------------------------------------------------
TMJON Do [MJ]
>[*COR:TMJON=[MJ]< Turn on command and macro listing
>=]/Z<
------------------------------------------------------------------------
TNPGVA Do a skip ([VA!T2]) if not at top of page
>[*COR:TNPGVA=[ZXT1,C3]< Leading at start of this text column(s)
>[ZST1,$U]< Less leading at current position
>[ZLT1,TVAT2]< If .LT. 0 then not at top of column(s)
>[ZXT1,-1]< Insure T1 negative (e.g., [*TTP])
>=]/Z<
------------------------------------------------------------------------
TPAGE Print "Page"
>[*COR:TPAGE=Page < "Page"
>=]/Z<
------------------------------------------------------------------------
TPAGNO Print page number
>[*COR:TPAGNO=[ZGG0,TCNUM]< If chapter/appendix then chapter number
>[ZGG0,TDASH][ZAP]< Print current page number
>=]/Z<
------------------------------------------------------------------------
TPOSB Position to bottom of page (running foot)
>[*COR:TPOSB=[ZXT1,P1]< Total page depth
>[ZPT1,Q]< Total leading at end of page
>[ZST1,$U]< T1 := amount of leading left this page
>[VA!T1]/Z< Position to bottom of [*PS] page
>=]/Z<
------------------------------------------------------------------------
TRPRN Print ")"
>[*COR:TRPRN=)< ")"
>=]/Z<
------------------------------------------------------------------------
TRSTR Restore state of world to normal
(Called only after [*TSAVE])
>[*COR:TRSTR=[ZVT1][*TFACE]< Restore face to user-specified
>[PR!P2,!P3]< Re-set pointsize and leading
>[*TCOLSX]< Re-set column parameters
>[*TCALIL][IL.!T1]< Re-set left indent
>[*TCALIR][IR.!T1]< Re-set right indent
>=]/Z<
------------------------------------------------------------------------
TSAVE Save state of world
>[*COR:TSAVE=[ZU$F]< Save current face
>=]/Z<
------------------------------------------------------------------------
TSUBTT Text body of subtitle
>[*COR:TSUBTT=< Initially null (no subtitle seen yet)
>=]/Z<
------------------------------------------------------------------------
TTBLTE Advance to next table sub-column
>[*COR:TTBLTE=[*TBOL]< Ensure at start of new line
>[*TTBLTV]< Check for longest sub-column
>[ZPJ0,S1][ZPJ0,J6]< Advance sub-column indent measure
>[*TCALIL][IL.!T1]< Set new sub-column indent
>[ZPT1,S2][C.!T1]< Set width for table sub-column
>[VP8]< Position for next table sub-column
>=]/Z<
------------------------------------------------------------------------
TTBLTV Test for longest table sub-column
>[*COR:TTBLTV=[ZXT1,$U]< Total leading so far
>[ZST1,J][ZGT1,TTBLVM]< Mark longest table sub-column
>=]/Z<
------------------------------------------------------------------------
TTBLVM Mark longest table sub-column
>[*COR:TTBLVM=[ZXJ,$U]< Remember leading at longest point
>[VM9]< And markpoint so we can [VP] later
>=]/Z<
------------------------------------------------------------------------
TTEI Internal [*TE?] initializer
>[*COR:TTEI=[*TBOL]< Ensure at start of line
>[ZXT1,J8][ZZT2][ZGT1,TTP]< Do test page
>[VM8]< Mark vertical start of sub-column
>[ZXJ,$U]< Longest sub-column so far
>[ZXJ0,J9][*TCALIL][IL.!T1]< Set initial table indent
>[ZPT1,J1][C.!T1]< Set sub-column 1 column width
>=]/Z<
------------------------------------------------------------------------
TTEND End of TE? commands
>[*COR:TTEND=< Common commands to end TE? commands
>[*TBOL][*TTBLTV][VP9]< Check and position to longest sub-column
>[ZXT1,J8][ZXT2,J7][ZGT1,TTP]< Do any between-entry leading
>[ZZJ0][*TCALIL][IL.!T1]< Reset left margin for normal text
>[C.!C0]< Reset text column width
>=]/Z<
------------------------------------------------------------------------
TTHL1 Text body of HL1
>[*COR:TTHL1=< Initially null
>=]/Z<
------------------------------------------------------------------------
TTHL2 Text body of HL2
>[*COR:TTHL2=< Initially null
>=]/Z<
------------------------------------------------------------------------
TTHL3 Text body of HL3
>[*COR:TTHL3=< Initially null
>=]/Z<
------------------------------------------------------------------------
TTHL4 Text body of HL4
>[*COR:TTHL4=< Initially null
>=]/Z<
------------------------------------------------------------------------
TTHL5 Text body of HL5
>[*COR:TTHL5=< Initially null
>=]/Z<
------------------------------------------------------------------------
TTSDS Print " - "
>[*COR:TTSDS= - < The advertised " - "
>=]/Z<
------------------------------------------------------------------------
TTITLE Text body of title
>[*COR:TTITLE=< Initially null (no title seen yet)
>=]/Z<
------------------------------------------------------------------------
TTP Internal test page (column) worker
T1:=t.p. value in points
T2:=skip value in points
>[*COR:TTP=[ZMT1,$Y][ZST1,$M]< T1:=negative of room left
>[ZLT1,TNPGVA][ZET1,TNPGVA]< If .LE. 0 then room on column, do SKIP
>[ZGT1,PGCOL]< If .GT. 0 then new column, no SKIP
>=]/Z<
------------------------------------------------------------------------
TVAT2 Do [VA!T2]
>[*COR:TVAT2=[VA!T2]< Do [VA!T2] command
>=]/Z<
------------------------------------------------------------------------
TVC Do [VC!T1]
>[*COR:TVC=[VC!T1]< Set new rest of page
>=]/Z<
------------------------------------------------------------------------
TZXG2 Do [ZXG2,G1]
>[*COR:TZXG2=[ZXG2,G1]< Do the [ZXG2,G1] command
>=]/Z<
------------------------------------------------------------------------
TZXG4 Do [ZXG4,G3]
>[*COR:TZXG4=[ZXG4,G3]< Do the [ZXG4,G3] command
>=]/Z<
------------------------------------------------------------------------
Initialization
>[ZXG2,0]< Default is no first title
>[*THL0]< Initialize header-level counters
>[ZXG0,0]< No chapter or appendices yet
>[ZXG7,1][ZXG8,1][ZXG9,1]< Print page number, title, subtitles
>[ZXI0,42.0]< Right margin of 42 picas (7 inches)
>[ZXI1,0]< Left margin of 0 picas
>[ZXI2,3.0][ZXI3,0]< [*NOTE] indent of 3 picas, none yet seen
>[ZXI4,3.0][ZXI5,0]< [*LE] indent of 3 picas, none yet seen
>[ZXL6,1.0][ZXL7,2]< Default inter-list leading and t.p.
>[ZXL8,0.0][ZXL9,1]< Default intra-list leading and t.p.
>[ZXP,0]< Initial page number
>[ZXP0,42.0]< Page size of 42 picas wide
>[ZXP1,60.0]< By 60 picas (10 inches, 60 lines) long
>[ZXP2,10][ZXP3,12]< Regular text at 10 on 12
>[ZXP4,10][ZXP5,12]< Page headers at 10 on 12
>[ZXP6,16][ZXP7,18]< Chapter/appendix titles at 16 on 18
>[ZXP8,10][ZXP9,12]< Footnotes at 10 on 12
>[ZXC0,P0][ZXC1,3.0][ZXC2,1]< Initially one column as wide as page size
>[ZXQ0,3.0]< Paragraph indent of 3 picas
>[ZXQ1,12]< With one blank line between paragraphs
>[ZXQ2,36]< And a test page of at least 36 points
>[ZXJ6,3.0]< Table "gutter" of 3 picas
>[ZXJ7,0]< No extra spacing between table entries
>[ZXJ8,3.0]< Table entry test page of 3 picas
>[ZXJ9,0]< No special table indent
>[*TABS8]< Setup "normal" tab stops
>[*RHEAD][*NRFOOT]< Default is running head, no running foot
>[PR!P2,!P3]< Set pointsize and leading
>[CM.!P0][*TCOLST]< Set column width information
>[VC!P1]< Set column depth
>[*TCALIL][IL.!T1]< Set any left indent
>[*TCALIR][IR.!T1]< Set any right indent
>[VHTHVCL]< Start of column macro
>