Routine: DIA

Information

DIA ;SFISC/GFT-SELECT FIELDS TO EDIT ;8AUF2014

Source file <DIA.m>

Name	Comments	DBIA/ICR reference
1
GO
ED
GDB
READ
L
DIC	;
EGP
F
X	;
2	;
R
UP	;
NDB
EN	;Entry point from DIB routine
FILETOP
DOWN
DICS	;
P	;
SET
DB	;
D	;takes 'Y' and puts it into 'DR' array -- Also called from DIA3
DIAB
RW(Y)	;sets X, and maybe DTOUT

Name	Line Occurrences
Function Call: WRITE	Prompt: !?F*3,"EDIT WHICH "_X Line Location: 1+0
Function Call: READ	Prompt: ": ALL// " Variable: X Timeout: DTIME Line Location: 1+2
Function Call: WRITE	Prompt: !,?2,I,?10,$P(I(I),U,2) Line Location: EGP+9
Function Call: WRITE	Prompt: $C(7),"??" Line Location: X+1
Function Call: WRITE	Prompt: !?F*3,"THEN EDIT "_X Line Location: 2+1
Function Call: READ	Prompt: ": " Variable: X Timeout: DTIME Line Location: R+0
Function Call: WRITE	Prompt: $C(7) Line Location: R+0
Function Call: WRITE	Prompt: ": "_Y Line Location: RW+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: RW+2
Function Call: WRITE	Prompt: "// " Line Location: RW+2
Function Call: WRITE	Prompt: $C(7) Line Location: RW+2