!	Standard Initializer Filer	V01.3	25-Jun-82
SET MODE LINE
!+
!	Word Delimiter Macros
!-
DEFINE KEY CONTROL Z AS "EX."
DEF M DELIMITERS_PROGRAMMING
F=DELIMITERS_PROGRAMMING
I
DEF K GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING."
C; ISE EN WO '^Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ()[],-+#/='^Z EX
^Z
!
DEF M DELIMITERS_WORD_PROCESSING
F=DELIMITERS_WORD_PROCESSING
I
DEF K GOLD CONT D AS "EXT DELIMITERS_PROGRAMMING."
C; ISE EN WO '^Z 9ASC 10ASC 12ASC 13ASC 27ASC I ,'^Z EX
^Z
DELIMITERS_PROGRAMMING
F =MAIN
!+
!	Screen Width Macros
!-
I =WIDTH_132
DEF K GOLD CONT W AS "EXT WIDTH_80."
SE SC 132
SE WR 131
^Z
DEF MACRO WIDTH_132
FIND =MAIN
!
I =WIDTH_80
DEF K GOLD CONT W AS "EXT WIDTH_132."
SE SC 80
WR 70
^Z
DEF MACRO WIDTH_80
FIND =MAIN
!
!+
!	Key Definitions
!-
DEF K 10	AS "."
DEF K CONT B	AS "-W."
DEF K CONT F	AS "(20C)."
DEF K CONT G	AS "PASTE+?'Put buffer: '."
DEF K CONT P	AS "PAR."
DEF K CONT X	AS "CUTSR=?'Cut buffer: '."
!
DEF K GOLD DEL	AS "EXT CL ?'Clear what buffer: '."
DEF K GOLD 12	AS "(-22V)."
DEF K GOLD 13	AS "(+22V)."
DEF K GOLD 14	AS "(+15C)."
DEF K GOLD 15	AS "(-15C)."
DEF K GOLD CONT B AS "BSEN."
DEF K GOLD CONT D AS "EXT DELIMITERS_WORD _PROCESSING."
DEF K GOLD CONT G AS "CUTSR=DELETE PASTE=?'Replace with buffer: '."
DEF K GOLD CONT F AS "(ESEN W)."
DEF K GOLD CONT H AS "(-C D-C +C UNDC)."
DEF K GOLD CONT I AS "(8C)."
DEF K GOLD CONT T AS "TOP."
DEF K GOLD CONT W AS "EXT WIDTH_132."
DEF K GOLD CONT X AS "EXT CO SELECT TO=?'Copy to buffer: ' ; F L."
DEF K GOLD CONT Z AS "EXT EX."
!
DEF K GOLD .	AS "I~~/\~~^Z -6C."
DEF K GOLD /	AS "S%~~/\~~%%."
DEF K GOLD B	AS "EXT F=?'Buffer: '.."
DEF K GOLD C	AS "(C SEL W CHGCSR)."
DEF K GOLD F	AS "(SEL PAR FILLSR)."
DEF K GOLD I	AS "EXT INC ?'Input file: ' =?' Buffer: '."
DEF K GOLD L	AS "EXT F L."
DEF K GOLD M	AS "EXT F=MAIN.."
DEF K GOLD O	AS "EXT WR ?'Output file: ' =?' Buffer: '."
DEF K GOLD S	AS "EXT SH BU."
!+
!	Set Terminal Characteristics
!-
SE WR 70
SE TR
SE K
SE M C
!+
!	Set Buffer to MAIN, and Start
!-
SET MODE CHANGE
F=MAIN