DEF KEY GOLD Y AS 'EXT QUIT.'
DEF KEY GOLD Z AS 'EXT EXIT.'
DEF KEY GOLD G AS 'SEL+EL+CHGCSR.'
DEF KEY GOLD W AS 'EXT SET SCR 132.'
DEF KEY GOLD N AS 'EXT SET SCR 80.'
DEF KEY GOLD R AS 'SHR.'
DEF KEY GOLD L AS 'SHL.'
DEF KEY CONT D AS 'EXT +.'
DEF KEY CONT U AS 'EXT -.'
def key gold > as "CUTSR=zwrite ext write ?'Output filename: ' =zwrite;find =main.;."
DEF KEY GOLD < AS "PASTE=zwrite."
def key gold [ as "ext inc ?'Window 1 filename: ' =dual1;find =dual1 begin."
def key gold ] as "ext find =dual1.;."
def key gold { as "ext inc ?'Window 2 filename: ' =dual2;find =dual2 begin."
def key gold } as "ext find =dual2.;."
def key gold control M as "ext find =main.;."
S/C-/C-/
SET QUIET
SET MODE CHANGE