home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
wp2
/
pcw303-b.lzh
/
MICSMICE.DEF
< prev
next >
Wrap
Text File
|
1988-10-23
|
2KB
|
59 lines
;Microsoft Mouse Menu for PC-Write
BEGIN lftbtn,rtbtn,btbtn,lfmtn,rtmtn,upmtn,dnmtn,40,28
;LEFT BUTTON OPTIONS:
lftbtn: MATCH 1,15,,"MARKED",keyf5,lftbtn2 ;if MARKED, clear
lftbtn2: MATCH 1,15,,"Marking",keyf3,lftbtn3 ;if Marking, freeze
lftbtn3: MATCH 1,1,,"Esc:Menu",keyf3,lftbtn4 ;marking on
lftbtn4: MATCH 1,1,,"Esc:cancel",choose,lftbtn5 ;main menu, do ENTER
lftbtn5: MATCH 1,1,,"Esc ",choose,lftbtn6 ;submenus, do ENTER
lftbtn6: MATCH 1,1,,"Directory",choose,lftbtn7 ;dir prompt, do ENTER
lftbtn7: MATCH 1,1,,"File",choose,lftbtn8 ;file prompt, do ENTER
lftbtn8: MATCH 1,1,,"Waiting",choose,lftbtn9 ;print menu, do ENTER
lftbtn9: MATCH 1,1,,"Esc:Exit",keyf10,nul ;print prompt, do F10
choose: EXECUTE keyenter
nul: NOTHING
;RIGHT BUTTON OPTIONS:
rtbtn: EXECUTE keyesc ;right button always does Esc
;BOTH BUTTONS OPTIONS:
btbtn: EXECUTE gethelp
gethelp: MATCH 1,5,,"Menu",help1,gethelp2 ;when editing, get help
help1: EXECUTE keyesc,keyf1,keyf1
gethelp2: MATCH 1,5,,"can",help2,gethelp3 ;main menu, get help
help2: EXECUTE keyf1,keyf1
gethelp3: MATCH 1,5,,"F",help3,gethelp4 ;submenus, get help
help3: EXECUTE keyf1
gethelp4: MATCH 1,6,,"Help off",helpoff,other ;help screen, go to edit
helpoff: EXECUTE keyf1
other: EXECUTE keyf1 ;at prompts, get help
;LEFT MOTION:
lfmtn: MATCH 1,5,,"Me",lfmtn2,lfmtn3
lfmtn2: EXECUTE hsen,lf ;high sensitivity, Editing
lfmtn3: EXECUTE lsen,lf ;low sensitivity, 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 27
keyenter: TYPE enter
keyf1: TYPE 0,59
keyf3: TYPE 0,61
keyf5: TYPE 0,63
keyf10: TYPE 0,68