From:	MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX" 21-MAR-1993 01:42 21-MAR-1993 01:42:00.00
To:	Info-VAX@KL.SRI.COM
CC:	
Subj:	DEFINE/KEY (sort of) in NOTES (Was Re: CTRL/O IN EVE)

In article <9303162326.AA12831@uu3.psi.com>, Jerry Leichter <leichter@lrw.com>
writes: 

> Similarly, you can learn ONCE what a small set of control characters mean,
> and they will mean that in just about every context within VMS.  Or take a
> look at the keypad interface:  You can define keys in the same way, using the
> same names, in DCL, MAIL, the Debugger, and many other places.  

Like control-R which means refresh... except when it means remember.  Oh well, 
at least it's mnemonic. ;-)  And so's Control-W (Wrefresh with a "W" as in
"write".)

> In fact, one of the annoying things about EVE is that it does NOT provide a
> compatible DEFINE/KEY interface - though it is fairly close.  (VAX NOTES is
> actually the worst offender here, or was when I last used it.) 

Just as an aside for those who might be curious:  You can use TPU to redefine
the keys in NOTES.  Not pretty, but do-able.  (In faqt, maybe this is in the 
FAQ.  I haven't looked recently.  If not, perhaps it should be.)  

Just add a line in the LOGIN.COM like: 

$ DEFINE/NOLOG NOTES$COMMAND	SYS$LOGIN:NOTES.INI

and create a file:

<Cut Here>-------------<NOTES.INI>-----------------------------<Cut Here>
! From:	Peter Quodling - 381 2695 - ZKO1-3/J35
!	Digital Equipment Corporation
!	Nashua, NH.
!
!	Internet:     quodling@blumon.enet.dec.com
!	UUCP: ...!decwrl!blumon.enet!quodling
!
!	10-Jul-1990 1022
!
! Modified by Kevin Cole, Gallaudet University, July 1990
! CADS_COLE@GALLUA.GALLAUDET.EDU

! Make the "DO" key on the LK201 be a SPAWN command
define_key ("notes$do_command('SPAWN')", F16,
		"Spawn", "notes$user_keys");

! Make the "Remove" key (E3) delete the current note
define_key ("notes$do_command('DELETE')", E3,
		"Delete note", "notes$user_keys");

! Make the comment for E5 fit on the key diagram
define_key (lookup_key(E5,program,notes$kt_noteskeys), E5,
		"NOTES Previous_screen (Prior screen)","notes$user_keys");

! Make KP8 be "ANSWER"
define_key ("notes$do_command('ANSWER')", KP8,
		"NOTES Answer (Answer note)", "notes$user_keys");

! Make KP9 be "EXIT"
define_key ("notes$do_command('EXIT')", KP9,
		"NOTES Exit (Exit notes)", "notes$user_keys");

! Make ENTER be "UPDATE"
define_key ("notes$do_command('UPDATE')", ENTER,
		"NOTES UPDATE (Update notes)", "notes$user_keys");

! Make KPENTER be "UPDATE"
!define_key ("notes$do_command('UPDATE')", KPENTER,
!		"NOTES UPDATE (Update notes)", "notes$user_keys");

! Make KP4 be the TOPIC command (.0)
define_key ("notes$do_command('TOPIC')", KP4,
		"NOTES Topic (First reply)", "notes$user_keys");

! Make KP6 be the .LAST command
define_key ("notes$do_command('.LAST')", KP6,
		"NOTES .LAST (Last reply)", "notes$user_keys");

! Set TPU/NOTES parameters
set (bell, broadcast, on);
set (margins, notes$x_edit_buffer, 4, 78);
set (margins, notes$x_mail_buffer, 4, 78);
set (mouse,off);
<Cut Here>-------------<NOTES.INI>-----------------------------<Cut Here>

And voila, you've got a new setup.

-- 

 ========== U.S. Mail =============================== E-Mail =================
 Kevin Cole      <Flatline>           |  Bitnet: CADS_COLE@GALLUA.BITNET
 Gallaudet Research Institute  (GRI)  |  Internet: KJCOLE@GALLUX.GALLAUDET.EDU
 Washington, D.C.  20002-3625         |  UUCP: ...!psuvax!gallua.bitnet!kjcole
 (202) 651-5575  x4592                |  The WELL:   kjcole

