Microsoft Programmer's Library 1.3/Microsoft-Programers-Library-v1.3.iso/sampcode/mouse/sources/kbd.def

Text File | 1988-08-11 | 26.7 KB | 1,043 lines

;    SAMPLE Microsoft Mouse `KEYBOARD EMULATION' MENU
;
; NOTE: Please review the comments below before you compile
;       and use this source file as a mouse menu.
;
; This menu is designed to provide a partial keyboard
; emulation.  Not all usable keystrokes are emulated.
; The <ALT> and <SHIFT> function keys are not implemented.
; <CTRL> plus PrtSc, Home, the left or right cursor key,
; End, and PgDn are not implemented.  <ALT> plus 1 through
; 9, -, =, and uppercase ASCII are also not implemented.
;
; Most of the SELECT statements (except in the
; case of the function keys) work from single screen
; locations.  You can modify the third SELECT parameter to
; specify wider selection fields.  However, make sure each
; screen position does not have more than one SELECT
; statement defining it.

; This menu is displayed when you click a mouse button.
; Double clicking a menu item puts the selected character
; into the keyboard buffer, then reactivates the menu.

; Please note that the 'control character' menu shown below
; will send ANY ASCII control code to the console.  Use of
; some codes under certain programs may cause operational
; difficulties.  In particular, use the 'SUB' code
; carefully.  SUB is the normal 'end-of-file' marker, or
; 'control-Z.'  Sending this code to the console (display)
; within an application that is performing stream I/O to the
; standard output device (CON or 'stdout') may terminate
; communications.
;
; This menu has been provided for illustrative purposes,
; and is not intended as a replacement for the keyboard.
; It is not efficient for typing anything but the simplest
; character sequences.
;
;
BEGIN nulx,ctrl,nula

nulx:      execute kpop          ;run the 'keyboard' menu if the
                                 ;left button was clicked
ctrl:      execute cpop          ;run the 'control keys' menu if
                                 ;the right button was clicked
nula:      execute gpop          ;run the 'graphics' character menu
                                 ;if both buttons were clicked.

kpop: POPUP 2,40,NORMAL          ;this is the 'keyboard' menu
      text "╔════╦════╤════╦═══════╦═══╦════╗"
      text "║quit║Ctrl│Symb║ Enter ║Ins║Del ║"
      text "╠═╤═╤╩╤═╤═╪═╤═╤╩╤═╤═╤═╤╩╤═╤╩╤═╤═╣"
      text "║@│A│B│C│D│E│F│G│H│I│J│K│L│M│N│O║"
      text "║P│Q│R│S│T│U│V│W│X│Y│Z│[│\│^│]│^║"
      text "║`│a│b│c│d│e│f│g│h│i│j│k│l│m│n│o║"
      text "║p│q│r│s│t│u│v│w│x│y│z│{│|│}│~│·║"
      text "║─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴╔╧═╧═╣"
      text "║         spacebar         ║ BS ║"
      text "║─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬╚╤═╤═╣"
      text "║ │!│ │#│$│%│&│'│(│)│*│+│,│-│.│/║"
      text "║0│1│2│3│4│5│6│7│8│9│:│;│<│=│>│?║"
      text "║═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╣"
      text "║ h  p │ f1  f2  f3  f4  f5    ║"
      text "║  ·  │ f6  f8  f8  f9  f10   ║"
      text "║ e  d ╔═══════════════════════╝"
      text "╚═══════╝"
                                 ;here are the SELECT statements
                                 ;for the 'keyboard' menu.
      select 2,2,1,quit
      select 2,3,1,quit
      select 2,4,1,quit
      select 2,5,1,quit
      select 2,6,1,nulx
      select 2,7,1,ctrl
      select 2,8,1,ctrl
      select 2,9,1,ctrl
      select 2,10,1,ctrl
      select 2,11,1,nulx
      select 2,12,1,nula
      select 2,13,1,nula
      select 2,14,1,nula
      select 2,15,1,nula
      select 2,16,1,nulx
      select 2,17,1,x13
      select 2,18,1,x13
      select 2,19,1,x13
      select 2,20,1,x13
      select 2,21,1,x13
      select 2,22,1,x13
      select 2,23,1,x13
      select 2,24,1,nulx
      select 2,25,1,ins
      select 2,26,1,ins
      select 2,27,1,ins
      select 2,28,1,nulx
      select 2,29,1,del
      select 2,30,1,del
      select 2,31,1,del
      select 2,32,1,nulx
      select 3,2,1,nulx
      select 3,3,1,nulx
      select 3,4,1,nulx
      select 3,5,1,nulx
      select 3,6,1,nulx
      select 3,7,1,nulx
      select 3,8,1,nulx
      select 3,9,1,nulx
      select 3,10,1,nulx
      select 3,11,1,nulx
      select 3,12,1,nulx
      select 3,13,1,nulx
      select 3,14,1,nulx
      select 3,15,1,nulx
      select 3,16,1,nulx
      select 3,17,1,nulx
      select 3,18,1,nulx
      select 3,19,1,nulx
      select 3,20,1,nulx
      select 3,21,1,nulx
      select 3,22,1,nulx
      select 3,23,1,nulx
      select 3,24,1,nulx
      select 3,25,1,nulx
      select 3,26,1,nulx
      select 3,27,1,nulx
      select 3,28,1,nulx
      select 3,29,1,nulx
      select 3,30,1,nulx
      select 3,31,1,nulx
      select 3,32,1,nulx
      select 4,2,1,x64
      select 4,3,1,nulx
      select 4,4,1,x65
      select 4,5,1,nulx
      select 4,6,1,x66
      select 4,7,1,nulx
      select 4,8,1,x67
      select 4,9,1,nulx
      select 4,10,1,x68
      select 4,11,1,nulx
      select 4,12,1,x69
      select 4,13,1,nulx
      select 4,14,1,x70
      select 4,15,1,nulx
      select 4,16,1,x71
      select 4,17,1,nulx
      select 4,18,1,x72
      select 4,19,1,nulx
      select 4,20,1,x73
      select 4,21,1,nulx
      select 4,22,1,x74
      select 4,23,1,nulx
      select 4,24,1,x75
      select 4,25,1,nulx
      select 4,26,1,x76
      select 4,27,1,nulx
      select 4,28,1,x77
      select 4,29,1,nulx
      select 4,30,1,x78
      select 4,31,1,nulx
      select 4,32,1,x79
      select 5,2,1,x80
      select 5,3,1,nulx
      select 5,4,1,x81
      select 5,5,1,nulx
      select 5,6,1,x82
      select 5,7,1,nulx
      select 5,8,1,x83
      select 5,9,1,nulx
      select 5,10,1,x84
      select 5,11,1,nulx
      select 5,12,1,x85
      select 5,13,1,nulx
      select 5,14,1,x86
      select 5,15,1,nulx
      select 5,16,1,x87
      select 5,17,1,nulx
      select 5,18,1,x88
      select 5,19,1,nulx
      select 5,20,1,x89
      select 5,21,1,nulx
      select 5,22,1,x90
      select 5,23,1,nulx
      select 5,24,1,x91
      select 5,25,1,nulx
      select 5,26,1,x92
      select 5,27,1,nulx
      select 5,28,1,x93
      select 5,29,1,nulx
      select 5,30,1,x94
      select 5,31,1,nulx
      select 5,32,1,x95
      select 6,2,1,x96
      select 6,3,1,nulx
      select 6,4,1,x97
      select 6,5,1,nulx
      select 6,6,1,x98
      select 6,7,1,nulx
      select 6,8,1,x99
      select 6,9,1,nulx
      select 6,10,1,x100
      select 6,11,1,nulx
      select 6,12,1,x101
      select 6,13,1,nulx
      select 6,14,1,x102
      select 6,15,1,nulx
      select 6,16,1,x103
      select 6,17,1,nulx
      select 6,18,1,x104
      select 6,19,1,nulx
      select 6,20,1,x105
      select 6,21,1,nulx
      select 6,22,1,x106
      select 6,23,1,nulx
      select 6,24,1,x107
      select 6,25,1,nulx
      select 6,26,1,x108
      select 6,27,1,nulx
      select 6,28,1,x109
      select 6,29,1,nulx
      select 6,30,1,x110
      select 6,31,1,nulx
      select 6,32,1,x111
      select 7,2,1,x112
      select 7,3,1,nulx
      select 7,4,1,x113
      select 7,5,1,nulx
      select 7,6,1,x114
      select 7,7,1,nulx
      select 7,8,1,x115
      select 7,9,1,nulx
      select 7,10,1,x116
      select 7,11,1,nulx
      select 7,12,1,x117
      select 7,13,1,nulx
      select 7,14,1,x118
      select 7,15,1,nulx
      select 7,16,1,x119
      select 7,17,1,nulx
      select 7,18,1,x120
      select 7,19,1,nulx
      select 7,20,1,x121
      select 7,21,1,nulx
      select 7,22,1,x122
      select 7,23,1,nulx
      select 7,24,1,x123
      select 7,25,1,nulx
      select 7,26,1,x124
      select 7,27,1,nulx
      select 7,28,1,x125
      select 7,29,1,nulx
      select 7,30,1,x126
      select 7,31,1,nulx
      select 7,32,1,x127
      select 8,2,1,nulx
      select 8,3,1,nulx
      select 8,4,1,nulx
      select 8,5,1,nulx
      select 8,6,1,nulx
      select 8,7,1,nulx
      select 8,8,1,nulx
      select 8,9,1,nulx
      select 8,10,1,nulx
      select 8,11,1,nulx
      select 8,12,1,nulx
      select 8,13,1,nulx
      select 8,14,1,nulx
      select 8,15,1,nulx
      select 8,16,1,nulx
      select 8,17,1,nulx
      select 8,18,1,nulx
      select 8,19,1,nulx
      select 8,20,1,nulx
      select 8,21,1,nulx
      select 8,22,1,nulx
      select 8,23,1,nulx
      select 8,24,1,nulx
      select 8,25,1,nulx
      select 8,26,1,nulx
      select 8,27,1,nulx
      select 8,28,1,nulx
      select 8,29,1,nulx
      select 8,30,1,nulx
      select 8,31,1,nulx
      select 8,32,1,nulx
      select 9,2,1,x32
      select 9,3,1,x32
      select 9,4,1,x32
      select 9,5,1,x32
      select 9,6,1,x32
      select 9,7,1,x32
      select 9,8,1,x32
      select 9,9,1,x32
      select 9,10,1x32
      select 9,11,1,x32
      select 9,12,1,x32
      select 9,13,1,x32
      select 9,14,1,x32
      select 9,15,1,x32
      select 9,16,1,x32
      select 9,17,1,x32
      select 9,18,1,x32
      select 9,19,1,x32
      select 9,20,1,x32
      select 9,21,1,x32
      select 9,22,1,x32
      select 9,23,1,x32
      select 9,24,1,x32
      select 9,25,1,x32
      select 9,26,1,x32
      select 9,27,1,x32
      select 9,28,1,nulx
      select 9,29,1,x8
      select 9,30,1,x8
      select 9,31,1,x8
      select 9,32,1,x8
      select 10,2,1,nulx
      select 10,3,1,nulx
      select 10,4,1,nulx
      select 10,5,1,nulx
      select 10,6,1,nulx
      select 10,7,1,nulx
      select 10,8,1,nulx
      select 10,9,1,nulx
      select 10,10,1,nulx
      select 10,11,1,nulx
      select 10,12,1,nulx
      select 10,13,1,nulx
      select 10,14,1,nulx
      select 10,15,1,nulx
      select 10,16,1,nulx
      select 10,17,1,nulx
      select 10,18,1,nulx
      select 10,19,1,nulx
      select 10,20,1,nulx
      select 10,21,1,nulx
      select 10,22,1,nulx
      select 10,23,1,nulx
      select 10,24,1,nulx
      select 10,25,1,nulx
      select 10,26,1,nulx
      select 10,27,1,nulx
      select 10,28,1,nulx
      select 10,29,1,nulx
      select 10,30,1,nulx
      select 10,31,1,nulx
      select 10,32,1,nulx
      select 11,2,1,x32
      select 11,3,1,nulx
      select 11,4,1,x33
      select 11,5,1,nulx
      select 11,6,1,x34
      select 11,7,1,nulx
      select 11,8,1,x35
      select 11,9,1,nulx
      select 11,10,1,x36
      select 11,11,1,nulx
      select 11,12,1,x37
      select 11,13,1,nulx
      select 11,14,1,x38
      select 11,15,1,nulx
      select 11,16,1,x39
      select 11,17,1,nulx
      select 11,18,1,x40
      select 11,19,1,nulx
      select 11,20,1,x41
      select 11,21,1,nulx
      select 11,22,1,x42
      select 11,23,1,nulx
      select 11,24,1,x43
      select 11,25,1,nulx
      select 11,26,1,x44
      select 11,27,1,nulx
      select 11,28,1,x45
      select 11,29,1,nulx
      select 11,30,1,x46
      select 11,31,1,nulx
      select 11,32,1,x47
      select 12,2,1,x48
      select 12,3,1,nulx
      select 12,4,1,x49
      select 12,5,1,nulx
      select 12,6,1,x50
      select 12,7,1,nulx
      select 12,8,1,x51
      select 12,9,1,nulx
      select 12,10,1,x52
      select 12,11,1,nulx
      select 12,12,1,x53
      select 12,13,1,nulx
      select 12,14,1,x54
      select 12,15,1,nulx
      select 12,16,1,x55
      select 12,17,1,nulx
      select 12,18,1,x56
      select 12,19,1,nulx
      select 12,20,1,x57
      select 12,21,1,nulx
      select 12,22,1,x58
      select 12,23,1,nulx
      select 12,24,1,x59
      select 12,25,1,nulx
      select 12,26,1,x60
      select 12,27,1,nulx
      select 12,28,1,x61
      select 12,29,1,nulx
      select 12,30,1,x62
      select 12,31,1,nulx
      select 12,32,1,x63
      select 13,2,1,nulx
      select 13,3,1,nulx
      select 13,4,1,nulx
      select 13,5,1,nulx
      select 13,6,1,nulx
      select 13,7,1,nulx
      select 13,8,1,nulx
      select 13,9,1,nulx
      select 13,10,1,nulx
      select 13,11,1,nulx
      select 13,12,1,nulx
      select 13,13,1,nulx
      select 13,14,1,nulx
      select 13,15,1,nulx
      select 13,16,1,nulx
      select 13,17,1,nulx
      select 13,18,1,nulx
      select 13,19,1,nulx
      select 13,20,1,nulx
      select 13,21,1,nulx
      select 13,22,1,nulx
      select 13,23,1,nulx
      select 13,24,1,nulx
      select 13,25,1,nulx
      select 13,26,1,nulx
      select 13,27,1,nulx
      select 13,28,1,nulx
      select 13,29,1,nulx
      select 13,30,1,nulx
      select 13,31,1,nulx
      select 13,32,1,nulx
      select 14,2,1,nulx
      select 14,3,1,home
      select 14,4,1,nulx
      select 14,5,1,upcur
      select 14,6,1,nulx
      select 14,7,1,pgup
      select 14,8,1,nulx
      select 14,9,1,nulx
      select 14,10,1,nulx
      select 14,11,3,f1
      select 14,14,1,nulx,
      select 14,15,3,f2
      select 14,18,1,nulx
      select 14,19,3,f3
      select 14,22,1,nulx
      select 14,23,3,f4
      select 14,26,1,nulx
      select 14,27,3,f5
      select 14,30,1,nulx
      select 14,31,1,nulx
      select 14,32,1,nulx
      select 15,2,1,nulx
      select 15,3,1,lcurs
      select 15,4,1,nulx
      select 15,5,1,ncurs
      select 15,6,1,nulx
      select 15,7,1,rcurs
      select 15,8,1,nulx
      select 15,9,1,nulx
      select 15,10,1,nulx
      select 15,11,3,f6
      select 15,14,1,nulx,
      select 15,15,3,f7
      select 15,18,1,nulx
      select 15,19,3,f8
      select 15,22,1,nulx
      select 15,23,3,f9
      select 15,26,1,nulx
      select 15,27,3,f10
      select 15,30,1,nulx
      select 15,31,1,nulx
      select 15,32,1,nulx
      select 16,2,1,nulx
      select 16,3,1,endx
      select 16,4,1,nulx
      select 16,5,1,dcurs
      select 16,6,1,nulx
      select 16,7,1,pgdn
      select 16,8,1,nulx
      PEND

