80 lines
1.0 KiB
OpenEdge ABL
80 lines
1.0 KiB
OpenEdge ABL
|
'so /usr/lib/tmac/tmac.s
|
||
|
.if t .tr \(rh-
|
||
|
.if t .tr *\(**=\(eq/\(sl+\(pl
|
||
|
.bd S B 3
|
||
|
.de SM
|
||
|
.if "\\$1"" .ps -2
|
||
|
.if !"\\$1"" \s-2\\$1\s0\\$2
|
||
|
..
|
||
|
.de LG
|
||
|
.if "\\$1"" .ps +2
|
||
|
.if !"\\$1"" \s+2\\$a\s0\\$2
|
||
|
..
|
||
|
.de HP
|
||
|
.nr pd \\n(PD
|
||
|
.nr PD 0
|
||
|
.if \\n(.$=0 .IP
|
||
|
.if \\n(.$=1 .IP "\\$1"
|
||
|
.if \\n(.$>=2 .IP "\\$1" "\\$2"
|
||
|
.nr PD \\n(pd
|
||
|
.rm pd
|
||
|
..
|
||
|
.de LS \"LS - Literal display, ASCII, constant spaced DS
|
||
|
.XD
|
||
|
.ID
|
||
|
.nf
|
||
|
.if t .tr '\'`\`^\(ua-\(mi
|
||
|
.if t .tr _\(ul
|
||
|
..
|
||
|
.de LE \"LE - End literal display
|
||
|
.DE
|
||
|
.tr ''``__--^^
|
||
|
..
|
||
|
.de UP
|
||
|
Berkeley Pascal\\$1
|
||
|
..
|
||
|
.de PD
|
||
|
\s-2PDP\s0
|
||
|
.if \\n(.$=0 11/70
|
||
|
.if \\n(.$>0 11/\\$1
|
||
|
..
|
||
|
.de DK
|
||
|
Digital Equipment Corporation\\$1
|
||
|
..
|
||
|
.de IN
|
||
|
.I
|
||
|
.if \\n(.$<2 \\$1 1.0 Implementation Notes
|
||
|
.if \\n(.$>=2 \\$1 1.0 Implementation Notes\\c
|
||
|
.R
|
||
|
.if \\n(.$>=2 \\$2
|
||
|
..
|
||
|
.de UM
|
||
|
.I
|
||
|
User's Manual
|
||
|
.R
|
||
|
..
|
||
|
.de PC
|
||
|
.I pc \\$1
|
||
|
..
|
||
|
.de PI
|
||
|
.I pi \\$1
|
||
|
..
|
||
|
.de XP
|
||
|
.I pxp \\$1
|
||
|
..
|
||
|
.de IX
|
||
|
.I pix \\$1
|
||
|
..
|
||
|
.de X
|
||
|
.I px \\$1
|
||
|
..
|
||
|
.if n .ds dg +
|
||
|
.if t .ds dg \(dg
|
||
|
.if n .ds dd *
|
||
|
.if t .ds dd \(dd
|
||
|
.if n .nr FM 1.12i
|
||
|
.if t .ds b \\fB
|
||
|
.if n .ds b \\fI
|
||
|
.ds i \\fI
|
||
|
.nr xx 1
|