[Info-vax] Some questions on software for VMS 7.3 VAX

[Johnny Billquist]

On 2016-01-26 07:07, lists at openmailbox.org wrote:
> On Mon, 25 Jan 2016 20:44:00 +0100
> Johnny Billquist via Info-vax <info-vax at rbnsn.com> wrote:
>
>> On 2016-01-25 19:35, lists at openmailbox.org wrote:
>>
>>> What's smashing your finger with a hammer and poking your eye with a
>>> sharp stick is trying to use EDT without a DEC keyboard.
>>
>> You do know that you can remap all the keys in EDT? You want a someone
>> Emacs-compatible setup for EDT? I have an init file for that lying
>> somewhere, that I could post for you...
>
> I'll take a look at it but I have a compact keyboard (no keypad section) so
> I don't think it's going to work.

Place this in EDTINI.EDT. Edit it to your hearts content. This mapping 
do make use of the GOLD key as a substitute for ESC (sortof), but you 
can create other mappings if you want, obviously, which avoids even that 
key...

--------8<-------
DEFINE KEY GOLD H AS "EXT INCLUDE [1,54]EDTHELP.EDT =HELP."
DEFINE KEY CONTROL A AS '(BL).'
DEFINE KEY CONTROL B AS '(-C).'
DEFINE KEY CONTROL C AS '(^M -C).'
DEFINE KEY CONTROL D AS '(D1C).'
DEFINE KEY CONTROL E AS '(EL).'
DEFINE KEY CONTROL F AS '(+C).'
DEFINE KEY CONTROL G AS '(DELW+W UNDW).'
DEFINE KEY CONTROL H AS '(-C).'
DEFINE KEY CONTROL I AS 'TAB.'
DEFINE KEY CONTROL J AS '(^M^I).'
DEFINE KEY CONTROL K AS 'CUTEL.'
DEFINE KEY CONTROL L AS 'REF.'
DEFINE KEY CONTROL M AS '^M.'
DEFINE KEY CONTROL N AS '(+V).'
DEFINE KEY CONTROL P AS '(-V).'
DEFINE KEY CONTROL R AS "-'?'Rev. Search: '."
DEFINE KEY CONTROL T AS '(D1C -C UNDC +2C).'
DEFINE KEY CONTROL U AS '4'
DEFINE KEY CONTROL V AS '(+20V).'
DEFINE KEY CONTROL W AS '(-20V).'
DEFINE KEY GOLD X AS "-BR+21DLEXT =MAIN."
DEFINE KEY CONTROL Y AS 'PASTE.'
DEFINE KEY GOLD U AS "CHGCEW."
DEFINE KEY GOLD V AS "TOP D REST INC ?'Visit file: '. "
DEFINE KEY GOLD W AS "CUTSR."
DEFINE KEY GOLD M AS "SEL."
DEFINE KEY GOLD S AS "+'?'Forward Search: '."
DEFINE KEY GOLD R AS "S/?'Full Replace: '/?' with: '/REST."
DEFINE KEY GOLD Q AS "S/?'Query Replace: '/?' with: '/REST/Q."
DEFINE KEY CONTROL X AS "EXT ?'Subcommand: '."
DEFINE KEY GOLD Z AS "EXT EXIT."
DEFINE KEY GOLD DELETE AS "(-CCUTBW).
DEFINE KEY GOLD D AS "CUTEW."
DEFINE KEY GOLD F AS "(+W)."
DEFINE KEY GOLD B AS "(-W)."
DEFINE KEY GOLD E AS "(+ESEN)."
DEFINE KEY GOLD A AS "(-BSEN)."
DEFINE KEY GOLD < AS "(-BR)."
DEFINE KEY GOLD > AS "(+ER)."
DEFINE KEY GOLD C AS "^?'Control character ^'."
SET CASE NONE
SET NONUMBERS
SET QUIET
SET SEARCH END
SET MODE CHANGE
SET NOTRUNCATE
------8<-----