! Key translation file for the Typescript
!
! Change Log:
!
! 20 Jan  83  David Golub
!             Added cFINDF (↑s), cFINDB (↑r) from Canvas typescript.
!
! 16 Nov  83  Michael B. Jones
!             Added Ctrl-u as a synonym for OOPS, Ctrl-Return same as Return.
!
! 26 Oct  83  Pedro Szekely
!             added cWRAPON cWRAPOFF
!
! 24 Oct  83  Pedro Szekely
!             added cBELL so that ↑G rings the bell, but is not inserted
!
!  7 Oct  83  Pedro Szekely
!             added cLISTPATH, cCOMPPATH, cNOOP, cILLEGAL
!
!  5 Sept 83  David Golub
!             changed DelMore to ↑\ (control-backslash) -
!             control-DEL is the window manager escape key!

DEFINITIONS

command
        
        PosResponse     = 40
        
        cFIRST          = 50
        cLAST           = 51
        cNEXT           = 52
        cPREV           = 53
        cFDEL           = 54
        cBSP            = 55
        cEREOL          = 56
        cERBOL          = 57
        cTAB            = 58
        cTRANSP         = 59
        cRETURN         = 60
        cREDISP         = 61
        cDELNWD         = 62
        cDELPWD         = 63
        cNEXTWD         = 64
        cPREVWD         = 65
        cPREVPAG        = 66
        cNEXTPAG        = 67
        cUNBLOCK        = 68
        cSETMORE        = 69
        cDELMORE        = 70
        cUP             = 71
        cDOWN           = 72
        cLISTPATH       = 73
        cCOMPPATH       = 74
        cNOOP           = 75
        cILLEGAL        = 76
        cBELL           = 77
        cWRAPON         = 78
        cWRAPOFF        = 79
        cFINDF          = 80
        cFINDB          = 81        
        cYELLDOWN       = 82
	cWHITEDOWN      = 83
        cGREENDOWN      = 84
	DiffPosition    = 85


KEYTRANSLATIONS

        Position        = PosResponse 'p
	DiffPosition	= DiffPosition

        YellowDown	= cYELLDOWN
	WhiteDown	= cWHITEDOWN
	GreenDown	= cGREENDOWN
        
        CONTROL 'a      = cFIRST 'a
        CONTROL 'e      = cLAST 'e
        CONTROL 'f      = cNEXT 'f
        CONTROL 'b      = cPREV 'b
        CONTROL 'd      = cFDEL 'd
        CONTROL 'h      = cBSP 'h
        BACKSPACE       = cBSP 'h
        DEL             = cBSP 'h
        CONTROL 'k      = cEREOL 'k
        OOPS            = cERBOL
        CONTROL 'u      = cERBOL
        TAB             = cTAB
        CONTROL 't      = cTRANSP 't
        RETURN          = cRETURN
        CONTROL RETURN  = cRETURN
        CONTROL 'l      = cREDISP
        CONTROL 'D      = cDELNWD
        CONTROL 'H      = cDELPWD
        CONTROL BACKSPACE = cDELPWD
        CONTROL 'F      = cNEXTWD
        CONTROL 'B      = cPREVWD
        CONTROL 'v      = cNEXTPAG
        CONTROL 'V      = cPREVPAG
        LF              = cUNBLOCK
        CONTROL LF      = cSETMORE
        CONTROL '\      = cDELMORE
        CONTROL 'p      = cUP 'p
        CONTROL 'n      = cDOWN 'n
        CONTROL '?      = cLISTPATH '?
        INS             = cCOMPPATH
        CONTROL 'g      = cBELL
        CONTROL 'w      = cWRAPON
        CONTROL 'W      = cWRAPOFF

        CONTROL 's      = NullCommand 1 PREFIX
        CONTROL 's + ANY = cFINDF

        CONTROL 'r      = NullCommand 2 PREFIX
        CONTROL 'r + ANY = cFINDB

END