; 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
