SET MODE CHANGE
SET EN W '  '',()=+-/*;[]<>'
SET EN SEN ';'
SET EN PAR 'END'
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 "iARRAY [."
DEF K G B AS "iBEGIN ."
DEF K G C AS "iCASE ?*'CASE operator: ' OF ."
DEF K G D AS "iFOR ?*'FOR loop variable: ':=?*'= start: ' DOWNTO ."
DEF K G E AS "iEND."
DEF K G F AS "iFOR ?*'FOR loop variable: ':=?*'= start: ' TO ."
DEF K G G AS "iGOTO ."
DEF K G H AS "EXT HELP PASCAL."
DEF K G I AS "iREAD(."
DEF K G J AS "iREADLN(."
DEF K G K AS "iCONST ."
DEF K G L AS "iLABEL ."
DEF K G M AS 'iPACKED .'
DEF K G N AS "iWRITE(."
DEF K G O AS "iWRITELN(."
DEF K G P AS "iPROCEDURE ."
DEF K G Q AS "iWRITE('?*'Prompt: ''); READLN(."
DEF K G R AS "iREPEAT ."
DEF K G S AS "iSET ."
DEF K G T AS "iTYPE ."
DEF K G U AS "i UNTIL ."
DEF K G V AS "iFILE ."
DEF K G W AS "iWHILE ?*'WHILE condition: ' DO ."
DEF K G X AS "iFUNCTION ."
DEF K G Y AS "i ELSE ."
DEF K G Z AS "iPROGRAM ."
DEF K G "!" AS "iODD(."
DEF K G @ AS "iSQRT(."
DEF K G # AS "iROUND(."
DEF K G $ AS "iSQR(."
DEF K G "%" AS "iORD(."
DEF K G ^ AS "iEXP(."
DEF K G & AS "iARCTAN(."
DEF K G * AS "iLN(."
DEF K G ( AS "iSIN(."
DEF K G ) AS "iCOS(."
DEF K G _ AS "iTRUNC(."
DEF K G + AS "i OR ."
DEF K G = AS "iIF ?*'IF '=?*'=' THEN ."
DEF K G ~ AS "+CDEWBACKWUNDWADVW-C."
DEF K G ` AS "D+C+CUNDC-C."
DEF K G ] AS "iPRED(."
DEF K G [ AS "iSUCC(."
DEF K G | AS "iABS(."
DEF K G \ AS "i:=."
DEF K G : AS "iEOF(."
DEF K G ; AS "iREAL;."
DEF K G '"' AS "iCHAR;."
DEF K G "'" AS "i IN ."
DEF K G { AS "iCHR(."
DEF K G } AS "iEOLN(."
DEF K G < AS "iIF ?*'IF '<?*'<' THEN ."
DEF K G , AS "iINTEGER;."
DEF K G > AS "iIF ?*'IF '>?*'>' THEN ."
DEF K G . AS "iBOOLEAN;."
DEF K G ? AS "iVAR ."
DEF K G / AS "i DIV ."
SET COMMAND SYS$LOGIN:EDTINI.EDT
SET COMMAND EDTINI.EDT