Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/com/edtinih.edt
There are 2 other files named edtinih.edt in the archive. Click here to see a list.
set lines 10
set cursor 0:9
set mode change
!
!DEF MACRO WPS
!DEF MACRO SPELL
!DEF MACRO SEARCH
!INCLUDE COM:WPS.MAC    =WPS
!INCLUDE COM:SEARCH.MAC =SEARCH
!INCLUDE COM:SPELL.MAC  =SPELL
!DEF KEY GOLD	W AS "EXT WPS."
!DEF KEY GOLD   S AS "EXT SPELL."
!
!
!+
!              WORD DELIMITER MACROS
!-
CLEAR DELIMITERS_PROGRAMMING
CLEAR DELIMITERS_WORD_PROCESSING
CLEAR WIDTH_132
CLEAR WIDTH_80
DEF MACRO DELIMITERS_PROGRAMMING
FIND=DELIMITERS_PROGRAMMING
INSERT
   DEF KEY GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING."
   SET NOWRAP
   SET ENTITY WORD " 	
"<> () [].,;&|-+*/=
^Z
!
DEF MACRO DELIMITERS_WORD_PROCESSING
FIND=DELIMITERS_WORD_PROCESSING
INSERT
   DEF KEY GOLD CONT D AS "EXT DELIMITERS_PROGRAMMING."
   SET WRAP 70
   SET ENTITY WORD " 	
".,
^Z
DELIMITERS_PROGRAMMING
!
!+
!              SCREEN WIDTH MACROS
!-
DEF MACRO WIDTH_132
FIND=WIDTH_132
INSERT
	DEF KEY GOLD 3 AS "EXT WIDTH_80."
	SET SCREEN 132
^Z
!
DEF MACRO WIDTH_80
FIND=WIDTH_80
INSERT
	DEF KEY GOLD 3 AS "EXT WIDTH_132."
	SET SCREEN 80
^Z
!
!+
!               KEY DEFINITIONS
!-
!
DEF KEY CONT R   AS "S/?'Old/New: '/."
DEF KEY CONT F   AS "S;?'Old;New: ';."
DEF KEY CONT G   AS "SN."
!
DEF KEY GOLD CONT G AS "CUTSR=DELETE PASTE=?'REP BUFFER: '."
!
DEF KEY GOLD .   AS "I~~/\~~^Z -6C."
DEF KEY GOLD /   AS "S%~~/\~~%%."
DEF KEY GOLD B   AS "EXT SH BU."
DEF KEY GOLD C   AS "+C SEL +W CHGCSR."
DEF KEY GOLD F   AS 'EXT WRITE.'
DEF KEY GOLD G   AS "PASTE=?'PUT BUFFER: '."
DEF KEY GOLD I   AS "EXT INC ?'INPUT FILE: ' =?' BUFFER: '."
DEF KEY GOLD J   AS "EXT F=?'BUFFER: '.."
DEF KEY GOLD L   AS "EXT F L."
DEF KEY GOLD M   AS "EXT F=MAIN.."
DEF KEY GOLD P   AS "55L."
DEF KEY GOLD O   AS "EXT WR ?'OUTPUT FILE: ' =?' BUFFER: '."
DEF KEY GOLD Q   AS "EXT QUIT/SAVE."
DEF KEY GOLD S   AS "EXT CO SELECT TO=?'SAVE BUFFER: ' ; F L."
DEF KEY GOLD T   AS "CUTSR=?'CUT BUFFER: '."
DEF KEY GOLD W   AS "^MI   ^Z."
DEF KEY GOLD X   AS "D+C+CUNDC."
DEF KEY GOLD Z   AS 'EXT EXIT.'
DEF KEY 3        AS "PAR."
DEF KEY GOLD  3  AS "EXT WIDTH_132."
DEF KEY GOLD 12  AS "(-22V)."
DEF KEY GOLD 13  AS "(+22V)."
DEF KEY GOLD 14  AS '(3SHL).'
DEF KEY GOLD 15  AS '(3SHR).'
!
FIND=MAIN