source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/ZTEDIT4.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1ZTEDIT4 ;SF/RWF - VA EDITOR ? help message ;7/9/90 07:47 ;
2 ;;7.3;TOOLKIT;**16,120**;Apr 25, 1995
3 K ^%Z("?") S %X=$T(QUES),^%Z("?")=$P(%X," ",2,99),%X=$T(QUESA),^%Z("?A")=$P(%X," ",2,99)
4 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
5 Q
6CHECK W !,"Checking ZTEDIT4" S A="I %Y]"""",%Y'=%X W !,""Tag: ?,"",%I,"","",%I1,"" is not the same"""
7 S %I1=1,%I="",%X=$P($T(QUES)," ",2,99),%Y=$S($D(^%Z("?")):^("?"),1:"") X A
8 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
9 Q
10QUES S %NX=1 F %X=1,$S(XY]"":2,1:3) F %=0:0 S %=$O(^%Z("?",%X,%)) Q:%="" W !,^(%)
11QUESA S %NX="ACTION" F %=0:0 S %=$O(^%Z("?",99,%)) Q:%="" W !,^(%)
12% ;;
131 ;;.ACTION menu .BREAK line .CHANGE every
14 ;;.FILE routine .INSERT after .JOIN lines
15 ;;.MOVE lines .REMOVE lines .SEARCH for
16 ;;.TERMinal type .XY change to/from replace-with
17 ;;. -TO EXIT THE EDITOR
18 ;;""+n Absolute line n +n To advance n lines -n To backup n lines
19 ;; use '*' to get last line
20 ;;
21 ;;^NAME - to edit a GLOBAL node *NAME - to edit a LOCAL variable
22 ;;MUMPS command line (mumps command <space> or Z command <space>)
23 ;;
242 ;;In the line mode,
25 ;;Spacebar moves to the next space or comma. Dot to the next char.
26 ;;'>' To move forward 80 char or to end of line.
27 ;;Backspace to back up one char. E to enter new char's at the cursor.
28 ;;CR to exit enter mode, return to start of line or EDIT prompt.
29 ;;D to delete from the cursor to the next space or comma.
30 ;;Delete (Rub) to delete the char under the cursor.
31 ;;CTRL-R to restore line and start back at the beginning.
32 ;;
333 ;;In the replace/with mode,
34 ;;SPECIAL <REPLACE> STRINGS:
35 ;; END -to add to the END of a line
36 ;; ... -to replace a line
37 ;; A...B -to specify a string that begins with "A" and ends with "B"
38 ;; A... -to specify a string that begins with "A" to the end of the line
39 ;;CTRL-R to restore line.
4099 ;;Bytes in routine Checksum Restore lines
41 ;;Save lines Version #
Note: See TracBrowser for help on using the repository browser.