SET MODE CHANGE
SET EN W ' 	'
SET EN SEN ''
SET EN PAR '.RETURN'
DEF K CON B AS "BACKWADV."
DEF K CON G AS "^G."
DEF K CON N AS "EXT N ?*'Change next: ' ?*' to: ' ."
DEF K CON P AS "CUTPAR=PARAGRAPH."
DEF K CON R AS "SEN."
DEF K CON V AS "EXT S ?*'Change every: ' ?*' to: ' WH."
DEF K CON _ AS "CUTSEN=SENTENCE."
DEF K CON ^ AS "PAR."
DEF K CON \ AS "SHL."
DEF K CON ] AS "SHR."
DEF K G CON H AS "16-C."
DEF K G CON I AS "16+C."
DEF K G CON P AS "PASTE=PARAGRAPH."
DEF K G CON R AS "BACKSENADV."
DEF K G CON _ AS "PASTE=SENTENCE."
DEF K G CON ^ AS "BACKPARADV."
DEF K G DEL AS "EXT DEL S."
DEF K G ` AS "D+C+CUNDC-C."
DEF K G ~ AS "+CDEWBACKWUNDWADVW-C."
DEF KEY G FUN 3 AS "CUTSRPASTE."
DEF KEY G FUN 4 AS "RESET"
DEF KEY G FUN 5 AS "(-66L)."
DEF KEY G FUN 6 AS "(+66L)."
DEF KEY FUN 19 AS "D+EL."
DEF K FUN 20 AS "EXT SET SCREEN 132."
DEF K G FUN 20 AS "EXT SET SCREEN 80."
DEF K FUN 21 AS "CHGCSR."
DEF K G FUN 21 AS "DATE."
DEF K FUN 23 AS "^[."
DEF K FUN 26 AS "EXT ?*'Command :'."
DEF K G FUN 26 AS "EXT QUIT."
DEF K G FUN 29 AS "EXT EXIT."
DEF K FUN 31 AS "^M-C."
DEF K FUN 32 AS "RESET"
DEF K G FUN 32 AS "D+C+CUNDC."
DEF K FUN 33 AS "UNDW."
DEF K G FUN 33 AS "D+EW +W UNDW."
DEF K FUN 34 AS "UNDL."
DEF K G FUN 34 AS "D+NL+LUNDL."
DEF K G A AS "iINQUIRE ."
DEF K G B AS "iSUBROUTINE."
DEF K G C AS "iCLOSE ."
DEF K G D AS "iDELETE ."
DEF K G E AS "iENDSUBROUTINE."
DEF K G F AS "iOPEN ."
DEF K G G AS "iGOTO ."
DEF K G H AS "EXT HELP DCL."
DEF K G I AS "iIF ."
DEF K G J AS "iREAD ."
DEF K G K AS "iCALL ."
DEF K G L AS "iTYPE SYS$INPUT."
DEF K G M AS "iMOUNT ."
DEF K G N AS "iRENAME ."
DEF K G O AS "iOPEN ."
DEF K G P AS "iPRINT ."
DEF K G Q AS "iSEARCH ."
DEF K G R AS "iRETURN."
DEF K G S AS "iSHOW ."
DEF K G T AS "iTYPE ."
DEF K G U AS "iDEFINE/USER SYS$INPUT SYS$COMMAND."
DEF K G V AS "iSET ."
DEF K G W AS "iWRITE ."
DEF K G X AS "iCOPY ."
DEF K G Y AS "iCREATE ."
DEF K G Z AS "iEXIT."
DEF K G "!" AS "i .OR. ."
DEF K G @ AS "iF$ENVIRONMENT(?*'F$ENVIRONMENT( Item: ')."
DEF K G # AS "iF$LENGTH(?*'F$LENGTH( String: ')."
DEF K G $ AS "iF$GETDVI(?*'F$GETDVI( Device name: ',?*' Item: ')."
DEF K G "%" AS "iF$MESSAGE(?*'F$MESSAGE( Status code: ')."
DEF K G ^ AS "iF$TYPE(?*'F$TYPE( Symbol name: ')."
DEF K G & AS "i .AND. ."
DEF K G * AS "iF$SEARCH(?*'F$SEARCH( Filespec: ')."
DEF K G ( AS "iF$TIME()."
DEF K G ) AS "iF$CVTIME(?*'F$CVTIME( Input time: ',?*' Output time: ',?*' Field: ')."
DEF K G _ AS "iF$EXTRACT(?*'F$EXTRACT( Offset: ',?*' Length: ',?*' String: ')."
DEF K G + AS "iF$EDIT(?*'F$EDIT( String: ',?*' Edit list ')."
DEF K G = AS "i .EQ. ."
DEF K G ~ AS "+CDEWBACKWUNDWADVW-C."
DEF K G ` AS "D+C+CUNDC-C."
DEF K G ] AS "iF$FILE_ATTRIBUTES(?*'F$FILE_ATTRIBUTES( File spec: ',?*' Item: ')."
DEF K G [ AS "iF$DIRECTORY()."
DEF K G | AS "iF$INTEGER(?*'F$INTEGER( Expression: ')."
DEF K G \ AS "iF$VERIFY(?*'$VERIFY( Procedure value: ',?*' Image value: ')."
DEF K G : AS "i .EQS. ."
DEF K G ; AS "iF$FAO(?*'F$FAO( Control string: ',."
DEF K G '"' AS "iF$STRING(?*'F$STRING( Expression: ')."
DEF K G "'" AS "iF$LOGICAL(?*'F$LOGICAL( Logical name: ')."
DEF K G } AS "i .LTS. ."
DEF K G { AS "i .GTS. ."
DEF K G < AS "i .LT. ."
DEF K G , AS "iF$PID(?*'F$PID( Context symbol: ')."
DEF K G > AS "i .GT. ."
DEF K G . AS "iF$MODE()."
DEF K G ? AS "iF$LOCATE(?*'F$LOCATE( Substring: ',?*' String: ')."
DEF K G / AS "iF$ELEMENT(?*'F$ELEMENT( Element No: ',?*' Delimiter: ',?*' String: ')."
SET COMMAND SYS$LOGIN:EDTINI.EDT
SET COMMAND EDTINI.EDT