TGAL Manual

TGAL Procedures
Tailoring TGAL
060865 Tandem Computers Incorporated 4–3
BOX^TAG Procedure The BOX^TAG procedure changes the default characters used by TGAL to create the
sides, top, and bottom of a box, as specified by the BOX command, and changes the
default character used by TGAL to tag text, as specified by the TAG command. This
procedure is useful on a system where the code used for the ASCII character “|”
represents some other graphic, for example, one of the European national characters.
In the TGALUPS file, this procedure is:
PROC BOXTAG(BOXSIDECHAR, BOXTOPBOTTOMCHAR, TAGCHAR);
STRING .BOXSIDECHAR, ! set this param to the box side char !
.BOXTOPBOTTOMCHAR, ! set this param to the box top/bot !
.TAGCHAR; ! set this param to the tag char !
BEGIN ! !
BOXSIDECHAR := "|"; ! set box side to "|" by default !
BOXTOPBOTTOMCHAR := "-"; ! set box top/bot to "-" by default !
TAGCHAR := "|"; ! set tag char to "|" by default !
END; ! end of boxtag procedure !
The exclamation points mark off the comments in the program. You change only the
lines marked with an arrow; for example.
PROC BOXTAG(BOXSIDECHAR, BOXTOPBOTTOMCHAR, TAGCHAR);
STRING .BOXSIDECHAR, ! set this param to the box side char !
.BOXTOPBOTTOMCHAR, ! set this param to the box top/bot !
.TAGCHAR; ! set this param to the tag char !
BEGIN ! !
BOXSIDECHAR := "*"; ! set box side to "*" by default !
BOXTOPBOTTOMCHAR := "*"; ! set box top/bot to "*" by default !
TAGCHAR := "+"; ! set tag char to "+" by default !
END; ! end of boxtag procedure !