BEGIN leftb, bothB, rightb, leftM, rightM, upM, downM, 50, 50

;------------------------------LEFT BUTTON-----------------------------------

leftb:  MATCH 13,32,,"EXIT",yes,return

;-----------------------------BOTH BUTTONS ----------------------------------

bothB:  execute main

;-----------------------------RIGHT BUTTON ----------------------------------

rightb:   match 13,32,,"Exit",no,escape

;------------------------------LEFT MOTION-----------------------------------

leftM:   MATCH 3,1,,"ASDSDDFD",NUL,LEFT

;------------------------------RIGHT MOTION----------------------------------
rightM:   MATCH 3,1,,"QWERTRYU",NUL,RIGHT

;------------------------------UP MOTION-------------------------------------

upM:    MATCH 7,26,,"QWERTYU",NUL,UP
;------------------------------DOWN MOTION-----------------------------------

downM:    MATCH 2,3,,"QWERTYU",NUL,DOWN
;------------------------------MENUS-----------------------------------------

MAIN:   popup 1,17,23

text "еЭЭЕ TFE (Telix Fon Ed) v2.20 Command Mouse Menu  ЦЭЭИ"
text "Г QUIT MENU......Return to command level or on line. Г"
text "Г                                                    Г"
text "Г             --- Marking Functions ---              Г"
text "Г Mark/Unmark.......Ctrl-M  Mark Range........Ctrl-K Г"
text "Г Translate.........Ctrl-T  Unmark Range......Ctrl-U Г"
text "Г                                                    Г"
text "Г             --- Editor  Functions ---              Г"
text "Г Add................Alt-A  Block..............Alt-B Г"
text "Г Copy...............Alt-C  Delete.............Alt-D Г"
text "Г Export.............Alt-E  Find...............Alt-F Г"
text "Г Import.............Alt-I  Load...............Alt-L Г"
text "Г Move...............Alt-M  Print..............Alt-P Г"
text "Г Replace............Alt-R  Sort...............Alt-S Г"
text "Г Write..............Alt-W  eXit...............Alt-X Г"
text "Г                                                    Г"
text "Г              --- Other Functions ---               Г"
text "Г Help...............Alt-Z  Menu (if available)...F1 Г"
text "Г Edit TFE Data.........F2  Delete Duplicates.....F3 Г"
text "Г Begin/End Macro.......F7  Play Back Macro.......F8 Г"
text "Г                                                    Г"
text "Г  Left-yes/select     Both-menu    Right-escape/no  Г"
text "дЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭО"
select 2,3,50,nul
select 5,3,24,CTRLkM
select 6,3,24,CTRLkT
select 5,29,24,CTRLkK
select 6,29,24,CTRLkU
select 9,3,24,ALTkA
select 10,3,24,ALTkC
select 11,3,24,ALTkE
select 12,3,24,ALTkI
select 13,3,24,ALTkM
select 14,3,24,ALTkR
select 15,3,24,ALTkW
select 9,29,24,ALTkB
select 10,29,24,ALTkD
select 11,29,24,ALTkF
select 12,29,24,ALTkL
select 13,29,24,ALTkP
select 14,29,24,ALTkS
select 15,29,24,ALTkX
select 18,3,24,ALTkZ
select 19,3,24,F2
select 20,3,24,F7
select 18,29,24,F1
select 19,29,24,F3
select 20,29,24,F8

pend

;------------------------------KEYS------------------------------------------

NUL:           NOTHING
RETURN:        TYPE 13
ESCAPE:        TYPE 27
CANCEL:        TYPE 27
REVM:      TYPE "R"
LOADM:     TYPE "L"
SAVM:      TYPE "S"
CLRM:      TYPE "C"
EXITM:     TYPE 27
ESCRES:      EXECUTE ESCAPE
EXITY:       EXECUTE YES
EXITN:       EXECUTE NO
EXIT:        EXECUTE NOMOT,ALTkX
NOMOT:      ASSIGN leftb,rightb,bothB
YES:        TYPE "Y"
NO:         TYPE "N"
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
ALTkA:         TYPE 0,30
ALTkB:         TYPE 0,48
ALTkC:         TYPE 0,46
ALTkD:         TYPE 0,32
ALTkE:         TYPE 0,18
ALTkF:         TYPE 0,33
ALTkG:         TYPE 0,34
ALTkH:         TYPE 0,35
ALTkI:         TYPE 0,23
ALTkJ:         TYPE 0,36
ALTkK:         TYPE 0,37
ALTkL:         TYPE 0,38
ALTkM:         TYPE 0,50
ALTkN:         TYPE 0,49
ALTkO:         TYPE 0,24
ALTkP:         TYPE 0,25
ALTkQ:         TYPE 0,16
ALTkR:         TYPE 0,19
ALTkS:         TYPE 0,31
ALTkT:         TYPE 0,20
ALTkU:         TYPE 0,22
ALTkV:         TYPE 0,47
ALTkW:         TYPE 0,17
ALTkX:         TYPE 0,45
ALTkY:         TYPE 0,21
ALTkZ:         TYPE 0,44
ALTk0:         TYPE 0,129
ALTk1:         TYPE 0,120
ALTk2:         TYPE 0,121
ALTk3:         TYPE 0,122
ALTk4:         TYPE 0,123
ALTk5:         TYPE 0,124
ALTk6:         TYPE 0,125
ALTk7:         TYPE 0,126
ALTk8:         TYPE 0,127
ALTk9:         TYPE 0,128
CTRLkK:        TYPE 11
CTRLkM:        TYPE 13
CTRLkT:        TYPE 20
CTRLkU:        TYPE 21
CTRLkPRTSC:    TYPE 0,114
CTRLkEND:      TYPE 0,117
SHIFTkTAB:     TYPE 0,15

HOME:          TYPE 0,71
END:           TYPE 0,79
ENDHOME:       TYPE 0,79,0,71
BKTB:          TYPE 0,15
TB:            TYPE 9
PGUP:          TYPE 0,73
PGDN:          TYPE 0,81
LEFT:          TYPE 0,75
RIGHT:         TYPE 0,77
UP:            TYPE 0,72
DOWN:          TYPE 0,80
SPACE:         TYPE 32
A:             TYPE 65
B:             TYPE 66
C:             TYPE 67

