HP TACL - Figure 2-12. Displaying a Screen of Text

Accessing Terminals
Developing TACL Programs
107365 Tandem Computers Incorporated 2–27
Use the routine in Figure 2-12, displayinfo, to list a screen full of lines and prompt
the user to continue. To use this routine, load the associated file and enter:
displayinfo
This routine does not display an entire screen of text, but shows how the prompt
works.
Figure 2-12. Displaying a Screen of Text
?SECTION displayinfo ROUTINE
#FRAME
#PUSH help_input help_prompt
[#DEF ascii STRUCT
BEGIN
BYTE byt0 (0:1) VALUE 27;
CHAR esc (0:1) REDEFINES byt0;
BYTE byt1 (0:1) VALUE 84;
CHAR rdf1 (0:1) REDEFINES byt1; == roll down
BYTE byt2 (0:1) VALUE 75;
CHAR rdf2 (0:1) REDEFINES byt2; == erase to end of line
END;
]
#SET help_prompt PRESS CTRL/Y to exit or any other key to &
continue:~
#OUTPUT Sample list text...
#OUTPUT Line 2...
#OUTPUT Line 3...
#INPUTV help_input help_prompt
== The following code erases the prompt
== and resumes output on the line where the prompt was.
[#IF [#INPUTEOF] |THEN|
#OUTPUT [ascii:esc][ascii:rdf1][ascii:esc][ascii:rdf2]&
[ascii:esc][ascii:rdf1]
|ELSE|
#OUTPUT Display more text...
#OUTPUT Line 2...
#OUTPUT Line 3...
]
#UNFRAME