cpop: POPUP 2,40,NORMAL          ;this is the 'control keys' menu
      text "   ╔════╦════╦════╗"
      text "   ║quit║Kybd║Symb║"
      text "╔══╬════╩════╬═══╦╝"
      text "║ 0║ NUL DLE ║ 10║"
      text "║ 1║ SOH DC1 ║ 11║"
      text "║ 2║ STX DC2 ║ 12║"
      text "║ 3║ ETX DC3 ║ 13║"
      text "║ 4║ EOT DC4 ║ 14║"
      text "║ 5║ ENQ NAK ║ 15║"
      text "║ 6║ ACK SYN ║ 16║"
      text "║ 7║ BEL ETB ║ 17║"
      text "║ 8║  BS CAN ║ 18║"
      text "║ 9║  HT  EM ║ 19║"
      text "║ A║  LF SUB ║ 1A║"
      text "║ B║  VT ESC ║ 1B║"
      text "║ C║  FF  FS ║ 1C║"
      text "║ D║  CR  GS ║ 1D║"
      text "║ E║  SO  RS ║ 1E║"
      text "║ F║  SI  US ║ 1F║"
      text "╚══╩═════════╩═══╝"
                                 ;here are the SELECT statements
                                 ;for the 'control keys' menu.
      select 2,5,4,quit
      select 2,9,1,ctrl
      select 2,10,4,nulx
      select 2,14,1,ctrl
      select 2,15,4,nula
      select 3,5,4,ctrl
      select 3,9,1,ctrl
      select 3,10,4,ctrl
      select 4,5,4,x0
      select 4,9,1,ctrl
      select 4,10,4,x16
      select 5,5,4,x1
      select 5,9,1,ctrl
      select 5,10,4,x17
      select 6,5,4,x2
      select 6,9,1,ctrl
      select 6,10,4,x18
      select 7,5,4,x3
      select 7,9,1,ctrl
      select 7,10,4,x19
      select 8,5,4,x4
      select 8,9,1,ctrl
      select 8,10,4,x20
      select 9,5,4,x5
      select 9,9,1,ctrl
      select 9,10,4,x21
      select 10,5,4,x6
      select 10,9,1,ctrl
      select 10,10,4,x22
      select 11,5,4,x7
      select 11,9,1,ctrl
      select 11,10,4,x23
      select 11,19,3,f8
      select 12,5,4,x8
      select 12,9,1,ctrl
      select 12,10,4,x24
      select 13,5,4,x9
      select 13,9,1,ctrl
      select 13,10,4,x25
      select 14,5,4,x10
      select 14,9,1,ctrl
      select 14,10,4,x26
      select 15,5,4,x11
      select 15,9,1,ctrl
      select 15,10,4,x27
      select 16,5,4,x12
      select 16,9,1,ctrl
      select 16,10,4,x28
      select 17,5,4,x13
      select 17,9,1,ctrl
      select 17,10,4,x29
      select 18,5,4,x14
      select 18,9,1,ctrl
      select 18,10,4,x30
      select 19,5,4,x15
      select 19,9,1,ctrl
      select 19,10,4,x31
      PEND

