diff options
Diffstat (limited to 'v4.0/src/CMD/KEYB/KEYB.SKL')
| -rw-r--r-- | v4.0/src/CMD/KEYB/KEYB.SKL | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/v4.0/src/CMD/KEYB/KEYB.SKL b/v4.0/src/CMD/KEYB/KEYB.SKL new file mode 100644 index 0000000..7bb2b5c --- /dev/null +++ b/v4.0/src/CMD/KEYB/KEYB.SKL | |||
| @@ -0,0 +1,37 @@ | |||
| 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 2 | ; | ||
| 3 | ; Message Skeleton file for KEYB.COM | ||
| 4 | ; | ||
| 5 | ; Author: WGR | ||
| 6 | ; | ||
| 7 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 8 | |||
| 9 | :util KEYB ;AN000;ty name | ||
| 10 | :class 2 | ||
| 11 | :use PARSE1 ;AN000; | ||
| 12 | :use PARSE2 ;AN000; | ||
| 13 | :use PARSE3 ;AN000; | ||
| 14 | :use PARSE4 ;AN000; | ||
| 15 | :use PARSE6 ;AN000; | ||
| 16 | :use PARSE7 ;AN000; | ||
| 17 | :use PARSE10 ;AN003; | ||
| 18 | :class A | ||
| 19 | :use 1 COMMON1 ;AN000;rrect DOS version' | ||
| 20 | :def 2 "Current keyboard code: %1" ;AN000; | ||
| 21 | :def 3 "Current keyboard ID: %1" ;AN000; | ||
| 22 | :def 4 " code page: %1",CR,LF ;AN000; | ||
| 23 | :def 5 "Current CON code page: %1",CR,LF ;AN000; | ||
| 24 | :def 6 "Invalid keyboard code specified",CR,LF ;AN000; | ||
| 25 | :def 7 "Invalid keyboard ID specified",CR,LF ;AN000; | ||
| 26 | :def 8 "Invalid code page specified",CR,LF ;AN000; | ||
| 27 | :def 9 "Bad or missing Keyboard Definition File",CR,LF ;AN000; | ||
| 28 | :def 10 "KEYB has not been installed",CR,LF ;AN000; | ||
| 29 | :def 11 "Active code page not available from CON device",CR,LF ;AN000; | ||
| 30 | :def 12 "Code page specified has not been prepared",CR,LF ;AN000; | ||
| 31 | :def 13 "One or more CON code pages invalid for given keyboard code",CR,LF ;AN000; | ||
| 32 | :def 14 "Code page requested (%1) is not valid for given keyboard code",CR,LF ;AN000; | ||
| 33 | :def 15 "Code page specified is inconsistent with the selected code page",CR,LF ;AN000; | ||
| 34 | :def 16 "ID code specified is inconsistent with the selected keyboard code",CR,LF ;AN000; | ||
| 35 | :def 17 "Unable to create KEYB table in resident memory",CR,LF ;AN000; | ||
| 36 | :use 18 PARSE8 ; 'Parameter format not correct' ;AN000; | ||
| 37 | :end ;AN000; | ||