SET MODE CHANGE
SET EN W '  ,()=+-/*;<>'
SET EN SEN '\'
SET EN PAR 'NEXT'
SET EN PAG '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 "i DIM ."
DEF K G B AS "i RESTORE #."
DEF K G C AS "i CLOSE ."
DEF K G D AS "i DATA ."
DEF K G E AS "i DEF FN."
DEF K G F AS "i FOR ?*'FOR loop variable: '=?*'= start: ' TO ."
DEF K G G AS "i GOSUB ."
DEF K G H AS "EXT HELP BASIC."
DEF K G I AS "i INPUT #."
DEF K G J AS "i GOTO ."
DEF K G K AS "i ON ?*'ON variable: ' THEN ."
DEF K G L AS "i LINPUT #."
DEF K G M AS 'i CALL "MAT.'
DEF K G N AS "i NEXT ."
DEF K G O AS "i OPEN ?*'OPEN file: ' FOR ?*' FOR IN/OUT: 'PUT AS FILE ."
DEF K G P AS "i PRINT #."
DEF K G Q AS "i PRINT ""?*'Prompt: '""; \ INPUT #0%,."
DEF K G R AS "i RETURN."
DEF K G S AS "i STOP."
DEF K G T AS "i THEN ."
DEF K G U AS 'i PRINT USING ".'
DEF K G V AS "i REM ."
DEF K G W AS 'i OVERLAY ".'
DEF K G X AS "i READ ."
DEF K G Y AS 'i CHAIN ".'
DEF K G Z AS "i RANDOMIZE."
DEF K G @ AS "iSQR(."
DEF K G # AS "iVAL(."
DEF K G $ AS "iCLK$."
DEF K G ^ AS "iEXP(."
DEF K G & AS "iATN(."
DEF K G * AS "iLOG(."
DEF K G ( AS "iSIN(."
DEF K G ) AS "iCOS(."
DEF K G _ AS "iINT(."
DEF K G + AS "iSGN(."
DEF K G = AS "i IF ?*'IF '=?*'=' THEN ."
DEF K G ~ AS "+CDEWBACKWUNDWADVW-C."
DEF K G ` AS "D+C+CUNDC-C."
DEF K G ] AS "iSTR$(."
DEF K G [ AS "iSEG$(."
DEF K G | AS "iABS(."
DEF K G \ AS "i \ ."
DEF K G : AS "iASC(."
DEF K G ; AS "iTAB(."
DEF K G { AS "iCHR$(."
DEF K G } AS "iDAT$."
DEF K G < AS "i IF ?*'IF '<?*'<' THEN ."
DEF K G , AS "iLEN(."
DEF K G > AS "i IF ?*'IF '>?*'>' THEN ."
DEF K G . AS "iPOS(."
DEF K G ? AS "iRND(0)."
DEF K G / AS "iTRM$(."
SET COMMAND SYS$LOGIN:EDTINI.EDT
SET COMMAND EDTINI.EDT