;************************************************************************
;
; FILE NAME: r1000enh.kbm
;
; version 1.0       January 6, 1987                        
;
; configuration file for IBM PC Enhanced 101/102  keyboard
; 
; Used with Walker, Richer, Quinn, Inc. Reflection 2 software, which 
; emulates VT100 on IBM PC.  This file is designed for use of the IBM PC 
; with the Rational Environment.
;
; maps IBM keyboard to keypad of Rational Terminal, providing 
; single key sequences for Object...Mark
;                          Promote, Complete, Format
;                          cursor keys
;                          querty keys
;                          function keys
;          in all combinations of unshifted, shift, ctrl, alt
;
;***********************************************************************
;
keyboard-id =   ENHANCED      ; defines type of keyboard in use
                              ; values are  PC, AT, ENHANCED

                              
                              

cp-ins     =   27 34 116 ; object
cp-home     =   27 34 117   ; region   
cp-pgup     =   27 34 118   ; window

numlock     =   27 34 119   ;image
 
 ; user does not have ability to toggle NUM-LOCK from within R1000 
 ; session.  Numlock must be set from DOS, prior to starting emulator. 
 ; 
 ; NUM-LOCK   "on" before starting emulator =>  numeric keys unshifted
 ; NUM-LOCK   "off"     =>  cursor keys,  begin..end_of unshifted
 ; 
 ; Other function is available by using "shift"             
 ; Use Reflection HotKey to exit to DOS and toggle NumLock. "Alt RShift"

kp-slash    =   27 34 120   ; line
kp-star     =   27 34 121   ; word
kp-minus    =   27 34 122   ; mark

cp-del      =   27 34 123   ; promote
cp-end      =   27 34 124   ; complete
cp-pgdn     =   27 34 125   ; format

ctrl cp-ins     =   27 38 116   ; C_object
ctrl cp-home    =   27 38 117   ; C_region   
ctrl  cp-pgup   =   27 38 118   ; C_window
ctrl numlock    =   27 38 119   ; C_image
ctrl kp-slash   =   27 38 120   ; C_line
ctrl kp-star    =   27 38 121   ; C_word
ctrl kp-minus   =   27 38 122   ; C_mark
ctrl cp-del     =   27 38 123   ; C_promote
ctrl cp-end     =   27 38 124   ; C_complete
ctrl cp-pgdn    =   27 38 125   ; C_format

alt cp-ins     =   27 42 116    ; M_object
alt cp-home    =   27 42 117    ; M_region   
alt cp-pgup    =   27 42 118    ; M_window
alt numlock    =   27 42 119    ; M_image  
alt kp-slash   =   27 42 120    ; M_line
alt kp-star    =   27 42 121    ; M_word
alt kp-minus   =   27 42 122    ; M_mark
alt cp-del     =   27 42 123    ; M_promote
alt cp-end     =   27 42 124    ; M_complete     
alt cp-pgdn    =   27 42 125    ; M_format 

ctrl alt cp-ins     =   27 46 116  ; CM_object 
ctrl alt cp-home    =   27 46 117  ; CM_region   
ctrl alt cp-pgup    =   27 46 118  ; CM_window
ctrl alt numlock    =   27 46 119  ; CM_image
ctrl alt kp-slash   =   27 46 120  ; CM_line   
ctrl alt kp-star    =   27 46 121  ; CM_word
ctrl alt kp-minus   =   27 46 122  ; CM_mark
ctrl alt cp-del     =   27 46 123  ; CM_promote
ctrl alt cp-end     =   27 46 124  ; CM_complete  
ctrl alt cp-pgdn    =   27 46 125  ; CM_format
             

kp-plus         = 27 35 107 ;dash       
kp-enter        = 27 35 109 ;enter

cp-up           = 27 35 110 ;up
cp-down         = 27 35 111 ;down
cp-right        = 27 35 112 ;right
cp-left         = 27 35 113 ;left

up               = 27 35 110 ;up
down             = 27 35 111 ;down
right            = 27 35 112 ;right   ; shifted numeric keypad cursors
left             = 27 35 113 ;left

home                = 27 35 114 ;begin_of  --- shift 7
pgup                = 27 35 115 ;end_of    --- shift 9
           
kp-1     = 27 35 97        ;  1
kp-2     = 27 35 98        ;  2
kp-3     = 27 35 99        ;  3
kp-4     = 27 35 100       ;  4
kp-5     = 27 35 101       ;  5  ; numeric keypad keys--return numeric arguments
kp-6     = 27 35 102       ;  6  ; use with un-shifted numeric keypad
kp-7     = 27 35 103       ;  7
kp-8     = 27 35 104       ;  8
kp-9     = 27 35 105       ;  9
kp-0     = 27 35 96        ;  0
                               
