DIETED ;SFISC/GFT - SCREEN EDIT AN INPUT TEMPLATE ; Nov 15, 2012
Source file <DIETED.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
K | ||
EDIT(DIET) | ; Edit Template using Screen Editor
|
|
E | ||
DDW | ||
KL | ||
GET(DIETA,DIT) | ;put displayable template into @DIETA
|
|
1 | ||
DOWN | ||
DIAT | ||
NDB | ||
UP | ||
PROCESS(DIETA) | ;puts nodes into ^UTILITY("DIETED")
|
|
LINE(X) | ;Process one LINE from the screen
|
|
OUT | ||
ALL | ||
SEMIC | ||
DIC | ||
X | ||
L | ||
D | ||
DEF | ||
XEC | ||
DR | ;takes 'Y' and puts it into 'DR' array
|
|
DIAB | ||
PUT | ;save template
|
|
SAVEAS | ||
SAVEFLDS(Y) | ;
|
|
NOW |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|