;              * * * Microsoft Mouse Menu Program for PC-Write * * *

;               modified by Diana Sill for Version 2.7, October 1986 
;                          (special thanks to Tom Bowden)

BEGIN lftbtn,rtbtn,btbtn,lfmtn,rtmtn,upmtn,dnmtn,40,28

;LEFT BUTTON OPTIONS:
lftbtn: MATCH 1,15,,"MARKED",keyf5,lftbtn2        ;if MARKED, clear marking 
lftbtn2: MATCH 1,15,,"Marking",keyf3,lftbtn3      ;if Marking, freeze to MARKED
lftbtn3: MATCH 1,1,,"Esc:Menu",keyf3,lftbtn4      ;turn on marking
lftbtn4: MATCH 1,1,,"Esc:cancel",choose,lftbtn5   ;at main menu, act as ENTER 
lftbtn5: MATCH 1,1,,"Esc ",choose,lftbtn6         ;at submenus, act as ENTER
lftbtn6: MATCH 1,1,,"Search",choose,lftbtn7       ;at dir prompt, act as ENTER
lftbtn7: MATCH 1,1,,"File",choose,lftbtn8         ;at file prompt, act as ENTER
lftbtn8: MATCH 1,1,,"Waiting",choose,lftbtn9      ;at print menu, act as ENTER
lftbtn9: MATCH 1,1,,"Esc:Exit",keyf10,nul         ;at print prompt, as as F10
choose: EXECUTE keyenter
nul: NOTHING

;RIGHT BUTTON OPTIONS:
rtbtn: EXECUTE keyesc                       ;right button always acts as Esc key

;BOTH BUTTONS OPTIONS:
btbtn:  EXECUTE gethelp
gethelp: MATCH 1,5,,"Menu",help1,gethelp2     ;while editing, get help screen
help1: EXECUTE keyesc,keyf1,keyf1
gethelp2: MATCH 1,5,,"can",help2,gethelp3     ;at main menu, get help screen
help2: EXECUTE keyf1,keyf1
gethelp3: MATCH 1,5,,"F",help3,gethelp4       ;at submenus, get help screen
help3: EXECUTE keyf1
gethelp4: MATCH 1,6,,"Help off",helpoff,other ;at help screen, return to editing
helpoff: EXECUTE keyf1
other: EXECUTE keyf1                          ;at prompts, get help screen

;LEFT MOTION: 
lfmtn: MATCH 1,5,,"Me",lfmtn2,lfmtn3 
lfmtn2: EXECUTE hsen,lf                       ;high sensitivity for Edit screen
lfmtn3: EXECUTE lsen,lf                       ;low sensitivity for Menus
;RIGHT MOTION: 
rtmtn: MATCH 1,5,,"Me",rtmtn2,rtmtn3 
rtmtn2: EXECUTE hsen,rt 
rtmtn3: EXECUTE lsen,rt 
;UP MOTION: 
upmtn: MATCH 1,5,,"Me",upmtn2,upmtn3 
upmtn2: EXECUTE hsen,up 
upmtn3: EXECUTE lsen,up 
;DOWN MOTION: 
dnmtn: MATCH 1,5,,"Me",dnmtn2,dnmtn3 
dnmtn2: EXECUTE hsen,dn 
dnmtn3: EXECUTE lsen,dn 

;CURSOR MOVEMENT:
lf:   TYPE 0,75
rt:   TYPE 0,77
up:   TYPE 0,72
dn:   TYPE 0,80
;SENSITIVITY:
hsen: assign ,,,,,,,4,8
lsen: assign ,,,,,,,40,28
;KEY DEFINITIONS:
keyesc: TYPE esc
keyenter: TYPE enter
keyf1: TYPE 0,59
keyf3: TYPE 0,61
keyf5: TYPE 0,63
keyf10: TYPE 0,68