home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18273 < prev    next >
Encoding:
Text File  |  1992-11-20  |  2.6 KB  |  83 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!usc!zaphod.mps.ohio-state.edu!cs.utexas.edu!hermes.chpc.utexas.edu!michael
  3. From: michael@chpc.utexas.edu (Michael Lemke)
  4. Subject: Re: Is it possible to DEFINE KEY in edit/edt AS EXIT?
  5. Message-ID: <1992Nov20.220436.3530@chpc.utexas.edu>
  6. Organization: The University of Texas System - CHPC
  7. References: <1992Nov20.093822.21259@cs.umb.edu>
  8. Date: Fri, 20 Nov 92 22:04:36 GMT
  9. Lines: 72
  10.  
  11. In article <1992Nov20.093822.21259@cs.umb.edu> mzraly@ra.cs.umb.edu (Michael S Zraly) writes:
  12. >I am writing a *very* simple data-entry program for use by a few people
  13. >with no experience whatsoever with editing on VMS systems.  I find it
  14. >easiest to use EDIT/EDT for the data entry part, but I would like to
  15. >avoid having to remind the users to type CONTROL-ZexitRETURN: I'd
  16. >much rather be able to have them type, for instance, CONTROL-X or F10
  17. >and have EDT interpret this as CONTROL-ZexitRETURN somehow.
  18. >
  19. [...]
  20.  
  21. >On another note, I would like to have the numeric keypad kept in
  22. >numeric mode rather than application mode: 
  23.  
  24.  
  25. Here's a bit from my EDTINI.EDT file which defines GOLD-E as exit and
  26. GOLD-Q as quit and sets PF2 to toggel between Application keypad and
  27. numeric keypad. GOLD-PF2 still gives you access to HELP.  You can put
  28. it on another key if you like (I hit PF2 too often accidentially so I
  29. got annoyed by waiting for the help screen to come up and disappear for
  30. nothing).
  31.  
  32. Best put EDTINI.EDT somewhere and define a logical EDTINI to point to 
  33. it.  That way it will always be found irrespective of your current 
  34. directory.
  35.  
  36. Michael
  37. INSERT =NUMER
  38. DEFINE KEY 1 AS "I1^Z."
  39. DEFINE KEY 2 AS "I2^Z."
  40. DEFINE KEY 3 AS "I3^Z."
  41. DEFINE KEY 4 AS "I4^Z."
  42. DEFINE KEY 5 AS "I5^Z."
  43. DEFINE KEY 6 AS "I6^Z."
  44. DEFINE KEY 7 AS "I7^Z."
  45. DEFINE KEY 8 AS "I8^Z."
  46. DEFINE KEY 9 AS "I9^Z."
  47. DEFINE KEY 0 AS "I0^Z."
  48. DEFINE KEY 16 AS "I.^Z."
  49. DEFINE KEY 18 AS "I-^Z."
  50. DEFINE KEY 19 AS "I,^Z."
  51. DEFINE KEY 21 AS "^M."
  52. DEFINE KEY 10 AS "EXTKEYPAD."
  53. ^Z
  54. INSERT =KEYPAD
  55. DEFINE KEY 1 AS "W."
  56. DEFINE KEY 2 AS "EL."
  57. DEFINE KEY 3 AS "C."
  58. DEFINE KEY 4 AS "ADV."
  59. DEFINE KEY 5 AS "BACK."
  60. DEFINE KEY 6 AS "CUTSR."
  61. DEFINE KEY 7 AS "PAGETOP."
  62. DEFINE KEY 8 AS "(16L)."
  63. DEFINE KEY 9 AS "APPENDSR."
  64. DEFINE KEY 0 AS "L."
  65. DEFINE KEY 16 AS "SEL."
  66. DEFINE KEY 18 AS "DEW."
  67. DEFINE KEY 19 AS "D+C."
  68. DEFINE KEY 21 AS "."
  69. DEFINE KEY 10 AS "EXTNUMER."
  70. ^Z
  71. F =MAIN
  72. DEFINE MACRO NUMER
  73. DEFINE MACRO KEYPAD
  74. DEFINE KEY 10 AS "EXTNUMER."
  75. DEFINE KEY GOLD E AS "EXT EXIT."
  76. DEFINE KEY GOLD Q AS "EXT ?'Do you really want to quit? Type CRTL/U to continue, <ENTER> to quit.' QUIT."
  77. SET MODE CHANGE
  78.  
  79. -- 
  80. Michael Lemke
  81. Astronomy, UT Austin, Texas
  82. (michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
  83.