gpop: POPUP 2,40,NORMAL          ;here is the 'graphics character' menu
      text "╔════╦══════════╤═════════╤═════╗"
      text "║quit║ Keyboard │ Control │Enter║"
      text "╠═╤═╤╩╤═╤═╤═╤═╤═╪═╤═╤═╤═╤═╪═╤═╤═╣"
      text "║Ç│ü│é│â│ä│à│å│ç│ê│ë│è│ï│î│ì│Ä│Å║"
      text "║É│æ│Æ│ô│ö│ò│û│ù│ÿ│Ö│Ü│¢│£│¥│₧│ƒ║"
      text "║á│í│ó│ú│ñ│Ñ│ª│º│¿│⌐│¬│½│¼│¡│«│»║"
      text "║α│ß│Γ│π│Σ│σ│µ│τ│Φ│Θ│Ω│δ│∞│φ│ε│∩║"
      text "║≡│±│≥│≤│⌠│⌡│÷│≈│°│∙│·│√│ⁿ│²│■│ ║"
      text "╚═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╝"
                                 ;here are the SELECT statements
                                 ;for the 'graphics character' menu.
      select 2,2,1,quit
      select 2,3,1,quit
      select 2,4,1,quit
      select 2,5,1,quit
      select 2,6,1,nula
      select 2,7,1,nulx
      select 2,8,1,nulx
      select 2,9,1,nulx
      select 2,10,1,nulx
      select 2,11,1,nulx
      select 2,12,1,nulx
      select 2,13,1,nulx
      select 2,14,1,nulx
      select 2,15,1,nulx
      select 2,16,1,nulx
      select 2,17,1,nula
      select 2,18,1,ctrl
      select 2,19,1,ctrl
      select 2,20,1,ctrl
      select 2,21,1,ctrl
      select 2,22,1,ctrl
      select 2,23,1,ctrl
      select 2,24,1,ctrl
      select 2,25,1,ctrl
      select 2,26,1,ctrl
      select 2,27,1,nula
      select 2,28,1,x13
      select 2,29,1,x13
      select 2,30,1,x13
      select 2,31,1,x13
      select 2,32,1,x13
      select 3,2,1,nula
      select 3,3,1,nula
      select 3,4,1,nula
      select 3,5,1,nula
      select 3,6,1,nula
      select 3,7,1,nula
      select 3,8,1,nula
      select 3,9,1,nula
      select 3,10,1,nula
      select 3,11,1,nula
      select 3,12,1,nula
      select 3,13,1,nula
      select 3,14,1,nula
      select 3,15,1,nula
      select 3,16,1,nula
      select 3,17,1,nula
      select 3,18,1,nula
      select 3,19,1,nula
      select 3,20,1,nula
      select 3,21,1,nula
      select 3,22,1,nula
      select 3,23,1,nula
      select 3,24,1,nula
      select 3,25,1,nula
      select 3,26,1,nula
      select 3,27,1,nula
      select 3,28,1,nula
      select 3,29,1,nula
      select 3,30,1,nula
      select 3,31,1,nula
      select 3,32,1,nula
      select 4,2,1,x128
      select 4,3,1,nula
      select 4,4,1,x129
      select 4,5,1,nula
      select 4,6,1,x130
      select 4,7,1,nula
      select 4,8,1,x131
      select 4,9,1,nula
      select 4,10,1,x132
      select 4,11,1,nula
      select 4,12,1,x133
      select 4,13,1,nula
      select 4,14,1,x134
      select 4,15,1,nula
      select 4,16,1,x135
      select 4,17,1,nula
      select 4,18,1,x136
      select 4,19,1,nula
      select 4,20,1,x137
      select 4,21,1,nula
      select 4,22,1,x138
      select 4,23,1,nula
      select 4,24,1,x139
      select 4,25,1,nula
      select 4,26,1,x140
      select 4,27,1,nula
      select 4,28,1,x141
      select 4,29,1,nula
      select 4,30,1,x142
      select 4,31,1,nula
      select 4,32,1,x143
      select 5,2,1,x144
      select 5,3,1,nula
      select 5,4,1,x145
      select 5,5,1,nula
      select 5,6,1,x146
      select 5,7,1,nula
      select 5,8,1,x147
      select 5,9,1,nula
      select 5,10,1,x148
      select 5,11,1,nula
      select 5,12,1,x149
      select 5,13,1,nula
      select 5,14,1,x150
      select 5,15,1,nula
      select 5,16,1,x151
      select 5,17,1,nula
      select 5,18,1,x152
      select 5,19,1,nula
      select 5,20,1,x153
      select 5,21,1,nula
      select 5,22,1,x154
      select 5,23,1,nula
      select 5,24,1,x155
      select 5,25,1,nula
      select 5,26,1,x156
      select 5,27,1,nula
      select 5,28,1,x157
      select 5,29,1,nula
      select 5,30,1,x158
      select 5,31,1,nula
      select 5,32,1,x159
      select 6,2,1,x160
      select 6,3,1,nula
      select 6,4,1,x161
      select 6,5,1,nula
      select 6,6,1,x162
      select 6,7,1,nula
      select 6,8,1,x163
      select 6,9,1,nula
      select 6,10,1,x164
      select 6,11,1,nula
      select 6,12,1,x165
      select 6,13,1,nula
      select 6,14,1,x166
      select 6,15,1,nula
      select 6,16,1,x167
      select 6,17,1,nula
      select 6,18,1,x168
      select 6,19,1,nula
      select 6,20,1,x169
      select 6,21,1,nula
      select 6,22,1,x170
      select 6,23,1,nula
      select 6,24,1,x171
      select 6,25,1,nula
      select 6,26,1,x172
      select 6,27,1,nula
      select 6,28,1,x173
      select 6,29,1,nula
      select 6,30,1,x174
      select 6,31,1,nula
      select 6,32,1,x175
      select 7,2,1,x224
      select 7,3,1,nula
      select 7,4,1,x225
      select 7,5,1,nula
      select 7,6,1,x226
      select 7,7,1,nula
      select 7,8,1,x227
      select 7,9,1,nula
      select 7,10,1,x228
      select 7,11,1,nula
      select 7,12,1,x229
      select 7,13,1,nula
      select 7,14,1,x230
      select 7,15,1,nula
      select 7,16,1,x231
      select 7,17,1,nula
      select 7,18,1,x232
      select 7,19,1,nula
      select 7,20,1,x233
      select 7,21,1,nula
      select 7,22,1,x234
      select 7,23,1,nula
      select 7,24,1,x235
      select 7,25,1,nula
      select 7,26,1,x236
      select 7,27,1,nula
      select 7,28,1,x237
      select 7,29,1,nula
      select 7,30,1,x238
      select 7,31,1,nula
      select 7,32,1,x239
      select 8,2,1,x240
      select 8,3,1,nula
      select 8,4,1,x241
      select 8,5,1,nula
      select 8,6,1,x242
      select 8,7,1,nula
      select 8,8,1,x243
      select 8,9,1,nula
      select 8,10,1,x244
      select 8,11,1,nula
      select 8,12,1,x245
      select 8,13,1,nula
      select 8,14,1,x246
      select 8,15,1,nula
      select 8,16,1,x247
      select 8,17,1,nula
      select 8,18,1,x248
      select 8,19,1,nula
      select 8,20,1,x249
      select 8,21,1,nula
      select 8,22,1,x250
      select 8,23,1,nula
      select 8,24,1,x251
      select 8,25,1,nula
      select 8,26,1,x252
      select 8,27,1,nula
      select 8,28,1,x253
      select 8,29,1,nula
      select 8,30,1,x254
      select 8,31,1,nula
      select 8,32,1,x255
      PEND

                           ;the following labels define all of
                           ;the keystrokes available within this
                           ;menu.  Note that the cursor and function
                           ;key TYPE statements are defining
                           ;extended key codes.  Definitions for these
                           ;extended key codes may be found in the
                           ;various MS-DOS computer 'Hardware
                           ;Technical Reference Manuals'.
