Routine: DDGF3

Information

DDGF3 ;SFISC/MKO-Block Viewer Page ;02:49 PM 12 Oct 1994

Source file <DDGF3.m>

Name	Comments	DBIA/ICR reference
LNU
LND
CHR
CHL
ELR
ELL
TBR
TBL
SCT
SCB
SCR
SCL
SELECT	;
SAVE	;Save data
BKADD	;Add a new block
HBKADD	;Add a header block
HELP	;Invoke help screens
TO
QUIT	;
EXIT	;
VIEW
CLEANUP	;
PAINT	;Paint block displayer window
RC(DDGFY,DDGFX)	;Update status line, reset DX and DY, move cursor
READ()
C
C1

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: TO+0
Function Call: WRITE	Prompt: $J("",13) Line Location: CLEANUP+10
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL)_$P(DDGLVID,DDGLDEL)_"<PF1>Q=Quit <PF1>E=Exit <PF1>S=Save <PF1>V=Block Viewer <PF1>H=Help"_$P(DDGLVID,DDGLDEL,10) Line Location: CLEANUP+11
Function Call: WRITE	Prompt: "BLOCK VIEWER" Line Location: PAINT+3
Function Call: WRITE	Prompt: $P(DDGLCLR,DDGLDEL)_$P(DDGLVID,DDGLDEL)_"<PF1>V=Main Screen <PF1>H=Help"_$P(DDGLVID,DDGLDEL,10) Line Location: PAINT+4
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