@DEMQRY,HELP
DEMQRY 1R3C - Demand query within non-BRKPTd @ADD stream; solicits 1-12 case-
insensitive chars. (A-Z|0-9|$|-). Terminal is assumed to have FCC capability.
Call: @DEMQRY[,opts] [USRSGS.param/default-reply([±]wt), @ADD-opts{N=none} ]
<solicitation message (1 image only)> ^Def:15 ^Def:L
[@ADD image (no "@" in col. 1!) if A/I; e.g., >ASG,CP PROJ2*&.,///999& ]
[Up to 72 predefined possible 1-12 character replies, space-separated,
on as many images as needed.] End with @EOF or any ECL image.
A - Edit reply into ECL @ADD file DEMQRY$ADD, then @ADD it. There must be two
&s for EMSG$ edit: 1st=reply, 2nd=end. Will put @ in col. 1. AI-don't @ADD.
C - Solicit @SETC/SETC$ value for T2, unless parameter=S3,S4,T3,S5,S6.
D/O-Allow only Decimal/Octal digits in reply. CD - Allow decimal @SETC number.
E - Echo back reply (secured if P).|K - List edited A/I/S image (ignored if P).
F - Preload reply window with default-reply; else dash.|T - Tab to after reply.
I - Like A, but don't insert "@" & don't @ADD. With C/Y/N - don't @ADD.
L - Allow only letters in reply. L & D|O generate alpha or numeric FCC.
P - Protect (do not display) response, such as for a password.
Q/R - List possible replies, if any. If Q, solicit sequence #. Q & R: sort.
S/X - Create/don't create SGS file DMQRY$USRSGS with image "USRSGS <reply>".
Default USRSGS=DEMQRP. X assumed for C/Y/N, S assumed for all others.
Y/N - solicit Y or N (Yes/No); if reply matches option, @ADD "@JUMP 2".
If parameter is label or number, will @ADD "@JUMP LABEL" or "@JUMP n".
If no reply in wt secs., resolicit if wt>0; if wt<0, default if there, else exit.
DEMQRY displays the message and a reply box. Type the reply & ENTER. Will
resolicit if not predefined reply (if any), Y or N(Y/N), or a valid number(C).
===== Examples: =====
@DEMQRY,N
SYM PRINT FILE? - YN
@SYM PRTFL.,,PR
*****************************************
@DEMQRY
ENTER FILENAME TO USE
@EOF - . "-" after @EOF means single dash is valid reply; otherwise, error.
@SSG ,DEMQRY$SGS. . @USE name DEMQRY$SGS attached to most recent SGS file.
SKEL
#USE FILEX,MYPROJ*[DEMQRP,1,1,1]
#ASG,A FILEX
@EOF
@EOF
*****************************************
@DEMQRY,A . (Alternate version of previous example)
ENTER FILENAME TO USE
>USE FILEX,MYPROJ*&&
@ASG,A FILEX
*****************************************
@XQT,AR <file>.DEMQRY . (can be called with @XQT if no parameters)
Enter COMUS system desired:
>QUAL & . Note: possible replies are case-insensitive.&
SYS$ TIP$ CP160 CP170
@COMUS
*****************************************
@DEMQRY SKLNM.
ENTER SKELETON NAME TO USE
@SSG ,DMQRY$SKLNO.
SKEL
*COPY SKELFILE.[SKLNM,1,1,1]
@EOF
@EOF
*****************************************