HP TACL Programming Manual page 176

Example of a System Management Program
Monitoring System Operation
Note
8–2
Figure 8-1. Monitoring System Status (Page 1 of 12)
?SECTION ckup MACRO
#FRAME
== Definitions for terminal I/O
[#DEF esc STRUCT
BEGIN
BYTE byte_escape VALUE 27;
CHAR char_escape REDEFINES byte_escape;
END;
] == end def
== The following #DEFs must be on single lines for
== later replacement in #OUTPUT calls
#PUSH rev end termout
#SET rev [Esc:Char_Escape]6$
#SET end [Esc:Char_Escape]6`
[#DEF Tcr text |BODY| [#IF [termout] |THEN|[rev]] ]
[#DEF Tce text |BODY| [#IF [termout] |THEN|[end]] ]
#PUSH #PMSG == turn off #PMSG flag
#SET #PMSG 0
[#IF NOT [#EMPTY %1%] |THEN|
#PUSH #OUT
#SET termout 0
[#IF [#MATCH p %1%] |THEN|
#SET #OUT $s.#hum
|ELSE|
#SET #OUT %1%
] == end if
|ELSE|
#SET termout -1
] == end if
If the result of an expansion must fit on one line, the related definition must fit onto one line. The
definitions of tcr and tce in Figure 8-1 follow this rule.
107365 Tandem Computers Incorporated
== Terminal Control reverse
== Terminal Control end