ZTEDIT4 ;SF/RWF - VA EDITOR ? help message ;7/9/90 07:47 ;
;;7.3;TOOLKIT;**16,120**;Apr 25, 1995
K ^%Z("?") S %X=$T(QUES),^%Z("?")=$P(%X," ",2,99),%X=$T(QUESA),^%Z("?A")=$P(%X," ",2,99)
F %I=1:1 S %X=$T(%+%I),%Y=$P(%X,";;",2,999) S:%X %Z=+%X,%1=1 Q:%X="" S ^%Z("?",%Z,%1)=%Y,%1=%1+1
Q
CHECK W !,"Checking ZTEDIT4" S A="I %Y]"""",%Y'=%X W !,""Tag: ?,"",%I,"","",%I1,"" is not the same"""
S %I1=1,%I="",%X=$P($T(QUES)," ",2,99),%Y=$S($D(^%Z("?")):^("?"),1:"") X A
F %=1:1 S %Z=$T(%+%) Q:%Z="" S:%Z %I=+%Z,%I1=1 S %X=$P(%Z,";;",2,99),%Y=$S($D(^%Z("?",%I,%I1)):^(%I1),1:" ") X A S %I1=%I1+1
Q
QUES S %NX=1 F %X=1,$S(XY]"":2,1:3) F %=0:0 S %=$O(^%Z("?",%X,%)) Q:%="" W !,^(%)
QUESA S %NX="ACTION" F %=0:0 S %=$O(^%Z("?",99,%)) Q:%="" W !,^(%)
% ;;
1 ;;.ACTION menu .BREAK line .CHANGE every
;;.FILE routine .INSERT after .JOIN lines
;;.MOVE lines .REMOVE lines .SEARCH for
;;.TERMinal type .XY change to/from replace-with
;;. -TO EXIT THE EDITOR
;;""+n Absolute line n +n To advance n lines -n To backup n lines
;; use '*' to get last line
;;
;;^NAME - to edit a GLOBAL node *NAME - to edit a LOCAL variable
;;MUMPS command line (mumps command <space> or Z command <space>)
;;
2 ;;In the line mode,
;;Spacebar moves to the next space or comma. Dot to the next char.
;;'>' To move forward 80 char or to end of line.
;;Backspace to back up one char. E to enter new char's at the cursor.
;;CR to exit enter mode, return to start of line or EDIT prompt.
;;D to delete from the cursor to the next space or comma.
;;Delete (Rub) to delete the char under the cursor.
;;CTRL-R to restore line and start back at the beginning.
;;
3 ;;In the replace/with mode,
;;SPECIAL <REPLACE> STRINGS:
;; END -to add to the END of a line
;; ... -to replace a line
;; A...B -to specify a string that begins with "A" and ends with "B"
;; A... -to specify a string that begins with "A" to the end of the line
;;CTRL-R to restore line.
99 ;;Bytes in routine Checksum Restore lines
;;Save lines Version #
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTEDIT4 2210 printed Oct 16, 2024@18:43:23 Page 2
ZTEDIT4 ;SF/RWF - VA EDITOR ? help message ;7/9/90 07:47 ;
+1 ;;7.3;TOOLKIT;**16,120**;Apr 25, 1995
+2 KILL ^%Z("?")
SET %X=$TEXT(QUES)
SET ^%Z("?")=$PIECE(%X," ",2,99)
SET %X=$TEXT(QUESA)
SET ^%Z("?A")=$PIECE(%X," ",2,99)
+3 FOR %I=1:1
SET %X=$TEXT(%+%I)
SET %Y=$PIECE(%X,";;",2,999)
if %X
SET %Z=+%X
SET %1=1
if %X=""
QUIT
SET ^%Z("?",%Z,%1)=%Y
SET %1=%1+1
+4 QUIT
CHECK WRITE !,"Checking ZTEDIT4"
SET A="I %Y]"""",%Y'=%X W !,""Tag: ?,"",%I,"","",%I1,"" is not the same"""
+1 SET %I1=1
SET %I=""
SET %X=$PIECE($TEXT(QUES)," ",2,99)
SET %Y=$SELECT($DATA(^%Z("?")):^("?"),1:"")
XECUTE A
+2 FOR %=1:1
SET %Z=$TEXT(%+%)
if %Z=""
QUIT
if %Z
SET %I=+%Z
SET %I1=1
SET %X=$PIECE(%Z,";;",2,99)
SET %Y=$SELECT($DATA(^%Z("?",%I,%I1)):^(%I1),1:" ")
XECUTE A
SET %I1=%I1+1
+3 QUIT
QUES SET %NX=1
FOR %X=1,$SELECT(XY]"":2,1:3)
FOR %=0:0
SET %=$ORDER(^%Z("?",%X,%))
if %=""
QUIT
WRITE !,^(%)
QUESA SET %NX="ACTION"
FOR %=0:0
SET %=$ORDER(^%Z("?",99,%))
if %=""
QUIT
WRITE !,^(%)
% ;;
1 ;;.ACTION menu .BREAK line .CHANGE every
+1 ;;.FILE routine .INSERT after .JOIN lines
+2 ;;.MOVE lines .REMOVE lines .SEARCH for
+3 ;;.TERMinal type .XY change to/from replace-with
+4 ;;. -TO EXIT THE EDITOR
+5 ;;""+n Absolute line n +n To advance n lines -n To backup n lines
+6 ;; use '*' to get last line
+7 ;;
+8 ;;^NAME - to edit a GLOBAL node *NAME - to edit a LOCAL variable
+9 ;;MUMPS command line (mumps command <space> or Z command <space>)
+10 ;;
2 ;;In the line mode,
+1 ;;Spacebar moves to the next space or comma. Dot to the next char.
+2 ;;'>' To move forward 80 char or to end of line.
+3 ;;Backspace to back up one char. E to enter new char's at the cursor.
+4 ;;CR to exit enter mode, return to start of line or EDIT prompt.
+5 ;;D to delete from the cursor to the next space or comma.
+6 ;;Delete (Rub) to delete the char under the cursor.
+7 ;;CTRL-R to restore line and start back at the beginning.
+8 ;;
3 ;;In the replace/with mode,
+1 ;;SPECIAL <REPLACE> STRINGS:
+2 ;; END -to add to the END of a line
+3 ;; ... -to replace a line
+4 ;; A...B -to specify a string that begins with "A" and ends with "B"
+5 ;; A... -to specify a string that begins with "A" to the end of the line
+6 ;;CTRL-R to restore line.
99 ;;Bytes in routine Checksum Restore lines
+1 ;;Save lines Version #
