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 "i	ADD	."
DEF K G B AS "i	BIT	."
DEF K G C AS "i	CMP	."
DEF K G D AS "i	DEC	."
DEF K G E AS "i	ASL	."
DEF K G F AS "i	SBC	."
DEF K G G AS "i	ADC	."
DEF K G H AS "EXT HELP SAL."
DEF K G I AS "i	INC	."
DEF K G J AS "i	JMP	."
DEF K G K AS "i	CALL	."
DEF K G L AS 'i	LDA	.'
DEF K G M AS "i	MOV	."
DEF K G N AS "i	NEG	."
DEF K G O AS "i	POP	."
DEF K G P AS "i	PUSH	."
DEF K G Q AS "i	STA	."
DEF K G R AS "i	RET	."
DEF K G S AS "i	SUB	."
DEF K G T AS "i	TST	."
DEF K G U AS "i	AND	."
DEF K G V AS "i	OR	."
DEF K G W AS "i	ASR	."
DEF K G X AS "i	XOR	."
DEF K G Y AS "i	EOR	."
DEF K G Z AS "i	CLR	."
DEF K G "!" AS "i	OR ."
DEF K G @ AS "iIFDF ."
DEF K G # AS "iIFNE ."
DEF K G $ AS "i	LIST."
DEF K G "%" AS "i	NLST."
DEF K G ^ AS "i HIGH."
DEF K G & AS "i	END."
DEF K G * AS "iIFND."
DEF K G ( AS "iPAGE."
DEF K G ) AS "i	TITL	."
DEF K G _ AS "i NOT ."
DEF K G + AS "i	PROM."
DEF K G = AS "iIFEQ ."
DEF K G ` AS "D+C+CUNDC-C."
DEF K G ~ AS "+CDEWBACKWUNDWADVW-C."
DEF K G [ AS "i	RMB	."
DEF K G ] AS "i	RAM."
DEF K G | AS "i MOD ."
DEF K G \ AS "-CiB+C."
DEF K G : AS "iENDIF."
DEF K G ; AS "iELSE."
DEF K G '"' AS 'i	ASCZ	".'
DEF K G "'" AS 'i	ASCI	".'
DEF K G } AS "i	DF	."
DEF K G { AS "i	F	."
DEF K G < AS "iIFL ."
DEF K G , AS "i	DW	."
DEF K G > AS "iIFG ."
DEF K G . AS "i	DB	."
DEF K G ? AS "i	ERR	."
DEF K G / AS "-CiF+C."
SET COMMAND SYS$LOGIN:EDTINI.EDT
SET COMMAND EDTINI.EDT