quit:    nothing
upcur:   TYPE 0,72
dcurs:   TYPE 0,79
lcurs:   TYPE 0,75
rcurs:   TYPE 0,77
home:    TYPE 0,71
endx:    TYPE 0,79
pgup:    TYPE 0,73
pgdn:    TYPE 0,81
ncurs:   TYPE 0,76
ins:     TYPE 0,82
del:     TYPE 0,83
f1:      TYPE 0,59
f2:      TYPE 0,60
f3:      TYPE 0,61
f4:      TYPE 0,62
f5:      TYPE 0,63
f6:      TYPE 0,64
f7:      TYPE 0,65
f8:      TYPE 0,66
f9:      TYPE 0,67
f10:     TYPE 0,68
x0:      TYPE 0,3
x1:      TYPE 1
x2:      TYPE 2
x3:      TYPE 3
x4:      TYPE 4
x5:      TYPE 5
x6:      TYPE 6
x7:      TYPE 7
x8:      TYPE 8
x9:      TYPE 9
x10:     TYPE 10
x11:     TYPE 11
x12:     TYPE 12
x13:     TYPE 13
x14:     TYPE 14
x15:     TYPE 15
x16:     TYPE 16
x17:     TYPE 17
x18:     TYPE 18
x19:     TYPE 19
x20:     TYPE 20
x21:     TYPE 21
x22:     TYPE 22
x23:     TYPE 23
x24:     TYPE 24
x25:     TYPE 25
x26:     TYPE 26
x27:     TYPE 27
x28:     TYPE 28
x29:     TYPE 29
x30:     TYPE 30
x31:     TYPE 31
x32:     TYPE 32
x33:     TYPE 33
x34:     TYPE 34
x35:     TYPE 35
x36:     TYPE 36
x37:     TYPE 37
x38:     TYPE 38
x39:     TYPE 39
x40:     TYPE 40
x41:     TYPE 41
x42:     TYPE 42
x43:     TYPE 43
x44:     TYPE 44
x45:     TYPE 45
x46:     TYPE 46
x47:     TYPE 47
x48:     TYPE 48
x49:     TYPE 49
x50:     TYPE 50
x51:     TYPE 51
x52:     TYPE 52
x53:     TYPE 53
x54:     TYPE 54
x55:     TYPE 55
x56:     TYPE 56
x57:     TYPE 57
x58:     TYPE 58
x59:     TYPE 59
x60:     TYPE 60
x61:     TYPE 61
x62:     TYPE 62
x63:     TYPE 63
x64:     TYPE 64
x65:     TYPE 65
x66:     TYPE 66
x67:     TYPE 67
x68:     TYPE 68
x69:     TYPE 69
x70:     TYPE 70
x71:     TYPE 71
x72:     TYPE 72
x73:     TYPE 73
x74:     TYPE 74
x75:     TYPE 75
x76:     TYPE 76
x77:     TYPE 77
x78:     TYPE 78
x79:     TYPE 79
x80:     TYPE 80
x81:     TYPE 81
x82:     TYPE 82
x83:     TYPE 83
x84:     TYPE 84
x85:     TYPE 85
x86:     TYPE 86
x87:     TYPE 87
x88:     TYPE 88
x89:     TYPE 89
x90:     TYPE 90
x91:     TYPE 91
x92:     TYPE 92
x93:     TYPE 93
x94:     TYPE 94
x95:     TYPE 95
x96:     TYPE 96
x97:     TYPE 97
x98:     TYPE 98
x99:     TYPE 99
x100:    TYPE 100
x101:    TYPE 101
x102:    TYPE 102
x103:    TYPE 103
x104:    TYPE 104
x105:    TYPE 105
x106:    TYPE 106
x107:    TYPE 107
x108:    TYPE 108
x109:    TYPE 109
x110:    TYPE 110
x111:    TYPE 111
x112:    TYPE 112
x113:    TYPE 113
x114:    TYPE 114
x115:    TYPE 115
x116:    TYPE 116
x117:    TYPE 117
x118:    TYPE 118
x119:    TYPE 119
x120:    TYPE 120
x121:    TYPE 121
x122:    TYPE 122
x123:    TYPE 123
x124:    TYPE 124
x125:    TYPE 125
x126:    TYPE 126
x127:    TYPE 127
x128:    TYPE 128
x129:    TYPE 129
x130:    TYPE 130
x131:    TYPE 131
x132:    TYPE 132
x133:    TYPE 133
x134:    TYPE 134
x135:    TYPE 135
x136:    TYPE 136
x137:    TYPE 137
x138:    TYPE 138
x139:    TYPE 139
x140:    TYPE 140
x141:    TYPE 141
x142:    TYPE 142
x143:    TYPE 143
x144:    TYPE 144
x145:    TYPE 145
x146:    TYPE 146
x147:    TYPE 147
x148:    TYPE 148
x149:    TYPE 149
x150:    TYPE 150
x151:    TYPE 151
x152:    TYPE 152
x153:    TYPE 153
x154:    TYPE 154
x155:    TYPE 155
x156:    TYPE 156
x157:    TYPE 157
x158:    TYPE 158
x159:    TYPE 159
x160:    TYPE 160
x161:    TYPE 161
x162:    TYPE 162
x163:    TYPE 163
x164:    TYPE 164
x165:    TYPE 165
x166:    TYPE 166
x167:    TYPE 167
x168:    TYPE 168
x169:    TYPE 169
x170:    TYPE 170
x171:    TYPE 171
x172:    TYPE 172
x173:    TYPE 173
x174:    TYPE 174
x175:    TYPE 175
x224:    TYPE 224
x225:    TYPE 225
x226:    TYPE 226
x227:    TYPE 227
x228:    TYPE 228
x229:    TYPE 229
x230:    TYPE 230
x231:    TYPE 231
x232:    TYPE 232
x233:    TYPE 233
x234:    TYPE 234
x235:    TYPE 235
x236:    TYPE 236
x237:    TYPE 237
x238:    TYPE 238
x239:    TYPE 239
x240:    TYPE 240
x241:    TYPE 241
x242:    TYPE 242
x243:    TYPE 243
x244:    TYPE 244
x245:    TYPE 245
x246:    TYPE 246
x247:    TYPE 247
x248:    TYPE 248
x249:    TYPE 249
x250:    TYPE 250
x251:    TYPE 251
x252:    TYPE 252
x253:    TYPE 253
x254:    TYPE 254
x255:    TYPE 255