Routine: DIWE1

Information

DIWE1 ;SFISC/GFT-WORD PROCESSING FUNCTION ;4JUN2008

Source file <DIWE1.m>

Package	Total	Call Graph
VA Fileman	7	RW^DIR2 X^DIWE ^DIWE11 (,C,I,S)^DIWE2 (D,DEL,M,R,Z)^DIWE3 (,B,J,Y)^DIWE4 (LNQ,X)^DIWE5

Package	Total	Caller Graph
VA Fileman	4	DIWE DIWE2 DIWE3 DIWE4

Name	Comments	DBIA/ICR reference
RD
LC
LN
LL
1
TAB
E2
A	;;Add lines;Add Lines to End of Text
C	;;Change every: ;Change Every String to Another in a Range of Lines;
B	;;Break line: ;Break a Line into Two;
E	;;Edit line: ;Edit a Line (Replace __ With __);
D	;;Delete from line: ;Delete Line(s);
G	;;Get Data from Another Source ;Get Data from Another Source
I	;;Insert after line: ;Insert Line(s) after an Existing Line;
J	;;Join line: ;Join Line to the One Following;
M	;;Move line: ;Move Lines to New Location within Text;
L	;;List line: ;List a Range of Lines;
P	;;Print from Line: 1//;Print Lines as Formatted Output;
S	;;Search for: ;Search for a String
R	;;Repeat line: ;Repeat Lines at a New Location
U	;;Utilities in Word-Processing;Utility Sub-Menu
T	;;Transfer incoming text after line: ;Transfer Lines From Another Document
Y	;;Y;Y-Programmer Edit;
X
OPT
LIST

Name	Line Occurrences
Function Call: READ	Prompt: "EDIT Option: " Formatting: ! Timeout: DTIME Variable: X Line Location: 1+0
Function Call: WRITE	Prompt: X Line Location: LC+2
Function Call: WRITE	Prompt: "OR" Line Location: LC+3
Function Call: WRITE	Prompt: !?5,"Choose, by first letter, a Word Processing Command" Line Location: LC+4
Function Call: WRITE	Prompt: " from the following:" Line Location: LC+5
Function Call: WRITE	Prompt: !?10,$P(Y,";",4) Line Location: LC+5
Function Call: WRITE	Prompt: !?5,"or type a Line Number to edit that line." Line Location: LC+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: L+1
Function Call: WRITE	Prompt: !,$P(X1,";",3) Line Location: L+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: P+1
Function Call: WRITE	Prompt: !,$J(DWL,3)_">"_Y,! Line Location: E2+0
Function Call: WRITE	Prompt: !,(DWI-1)_" line"_$E("s",DWI>2)_" inserted.." Line Location: TAB+8
Function Call: WRITE	Prompt: "DELETED..." Line Location: TAB+12
Function Call: WRITE	Prompt: ! Line Location: TAB+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: RD+0
Function Call: WRITE	Prompt: !?5,"Enter a line number from 1 through "_DWLC,!!,$P(X1,";",3) Line Location: RD+0
Function Call: WRITE	Prompt: " THERE ARE NO LINES!",$C(7),! Line Location: LN+1
Function Call: WRITE	Prompt: " "_X Line Location: LN+2
Function Call: READ	Timeout: DTIME Variable: I Line Location: LIST+0

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	LC+1*, LC+2
^UTILITY($J	TAB+5!, TAB+11!

Name	Field # of Occurrence
>> DIC	A+1, TAB+5, TAB+6, TAB+7, TAB+9, TAB+10, TAB+11, LN+4, LL
DIC1	TAB+4~, TAB+5*, TAB+9, TAB+10, TAB+11
DIRWP	E2*!
DIWELAST	L+1, X!, LIST+1
DTIME	1, L+1, P+1, RD, LIST
>> DTOUT	DIWE1+3, 1, OPT, L+1, P+1, RD, LIST*
DUZ	LC+1, LC+2
>> DW1	TAB+12*
>> DW2	TAB+12*
>> DWI	A+1, TAB+6*, TAB+8
>> DWL	DIWE1+3, A+1, E2, TAB+10, TAB+12, LN+2, LN+4
>> DWLC	DIWE1+3, A+1, TAB+11, RD, LN+1, LIST, LIST+1
>> DWLW	TAB+3, TAB+6
>> DWO	LC+1, LC+2, LC+5
I	DIWE1+3, LC+1, LC+2, LC+3, LC+5, TAB+4~, TAB+10, TAB+11, TAB+13, LN+1 , LN+4, LIST, LIST+1
J	DIWE1+3, LC+1, LC+2, LC+5, TAB+4~, TAB+6, LIST+1*
U	1, E+1, L+1, P+1, LN, LN+1
>> X	1, LC, LC+1, LC+2, LC+3, LC+5, OPT, E+1, L+1, P+1 , E2, TAB, TAB+1, TAB+3, TAB+6, TAB+7, TAB+12, RD, LN, LN+1* , LN+2, LN+3, LN+4, LN+5*, LIST+1
>> X1	OPT*, L+1, RD
>> Y	LC+5, E2