Routine: DDGLBXA1

Information

DDGLBXA1 ;SFISC/MKO-SINGLE SELECTION LIST BOX ;11:33 AM 26 Apr 1996

Name	Comments	DBIA/ICR reference
UP	;Move up
DN	;Move down
PUP	;Page up in list
PDN	;Page down in list
TOP	;Move to top of list
BOT	;Move to bottom of list
SEL	;Select item
QT	;Quit
TO	;Timeout
READ()	;Read next key and return mnemonic
C
C1
SHIFTDN(DDGLN,DDGLE)	;Shift DDGLITEM array down DDGLN times
SHIFTUP(DDGLN,DDGLE)	;Shift DDGLITEM array down DDGLN times
DISP(DDGLSEL)	;Display the list
FLUSH	;Flush read buffer
CUP(Y,X)	;Position cursor relative to list coords

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: DDGLBXA1+12
Function Call: WRITE	Prompt: $E(DDGLSEL,1,DDGLNC) Line Location: UP+3
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(DDGLSEL,1,DDGLNC)_$P(DDGLVID,DDGLDEL,10) Line Location: UP+8
Function Call: WRITE	Prompt: $E(DDGLSEL,1,DDGLNC) Line Location: DN+4
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(DDGLSEL,1,DDGLNC)_$P(DDGLVID,DDGLDEL,10) Line Location: DN+9
Function Call: WRITE	Prompt: $E(DDGLSEL,1,DDGLNC) Line Location: PUP+3
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(DDGLSEL,1,DDGLNC)_$P(DDGLVID,DDGLDEL,10) Line Location: PUP+6
Function Call: WRITE	Prompt: $E(DDGLSEL,1,DDGLNC) Line Location: PDN+3
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(DDGLSEL,1,DDGLNC)_$P(DDGLVID,DDGLDEL,10) Line Location: PDN+7
Function Call: READ	Variable: *Y Timeout: DTIME Line Location: READ+2
Function Call: WRITE	Prompt: $C(7) Line Location: C1+1
Function Call: READ	Variable: *Y Timeout: 5 Line Location: C1+6
Function Call: WRITE	Prompt: $C(7) Line Location: C1+7
Function Call: WRITE	Prompt: DDGLT Line Location: DISP+8
Function Call: READ	Variable: *DDGLX Timeout: 0 Line Location: FLUSH+2