del         = 27 35 108       ;  numeric dot     ;shift and unshifted
kp-period   = 27 35 108       ;  numeric dot 
 
backspace =   8           ; delete key 
return    =   13          ; carriage return


f1 =   27 34   101  ; debug run
f2 =    27 34 102  ; show source   
f3  =     27 34  103  ; stack 
f4 =   27 34    104  ; debug put   
f5  =   27  34  105 ;definition
f6  =   27 34   111 ;semanticize         ;first level of function keys
f7  =   27 34   109 ;edit
f8  =   27 34   110 ;create command
;;;f9  =                 keep open for emulator control functions
;;;f10 =                 keep open for emulator control functions
f11   =   27  34  113 ;next item
f12   =   27  34  112 ;explain     

                    

shift f1   =    27 34 69   ; debug execute  
shift f2   =    27 34  70  ; break ~ default 
shift f3   =    27 34  71  ; debug forget 
shift f4   =    27 34  72  ; set first element 
shift f5   =    27 34 73   ; defin in place
shift f6   =    27 34 108  ; install unit  
shift f7   =    27 34 77   ; demote unit  
shift f8   =    27 34 78   ; create body  
shift f9    =    27 34 107  ; prompt for  
shift f10   =    27 38 113  ; previous item
shift f11   =    27 34 106  ; help  
shift f12  =    27 46 115  ; what object  


ctrl  f1  =     27 38  101  ; run local
ctrl  f2  = 27 38  102 ; debug break 
ctrl  f3  =  27 38 103 ; catch
ctrl  f5  =     27  38  105 ; other part
ctrl  f6  =     27 34  76   ; install stub
ctrl  f7  =     27 38  109  ; source unit     
ctrl  f8  =     27 38  110  ; create ada
ctrl  f9  =     27  34  79  ; show errors
ctrl  f10  =     27  38  112 ; item off
ctrl  f11  =     27  42  106 ; help on key
ctrl  f12 =     27  42  115 ; what locks


alt f1   =      27 42 101  ; run returned
alt  f2  =      27  42  102  ; debug activate
alt f3   =      27  42  103  ; debug propogate         
alt f4   =      27  42 104   ; set pointer level
alt f5   =      27 42 105  ; enclosing
alt f6   =      27 38 108  ; code unit
alt f7   =      27 42 109  ; withdraw unit
alt f8   =      27 38 110  ; create directory
alt f9   =      27 42 112  ; show unused unit
alt f10  =      27 38 111  ; underlines off
alt f11  =      27 46 106  ; print
alt f12  =      27 38 115       ; what users
alt f12  =      27 42  75  ; checked out by user


ctrl shift  f1 = 27 38 69  ; CS_f6
ctrl shift  f2 = 27 38 70  ; CS_f7
ctrl shift  f3 = 27 38 71  ; CS_f8
ctrl shift  f4 = 27 38 72  ; CS_f9 

ctrl shift  f5  = 27 38  73  ;other part in place
ctrl shift  f6  = 27 42  108 ; install world
ctrl shift  f7  = 27 38  77  ; uncode this world
ctrl shift  f8  = 27 38  78  ; create world
ctrl shift  f9  = 27 42  111 ;show unused
ctrl shift  f10 = 27 38 107 ;cmvc check out
ctrl shift  f11 = 27 34 114 ; job disable
ctrl shift  f12 = 27 46  75  ; checked out in view

ctrl alt  f1  = 27 46  101 ; debug stop
ctrl alt  f2  = 27  46  102 ; remove breaks 
ctrl alt  f3  = 27  46  103 ; show exceptions 
ctrl alt  f4  = 27 46 104   ; modify
ctrl alt  f5  = 27  46  105  ; home library
ctrl alt  f6  = 27  46  108  ; code this world
ctrl alt  f7  = 27  46 109   ; source this world
ctrl alt  f8  = 27  46  110  ; create text
ctrl alt  f9  = 27  42  111  ; show usage (unit)
ctrl alt  f10 = 27  42  107  ; cmvc check in
ctrl alt  f11 = 27  38  114  ; job kill
ctrl alt  f12 = 27  34  75   ;  cmvc show out of date
                            

shift alt  f1  = 27 42 69  ; MS_f6
shift alt  f2  = 27 42 70  ; MS_f7
shift alt  f3  = 27 42 71  ; MS_f8
shift alt  f4  = 27 42 72  ; MS_f9  

shift alt  f5  = 27  42  73  ; enclosing in place
shift alt  f6  = 27  42  76  ; install all worlds 
shift alt  f7  = 27  42  77  ; uncode all worlds
shift alt  f8  = 27  46  78  ; create private part
shift alt  f9  = 27  46  111 ; show usage
shift alt  f10 = 27  46  107 ; accept changes
shift alt  f11 = 27  34  82  ; job enable
shift alt  f12 = 27  38  75  ; cmvc show info


