XGKB1 ;SFISC/VYD - Read with Escape Processing cont. ;06/19/2002  13:18
 ;;8.0;KERNEL;**244**;Jul 10, 1995
 ;;Special thanks to MELDRUM.KEVIN@ISC-SLC.VA.GOV
 ;
VAXDSM ; $ZB ($KEY) values for VAX DSM
MSM ; $ZB ($KEY) values for MSM
GTM ; $ZB ($KEY) values for GT.M
 F I=2:1:31 D
 . S X=$TR($T(KBD+I)," ","")
 . S ^XUTL("XGKB",$P(X,";",4))=$P(X,";",3)
 F I=29:1 S X=$TR($T(KBD+I)," ","") Q:$P(X,";",3)="ZZZ"  D
 . S ^XUTL("XGKB",$P(X,";",4)*256+27)=$P(X,";",3)
 Q
 ;
 ;
DTM ; $ZB ($KEY) values for DTM
 F I=2:1 S X=$TR($T(KBD+I)," ","") Q:$P(X,";",3)="ZZZ"  D
 . S @("^XUTL(""XGKB"",$C("_$P(X,";",5)_"))=$P(X,"";"",3)")
 Q
 ;
 ;
KBD ; $KEY values for DSM, MSM, and DTM when using escape processing
 ; Key      ;DSM ;DTM       (MSM is the same as DSM)
 ;;^A       ;1   ;1
 ;;^B       ;2   ;2
 ;;^C       ;3   ;3
 ;;^D       ;4   ;4
 ;;^E       ;5   ;5
 ;;^F       ;6   ;6
 ;;^G       ;7   ;7
 ;;^H       ;8   ;8
 ;;TAB      ;9   ;9
 ;;^J       ;10  ;10
 ;;^K       ;11  ;11
 ;;^L       ;12  ;12
 ;;CR       ;13  ;13
 ;;^N       ;14  ;14
 ;;^O       ;15  ;15
 ;;^P       ;16  ;16
 ;;^Q       ;17  ;17
 ;;^R       ;18  ;18
 ;;^S       ;19  ;19
 ;;^T       ;20  ;20
 ;;^U       ;21  ;21
 ;;^V       ;22  ;22
 ;;^W       ;23  ;23
 ;;^X       ;24  ;24
 ;;^Y       ;25  ;25
 ;;^Z       ;26  ;26
 ;;^\       ;28  ;28
 ;;^]       ;29  ;29
 ;;^6       ;30  ;30
 ;;^_       ;31  ;31
 ;;KP0      ;0   ;27,79,112
 ;;KP1      ;1   ;27,79,113
 ;;KP2      ;2   ;27,79,114
 ;;KP3      ;3   ;27,79,115
 ;;KP4      ;4   ;27,79,116
 ;;KP5      ;5   ;27,79,117
 ;;KP6      ;6   ;27,79,118
 ;;KP7      ;7   ;27,79,119
 ;;KP8      ;8   ;27,79,120
 ;;KP9      ;9   ;27,79,121
 ;;UP       ;17  ;27,91,65
 ;;DOWN     ;18  ;27,91,66
 ;;RIGHT    ;19  ;27,91,67
 ;;LEFT     ;20  ;27,91,68
 ;;FIND     ;21  ;27,91,49,126
 ;;INSERT   ;22  ;27,91,50,126
 ;;REMOVE   ;23  ;27,91,51,126
 ;;SELECT   ;24  ;27,91,52,126
 ;;PREV     ;25  ;27,91,53,126
 ;;NEXT     ;26  ;27,91,54,126
 ;;KPENTER  ;29  ;27,79,77
 ;;PF1      ;32  ;27,79,80
 ;;PF2      ;33  ;27,79,81
 ;;PF3      ;34  ;27,79,82
 ;;PF4      ;35  ;27,79,83
 ;;F6       ;37  ;27,91,49,55,126
 ;;F7       ;38  ;27,91,49,56,126
 ;;F8       ;39  ;27,91,49,57,126
 ;;F9       ;40  ;27,91,50,48,126
 ;;F10      ;41  ;27,91,50,49,126
 ;;F11      ;43  ;27,91,50,51,126
 ;;F12      ;44  ;27,91,50,52,126
 ;;F13      ;45  ;27,91,50,53,126
 ;;F14      ;46  ;27,91,50,54,126
 ;;HELP     ;48  ;27,91,50,56,126
 ;;DO       ;49  ;27,91,50,57,126
 ;;F17      ;51  ;27,91,51,49,126
 ;;F18      ;52  ;27,91,51,50,126
 ;;F19      ;53  ;27,91,51,51,126
 ;;F20      ;54  ;27,91,51,52,126
 ;;KP-      ;60  ;27,79,109
 ;;KP+      ;61  ;27,79,108
 ;;KP.      ;62  ;27,79,110
 ;;ZZZ