Figure 2-12. Displaying A Screen Of Text - HP TACL Programming Manual

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)
BYTE byt1 (0:1) VALUE 84;
CHAR rdf1 (0:1) REDEFINES byt1;
BYTE byt2 (0:1) VALUE 75;
CHAR rdf2 (0:1) REDEFINES byt2;
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
107365 Tandem Computers Incorporated
REDEFINES byt0;
== roll down
== erase to end of line
Developing TACL Programs
Accessing Terminals
2–27