ctrl shift  alt  f1  = 27  46  69  ; debug task display
ctrl shift  alt  f2  = 27  46  70  ; debug show breaks
ctrl shift  alt  f3  = 27  46  71  ; rendezvous info
ctrl shift  alt  f4  = 27  46  72  ; debugger window
ctrl shift  alt  f5  = 27  46  73  ; enclosing library
ctrl shift  alt  f6  = 27  46  76  ; code all worlds
ctrl shift  alt  f7  = 27  46  77  ; source all worlds
ctrl shift  alt  f8  = 27  46  81  ; make separate
ctrl shift  alt  f9  = 27  46  79  ; show usage indirect
ctrl shift  alt  f10 = 27  46  80  ; make inline
ctrl shift  alt  f11 = 27  42  114 ; job connect
ctrl shift  alt  f12 = 27  46  83  ; show access list
 


alt cp-up            = 27 43 110   ; M_up
alt cp-down            = 27 43 111 ; M_down
alt cp-right           = 27 43 112 ; M_right
alt cp-left            = 27 43 113 ; M_left
alt up              = 27 43 110   ; M_up              
alt down            = 27 43 111 ; M_down
alt right           = 27 43 112 ; M_right
alt left            = 27 43 113 ; M_left



alt home            = 27 43 114 ; M_begin_of
alt pgup            = 27 43 115 ; M_end_of
alt backspace       = 27 43 116 ; M_delete          
alt tab             = 27 43 117 ; M_tab
alt space           = 27 43 118 ; M_space


ctrl cp-up              = 27 39 110 ; C_up
ctrl cp-down            = 27 39 111 ; C_down
ctrl cp-right           = 27 39 112 ; C_right
ctrl cp-left            = 27 39 113 ; C_left
ctrl up              = 27 39 110 ; C_up
ctrl down            = 27 39 111 ; C_down
ctrl right           = 27 39 112 ; C_right
ctrl left            = 27 39 113 ; C_left


ctrl home            = 27 39 114 ; C_begin_of
ctrl pgup            = 27 39 115 ; C_end_of
ctrl backspace       = 27 39 116 ; C_delete                
ctrl tab             = 27 39 117 ; C_tab
ctrl space           = 27 39 118 ; C_space

alt ctrl cp-up              = 27 47 110 ; CM_up
alt ctrl cp-down            = 27 47 111 ; CM_down
alt ctrl cp-right           = 27 47 112 ; CM_right
alt ctrl cp-left            = 27 47 113 ; CM_left

alt ctrl up              = 27 47 110 ; CM_up
alt ctrl down            = 27 47 111 ; CM_down
alt ctrl right           = 27 47 112 ; CM_right
alt ctrl left            = 27 47 113 ; CM_left




alt ctrl home            = 27 47 114 ; CM_begin_of
alt ctrl pgup            = 27 47 115 ; CM_end_of
alt ctrl backspace       = 27 47 116 ; CM_delete
alt ctrl tab             = 27 47 117 ; CM_tab
alt ctrl space           = 27 47 118 ; CM_space
 

ctrl grave         =   27 37 106 ; C_grave
ctrl minus         =   27 37 107 ; C_minus
ctrl equal         =   27 37 108 ; C_equal
ctrl semicolon     =   27 37 109 ; C_semicolon
ctrl apostrophe    =   27 37 110 ; C_apostophe  
ctrl slash         =   27 37 111 ; C_slash
ctrl comma         =   27 37 112 ; C_comma
ctrl period        =   27 37 113 ; C_period
ctrl open-bracket  =   27 37 123 ; C_left bracket
ctrl close-bracket =   27 37 125 ; C_right bracket


alt grave      =   27 41 106   ; M_grave
alt minus      =   27 41 107   ; M_minus
alt equal      =   27 41 108   ; M_equal
alt semicolon  =   27 41 109   ; M_semicolon
alt apostrophe =   27 41 110   ; M_apostophe  
alt slash      =   27 41 111   ; M_slash
alt comma      =   27 41 112   ; M_comma
alt period     =   27 41 113   ; M_period
alt open-bracket =   27 41 123 ; M_left bracket
alt close-bracket =  27 41 125 ; M_right bracket

ctrl alt  grave      =   27 45 106   ; CM_grave
ctrl alt  minus      =   27 45 107   ; CM_minus
ctrl alt  equal      =   27 45 108   ; CM_equal
ctrl alt  semicolon  =   27 45 109   ; CM_semicolon
ctrl alt  apostrophe =   27 45 110   ; CM_apostophe  
ctrl alt  slash      =   27 45 111   ; CM_slash
ctrl alt  comma      =   27 45 112   ; CM_comma
ctrl alt  period     =   27 45 113   ; CM_period
ctrl alt  open-bracket =   27 45 123 ; CM_left bracket
ctrl alt  close-bracket =  27 45 125 ; CM_right bracket 
                                                

