PROGRAM KEYDFINE;       {this defines Ctrl-A to be " := "  }
CONST
  ESC = 27;     {value of escape key}


BEGIN
  WRITE(CHR(ESC),  '[1;" := "p');
END.

{using this technique and chapter 13 of the DOS manual,
{you can make your own key redefinitions. For example, you
{can change the assignment of function keys in the editor...}