!
! GOLD Q = QUIT
! GOLD E = EXIT
! GOLD Z = QUIT/SAVE
!
! GOLD C = SWAP CURRENT CHARACTER WITH NEXT CHARACTER
! GOLD X = SWAP THE PREVIOUS TWO CHARACTERS
!
! GOLD R = FIND 'Replace' STRING AND REPLACE WITH 'With' STRING
! GOLD T = MAKE THE STRING SUBSTITUTIONS SPECIFIED NUMBER OF TIMES
!
! GOLD ^C= CHANGE CASE OF NEXT (FORWARD) WORD
! GOLD B = MOVE BACKWARD 1 WORD
! GOLD F = MOVE FORWARD  1 WORD
!
! GOLD ^W= WIDE SCREEN   80 CHARACTERS
! GOLD W = WIDE SCREEN  132 CHARACTERS
!
! GOLD I = INPUT FILE INTO ALTernate BUFFER
! GOLD O = OUTPUT ALTernate BUFFER TO FILE
! GOLD Y = OUTPUT PASTE BUFFER TO FILE
!
! GOLD L = SWITCH TO PASTE BUFFER
!
! GOLD M = SWITCH TO MAIN BUFFER
! GOLD N = SWITCH TO ALTernate BUFFER
!
! GOLD G = INSERT ALTernate BUFFER BEFORE CURSOR
! GOLD S = SHOW ALL BUFFERS
!
! GOLD P  =  CLEAR PASTE
! GOLD DEL = CLEAR ALTernate BUFFER
!
! GOLD UP ARROW = MOVE EDITING WINDOW UP 21 LINES
! GOLD DN ARROW = MOVE EDITING WINDOW DOWN 21 LINES
!
Set Mode Change
Set Quiet
Set Cursor 3:19
Define Key GOLD Q as "EXT QUIT."
Define Key GOLD E as "EXT EXIT."
Define Key Gold Z as "EXT QUIT/SAVE."
Define Key GOLD C as "D+C+CUNDC."
Define Key GOLD X as "(-C D-C +C UNDC)."
Define Key GOLD R as "S/?'Replace: '/?'  With: '/."
Define Key GOLD T as "?'TIMES: 'SN."
Define Key GOLD CONTROL C as "CHGCEW."
Define Key GOLD B as "-W."
Define Key GOLD F as "+W."
Define Key GOLD CONTROL W as "EXT SET SCREEN 80."
Define Key GOLD W as "EXT SET SCREEN 132."
Define Key GOLD I as "EXT INCLUDE ?'Input file: ' =ALT."
Define Key GOLD O as "EXT WRITE ?'Output file: ' =ALT."
Define Key GOLD Y as "EXT WRITE ?'Output file: ' =PASTE ; F=MAIN."
Define Key GOLD L as "EXT FIND=PASTE."
Define Key GOLD M as "EXT FIND=MAIN.."
Define Key GOLD N as "EXT FIND=ALT.."
Define Key GOLD A as "EXT FIND=ALT.."
Define Key GOLD G as "PASTE=ALT."
Define Key GOLD S as "EXT SHOW BU."
Define Key GOLD P as "EXT CLEAR PASTE."
Define Key GOLD DEL as "EXT CLEAR ALT."
Define Key GOLD 12 as "(-21L)."
Define Key GOLD 13 as "(+21L)."