home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB19.ZIP / KEYDFINE < prev    next >
Encoding:
Text File  |  1986-01-13  |  384 b   |  13 lines
  1. PROGRAM KEYDFINE;       {this defines Ctrl-A to be " := "  }
  2. CONST
  3.   ESC = 27;     {value of escape key}
  4.  
  5.  
  6. BEGIN
  7.   WRITE(CHR(ESC),  '[1;" := "p');
  8. END.
  9.  
  10. {using this technique and chapter 13 of the DOS manual,
  11. {you can make your own key redefinitions. For example, you
  12. {can change the assignment of function keys in the editor...}
  13.