Routine: XUXTADPRT2

Information

XUXTADPRT2 ;ESL/JAC/CM - UTL Printing subroutines & extrinsics #2 ; 06/26/2020@9:30

Name	Comments	DBIA/ICR reference
CONTINUE(AXUXTADLF,AXUXTADTYPE)
UP(AXUXTADOPTION)
DOTS(XUXTADCURRCNT,XUXTADDISPCNT)	; Write dots '.....' to the video display every x number ; of records, where x defaults to every 100 records
SHOWGOAL(XUXTADRTN)	; Display the purpose or goal of the routine/menu option ; to the user. This should be located at GOAL+1^XUXTADRTN and ; the end of the goal should be documented by the following ; code: ;; * END *
SHOWOPT(XUXTADOPTION)	; Display option text.
TRYAGAIN(XUXTADINPUTVAR)	; Generic user response message to try again or exit.

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: DOTS+17
Function Call: WRITE	Prompt: ! Line Location: SHOWGOAL+31
Function Call: WRITE	Prompt: @IOF Line Location: SHOWGOAL+33
Function Call: WRITE	Prompt: !,XUXTADTEXT Line Location: SHOWGOAL+34
Function Call: WRITE	Prompt: @IOF Line Location: SHOWGOAL+40
Function Call: WRITE	Prompt: @IOF,!?1,"* ",$$UP(XUXTADOPTION)," *" Line Location: SHOWOPT+16
Function Call: WRITE	Prompt: ! Line Location: TRYAGAIN+19
Function Call: WRITE	Prompt: !?6,"There are currently no Mail Groups that begin with '"_XUXTADINPUTVAR_"'." Line Location: TRYAGAIN+20
Function Call: WRITE	Prompt: !?6,"Make sure your <CAPS LOCK> key is on.",! Line Location: TRYAGAIN+25
Function Call: WRITE	Prompt: !?6,"You may try again, or optionally exit this option by pressing" Line Location: TRYAGAIN+28
Function Call: WRITE	Prompt: !?6,"<Enter> or entering an up arrow ('^') after returning to the" Line Location: TRYAGAIN+29
Function Call: WRITE	Prompt: !?6,"first prompt." Line Location: TRYAGAIN+30