SET MODE CHANGE SET NOFNF SET NOSUMMARY DEFINE KEY GOLD # AS "EXT CALC." DEFINE KEY GOLD $ AS "EXT DCL." DEFINE KEY GOLD "%" AS "EXT TRACE." DEFINE KEY GOLD ^ AS "CHGUSR." DEFINE KEY GOLD * AS "EXT SCRATCH_PAD." DEFINE KEY GOLD ( AS "EXT SET VERIFY." DEFINE KEY GOLD ) AS "EXT SET NOVERIFY." DEFINE KEY GOLD G AS "EXT GET." DEFINE KEY GOLD H AS "EXT KEYPAD_HELP." DEFINE KEY GOLD M AS "EXT MENU." DEFINE KEY GOLD U AS "EXT UDP." DEFINE KEY GOLD I AS "EXT INTMENU." DEFINE KEY GOLD K AS "QUIT." DEFINE KEY FUNCTION 28 AS "EXT KEYPAD_HELP." DEFINE MACRO WIDE INSERT=WIDE CHANGE;XLATE WIDE EXT SET WRAP 127;SET SCREEN 132^ZEXFIND . CLEAR TOGWIDE DEFINE MACRO TOGWIDE INSERT =TOGWIDE;NARROW FIND LAST ^Z DEFINE MACRO NARROW INSERT=NARROW CHANGE;XLATE WIDE EXT SET WRAP 75;SET SCREEN 80^ZEXFIND . CLEAR TOGWIDE DEFINE MACRO TOGWIDE INSERT =TOGWIDE;WIDE FIND LAST ^Z DEFINE MACRO TOGWIDE INSERT =TOGWIDE;WIDE DEFINE MACRO INTMENU INSERT =INTMENU CHANGE;XLATE OA FORM INTMENU\CLOSE_PRIOR^ZREFEXFIND . ^Z DEFINE MACRO GET INSERT =GET CHANGE;XLATE OA FORM EDTGMEN\CLOSE_PRIOR^ZREFEXFIND . ^Z DEFINE KEY GOLD O AS "EXT CHECKORIG." DEFINE MACRO CHECKORIG INSERT =CHECKORIG CLEAR ORIGINAL FIND =ORIGINAL CHANGE;XLATE OA .FUNCTION MAIL PUSH\MAIL ORIGINAL\GET #STS=OA$STATUS^ZEXFIND. CHANGE;XLATE OA .IF #STS == 1 THEN COPY "@OA$CURDOC" EDITOR_BUFFER^ZEXFIND. CHANGE;XLATE OA .FUNCTION MAIL POP^ZEXFIND. CLEAR SETBUFF FIND =SETBUFF CHANGE;XLATE OA .IF #STS = 1 THEN GET OA$EDIT_BUFFER="ORIG" ELSE GET OA$EDIT_BUFFER="MAINBUF"^ZEXFIND. DEFINE MACRO SETBUFF SETBUFF ^Z DEFINE MACRO ORIG INSERT =ORIG FIND =ORIGINAL . DEFINE KEY GOLD O AS "EXT MAINBUF." ^Z DEFINE MACRO MAINBUF INSERT =MAINBUF FIND =MAIN . DEFINE KEY GOLD O AS "EXT ORIG." ^Z DEFINE MACRO DCL INSERT =DCL;CHANGE;XLATE OA DCL\CLOSE_PRIOR^ZREFEXFIND . DEFINE MACRO KEYPAD_HELP INSERT =KEYPAD_HELP;CHANGE;XLATE OA HELP\CLOSE_PRIOR^ZREFEXFIND . DEFINE MACRO UPDATE INSERT =UPDATE;CHANGE;XLATE OA FORM DOCDBENT\CLOSE_PRIOR^ZREFEXFIND . DEFINE MACRO UDP INSERT =UDP;CHANGE;XLATE OA FORM WPSELUDP\IFEXIT\DO WPDOUDP^ZXLATE OA CLOSE_PRIOR^ZREFEXFIND . DEFINE MACRO TRACE INSERT =TRACE;CHANGE;XLATE OA FORM TRACEARG\CLOSE_PRIOR^ZREFEXFIND . DEFINE MACRO SCRATCH_PAD INSERT =SCRATCH_PAD;CHANGE;XLATE OA FORM SPEDMENU\CLOSE_PRIOR^ZREFEXFIND . SET WRAP 75 DEFINE KEY GOLD 14 AS "SHR." DEFINE KEY GOLD 15 AS "SHL." DEFINE KEY GOLD B AS "ER." DEFINE KEY GOLD C AS "CENLN." DEFINE KEY GOLD F AS "EXT EXIT." DEFINE KEY GOLD N AS "ADV^L^M." DEFINE KEY GOLD P AS "ADV^L^M." DEFINE KEY GOLD Q AS "QUIT." DEFINE KEY GOLD R AS "RULER." DEFINE KEY GOLD S AS "ADV EXT SUBS ?'Change Every: '?' To: ' %REST/NOTYPE." DEFINE KEY GOLD T AS "BR." DEFINE KEY GOLD W AS "EXT TOGWIDE." DEFINE KEY 10 AS "EXT KEYPAD_HELP." DEFINE KEY GOLD 10 AS "EXT KEYPAD_HELP." DEFINE KEY GOLD K AS "QUIT." DEFINE KEY GOLD \ AS "DATE-4DCI ^Z." DEFINE KEY CONTROL F AS "EXT INCLUDE ?'File Name: '." DEFINE MACRO CALC INSERT =CALC CLEAR PASTE FIND =PASTE CHANGE;XLATE OA FORM EDCLC1\GET OA$EDIT_BUFFER=X\CLOSE_PRIOR^ZREFEXFIND . FIND LAST ^Z DEFINE MACRO MENU INSERT =MENU CLEAR PASTE FIND =PASTE CHANGE;XLATE OA FORM EDTMEN\CLOSE_PRIOR^ZREFEXFIND . FIND LAST ^Z FIND =MAIN . SET COMMAND EDTCUSTOM