DEFINE KEY GOLD $ AS "XLATE."
DEFINE KEY GOLD ^ AS "EXT CLEAR EDTFILTER ; WRITE SYS$SCRATCH:0EDTIN.TMP =EDTFILTER ; C ; XLATE?*'DCL Command: ' EXT INC SYS$SCRATCH:0EDTOUT.TMP ."
DEFINE KEY GOLD * AS "CUTSR=EDTFILTER EXT F =EDTFILTER ; C ; ER D-C EXT F LAST ; WRITE SYS$SCRATCH:0EDTIN.TMP =EDTFILTER ; C ; XLATE?*'DCL Filter: ' EXT INC SYS$SCRATCH:0EDTOUT.TMP ."