Routine: DDGFAPC

Information

DDGFAPC ;SFISC/MKO-ADJUST PAGE COORDINATES ;01:16 PM 19 Jan 1994

Source file <DDGFAPC.m>

Name	Comments	DBIA/ICR reference
DESELECT	;
LNU
LND
CHR
CHL
TBR
TBL
SCT
SCB
SCR
SCL
MV(DDGFY,DDGFX)	;
CORNER(N)	;Draw corners of box
MIN(X,Y,Z)	;Return the minimum of two or three numbers
RC(DDGFY,DDGFX)	;Update status line, reset DX and DY, move cursor
SETUP	;Initial setup
CLEANUP	;Final cleanup
READ()
C
C1

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(DDGLGRA,DDGLDEL)_$S($G(N):"",1:$P(DDGLVID,DDGLDEL,6))_$P(DDGLGRA,DDGLDEL,5) Line Location: CORNER+4
Function Call: WRITE	Prompt: $P(DDGLGRA,DDGLDEL,6) Line Location: CORNER+5
Function Call: WRITE	Prompt: $P(DDGLGRA,DDGLDEL,7) Line Location: CORNER+6
Function Call: WRITE	Prompt: $P(DDGLGRA,DDGLDEL,8)_$S($G(N):"",1:$P(DDGLVID,DDGLDEL,10))_$P(DDGLGRA,DDGLDEL,2) Line Location: CORNER+8
Function Call: WRITE	Prompt: S_$J("",7-$L(S)) Line Location: RC+4
Function Call: READ	Variable: *Y Timeout: DTIME Line Location: READ+1
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+6