)ATTR DEFAULT(%+_)
    % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
    ` TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
    + TYPE(TEXT) INTENS(LOW)  COLOR(TURQ) SKIP(ON)
    _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED)
    ^ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED) PAD(_)
    | TYPE(INPUT) INTENS(HIGH) CAPS(OFF)
)BODY EXPAND(\\)
+-\-\-`CUT prompt and set defaults+-\-\-+
%COMMAND ===>_ZCMD                                                     +
%
%Action       ====>_ACTN    +`ADD, REPLACE, or blank for default
+    Enter `END key for no action
%CUT table name===>_CT+      `any two charactor name for this one time
+                             blank for default
%CUT size limit===>_CUTCOUNT+`any number 100 to 99999 for this one time
+
%Set default actions for CUT and PASTE
+
%CUT default   ===>_CUTDEF  +`ADD or REPLACE
%PASTE default ===>_PASTEDEF+`KEEP or ZERO
%CUT table name===>_CN+      `any two charactor name for default
%CUT size limit===>_CUTLIMIT+`any number 100 to 99999 for default
+
+  ADD will add CUT lines to the end of previous CUT lines if any
+  REPLACE will clear any previous CUT lines and replace then with
+          newly CUT lines
+  ZERO will delete previously CUT lines after the PASTE operation
+  KEEP will keep previously CUT lines after the PASTE operation to
+       be used by a later PASTE or added to by later CUT operations
)INIT
  .CURSOR=ACTN
  .HELP=CUTDEF@
  IF (&CUTNAME=&Z) &CUTNAME=AA
  IF (&CUTLIMIT=&Z) &CUTLIMIT=2000
  IF (&CUTCOUNT=&Z) &CUTCOUNT=&CUTLIMIT
  &CN=&CUTNAME
)PROC
 &ACTN=TRANS(TRUNC(&ACTN,1),A,ADD,R,REPLACE,*,'&ACTN')
 VER(&ACTN,LIST,ADD,REPLACE)
 VER(&CUTCOUNT,NB,RANGE,100,99999)
 &CUTDEF=TRANS(TRUNC(&CUTDEF,1),A,ADD,R,REPLACE,*,'&CUTDEF')
 VER(&CUTDEF,NB,LIST,ADD,REPLACE)
 &PASTEDEF=TRANS(TRUNC(&PASTEDEF,1),Z,ZERO,K,KEEP,*,'&PASTEDEF')
 VER(&PASTEDEF,NB,LIST,ZERO,KEEP)
 VER(&CN,NB)
 &CUTNAME=&CN
 IF (&CT=&Z) &CT=&CUTNAME
 VER(&CUTLIMIT,NB,RANGE,100,99999)
 VPUT (CUTDEF PASTEDEF CUTNAME CUTLIMIT) PROFILE
)END