ctrl a =  27 36 97  
ctrl b =  27 36 98
ctrl c =  27 36 99
ctrl d =  27 36 100
ctrl e =  27 36 101 
ctrl f =  27 36 102
ctrl g =  27 36 103
ctrl h =  27 36 104
ctrl i =  27 36 105
ctrl j =  27 36 106   ; C_querty keys
ctrl k =  27 36 107
ctrl l =  27 36 108
ctrl m =  27 36 109
ctrl n =  27 36 110
ctrl o =  27 36 111
ctrl p =  27 36 112
ctrl q =  27 36 113
ctrl r =  27 36 114
ctrl s =  27 36 115
ctrl t =  27 36 116
ctrl u =  27 36 117
ctrl v =  27 36 118
ctrl w =  27 36 119
ctrl x =  27 36 120
ctrl y =  27 36 121
ctrl z =  27 36 122 
     

alt a =  27 40 97  
alt b =  27 40 98
alt c =  27 40 99
alt d =  27 40 100
alt e =  27 40 101 
alt f =  27 40 102
alt g =  27 40 103
alt h =  27 40 104
alt i =  27 40 105
alt j =  27 40 106   ; M_querty  keys
alt k =  27 40 107
alt l =  27 40 108
alt m =  27 40 109
alt n =  27 40 110
alt o =  27 40 111
alt p =  27 40 112
alt q =  27 40 113
alt r =  27 40 114
alt s =  27 40 115
alt t =  27 40 116
alt u =  27 40 117
alt v =  27 40 118
alt w =  27 40 119
;;------alt x =  27 40 120--- not used: Emulator exit sequence

      
alt y =  27 40 121
alt z =  27 40 122 
 

ctrl alt a =  27 44 97  
ctrl alt b =  27 44 98
ctrl alt c =  27 44 99
ctrl alt d =  27 44 100
ctrl alt e =  27 44 101 
ctrl alt f =  27 44 102
ctrl alt g =  27 44 103
ctrl alt h =  27 44 104
ctrl alt i =  27 44 105
ctrl alt j =  27 44 106   ; CM_querty keys
ctrl alt k =  27 44 107
ctrl alt l =  27 44 108
ctrl alt m =  27 44 109
ctrl alt n =  27 44 110
ctrl alt o =  27 44 111
ctrl alt p =  27 44 112
ctrl alt q =  27 44 113
ctrl alt r =  27 44 114
ctrl alt s =  27 44 115
ctrl alt t =  27 44 116
ctrl alt u =  27 44 117
ctrl alt v =  27 44 118
ctrl alt w =  27 44 119
;;------ctrl alt x =  27 44 120  not used: emulator exit sequence  

ctrl alt y =  27 44 121
ctrl alt z =  27 44 122 
 

ctrl zero  = 27 37  96 
ctrl one   = 27 37  97 
ctrl two   = 27 37  98
ctrl three = 27 37  99     ; C_querty numerals
ctrl four  = 27 37  100
ctrl five  = 27 37  101
ctrl six   = 27 37  102
ctrl seven = 27 37  103
ctrl eight = 27 37  104
ctrl nine  = 27 37  105
 

alt zero  = 27 41  96 
alt one   = 27 41  97 
alt two   = 27 41  98
alt three = 27 41  99     ; M_querty numerals
alt four  = 27 41  100
alt five  = 27 41  101
alt six   = 27 41  102
alt seven = 27 41  103
alt eight = 27 41  104
alt nine  = 27 41  105
                                                  

alt ctrl  zero  = 27 45  96 
alt ctrl  one   = 27 45  97 
alt ctrl  two   = 27 45  98
alt ctrl  three = 27 45  99     ; CM_querty numerals
alt ctrl  four  = 27 45  100
alt ctrl  five  = 27 45  101
alt ctrl  six   = 27 45  102
alt ctrl  seven = 27 45  103
alt ctrl  eight = 27 45  104
alt ctrl  nine  = 27 45  105
 
f11  =  27 34 96
f12  =  27 34 97

shift f11  =  27 34 64
shift f12  =  27 34 65 

ctrl f11  =  27 38 96
ctrl f12  =  27 38 97

alt f11  =  27 42 96
alt f12  =  27 42 97

ctrl shift  f11  =  27 38 64
ctrl shift  f12  =  27 38 65

alt shift f11  =  27 42 54
alt shift f12  =  27 42 65

ctrl alt f11  =  27 46 96
ctrl alt f12  =  27 46 97

shift ctrl alt f11  =  27 46 64
shift ctrl alt f12  =  27 46 65