Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 29
List-Directed Formatting
!------------------------------------------------------------
! Here are a few DEFINEs to make it a little easier to
! format and print messages.
!------------------------------------------------------------
! Initialize for a new line:
DEFINE START^LINE = @S^PTR := @SBUFFER #;
! Put a string into the line:
DEFINE PUT^STR(S) = S^PTR ':=' S -> @S^PTR #;
! Print the line:
DEFINE PRINT^LINE =
CALL WRITE^LINE(SBUFFER,@S^PTR '-' @SBUFFER) #;
! Print a blank line:
DEFINE PRINT^BLANK =
CALL WRITE^LINE(SBUFFER, 0) #;
!------------------------------------------------------------
! Procedure to print text on the terminal.
!------------------------------------------------------------
PROC WRITE^LINE (BUF, LEN);
STRING .BUF;
INT LEN;
BEGIN
CALL WRITEX(TERM^NUM,BUF,LEN);
IF <> THEN CALL PROCESS_STOP_;
END;