HP TACL - Page 51

Accessing Terminals
Developing TACL Programs
107365 Tandem Computers Incorporated 2–31
Figure 2-14. Displaying a Menu (Page 2 of 2)
[#LOOP |DO|
#OUTPUTV displayvar
SINK [#INPUT /FUNCTIONKEY fkey/ [prompt]]
[#CASE [fkey]
| F1 | SINK [psmail]
| F2 | #INPUTV temp prompt1
TEDIT [temp]
| F3 | #INPUTV temp prompt1
#SET temp2
#INPUTV temp2 prompt2
[#IF [#EMPTYV /BLANK/ temp2] |THEN|
#SET temp2 $S.#AD]
SINK [TGAL /IN [temp], OUT [temp2], NOWAIT/]
| F4 | SINK [PERUSE]
| F5 | #INPUTV temp prompt1
#SET temp2
#INPUTV temp2 prompt2
[#IF [#EMPTYV /BLANK/ temp2] |THEN|
#SET temp2 $S.#ADMIN]
SINK [TFORM /IN [temp], OUT [temp2], NOWAIT/]
|SF1 | #SET done 1
|SF16| #UNFRAME
#LOGOFF
| OTHERWISE |
#OUTPUT ** Invalid selection. Select a valid function key
]
|UNTIL| [done]
]
#OUTPUT
#OUTPUT Exiting Application Menu...
#OUTPUT
#UNFRAME