Trailing-Edge
-
PDP-10 Archives
-
tops20tools_v6_9-jan-86_dumper
-
tools/com/edtini.edt
There are 3 other files named edtini.edt in the archive. Click here to see a list.
set cursor 5:17
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 TAB 4
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 TAB 8
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 SHOW FILES.'
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).'
!
!
!
! CONT R : Subs old/new
! CONT F : Subs old;new
! CONT G : Subs Next
!
! GOLD CONT G : CUTSR=DELETE PASTE=?'REP BUFFER: '
!
!
! GOLD . : Insert ~~/\~~
! GOLD / : Find and Delete ~~/\~~
! GOLD B : Show Buffers
! GOLD C : Change Case Word
! GOLD F : Flush Current Buffer to File
! GOLD G : Paste from a Buffer
! GOLD I : Include File to a Buffer
! GOLD J : Jump to another Buffer
! GOLD L : Jump to Last Buffer
! GOLD M : Jump to Main Buffer
! GOLD P : Move 55 lines
! GOLD O : Output Buffer to a file
! GOLD Q : Quit /Save
! GOLD S : Copy Select Region to a Buffer
! GOLD T : Cut Select Region to a Buffer
! GOLD W : Insert CR and 3 spaces
! GOLD X : Exchange Two Characters
! GOLD Z : EXIT
!
! 3 : Jump To Next Paragraph
! GOLD 3 : Changed Screen Width
! GOLD 12 : -22V
! GOLD 13 : +22V
! GOLD 14 : 3SHL
! GOLD 15 : 3SHR
!
!
FIND=MAIN