!	STANDARD INITIALIZATION FILE  FOR BANKERS TRUST
!	V 1.0	MAY-18-82
!+
!	WORD DELIMITER MACROS
!-
DEF M DELIMITERS_PROGRAMMING
F=DELIMITERS_PROGRAMMING
I
DEF K GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING."
^Z
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."
^Z
C; ISE EN WO '^Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ,'^Z EX
^Z
!+
!	SCREEN WIDTH MACROS
!-
DEF M WIDTH_132
I=WIDTH_132
DEF K GOLD CONT W AS "EXT WIDTH_80."
SE SC 132
^Z
!
DEF M WIDTH_80
I=WIDTH_80
DEF K GOLD CONT W AS "EXT WIDTH_132."
SE SC 80
^Z
!+
!	KEYS DEFINITIONS
!-
DEF K CONT B AS "-W."
DEF K CONT F AS "+W."
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 12 AS "(-22V)."
DEF K GOLD 13 AS "(+22V)."
DEF K GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING."
DEF K GOLD CONT G AS "CUTSR=?DELETS PASTE=?'Rep buffer: '."
DEF K GOLD CONT H AS "(-C D-C C UNDC)."
DEF K GOLD CONT W AS "EXT WIDTH_132."
DEF K GOLD CONT X AS "EXT CO SELECT TO=?'Cop 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 Q AS "EXT QUIT/SAVE."
DEF K GOLD S AS "EXT SH BU."
!+
!	SET TERMINAL CHARACTERISTICS
!-
SE WR 79
SE TR
SE K
SE M C
DELIMITERS_PROGRAMMING
!+
!	SET BUFFER TO MAIN AND START
!-
F=MAIN