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