Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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