;Source file for a mouse popup menu for WordPerfect v.5.0 by Murray Wood,
;01/02/88. Based on a menu by Bob Foley.  It is written for a 3-button Logitech BUS
;mouse or C7 mouse and can be compiled by Newmenu. 
; 
;This file should be easily adapted for Microsoft by making changes to the parameters
;such as removing the CHORDS statement.  Also, the menus can be changed to whatever
;you find to be the best way to use WordPerfect. 
;--------------------------------------------------------------------------- 
 
 
;Assigning mouse functions: 
 
BEGIN leftb,midb,rightb,mousl,mousr,mousu,mousd,, 
 
leftb:    TYPE ENTER 
 
midb:     EXECUTE mainmen  

rightb:   TYPE ESC 

;Define mouse movements:
 
mousl:   TYPE 0,75
mousr:   TYPE 0,77
mousu:   TYPE 0,72
mousd:   TYPE 0,80

;Define Chords:

CHORDS ,lrb,,

lrb:  TYPE "Y"

;Define the Main Mouse Menu:

Mainmen:  MENU "WP 5.0 Main Menu",5,20,normal
          OPTION "File Menu",filemen
          OPTION "Cursor Menu",movemen
          OPTION "File Edit Menu",editmen
          OPTION "Block & Search Menu",blckmen
          OPTION "Style Menu",stylmen
          OPTION "Spell Menu",spellmen
          OPTION "Format Menu",formmen
		OPTION "Graphics Menu",graphmen
          OPTION "Save & Exit",savex
		OPTION "Save DOS Test File",dostxt
		OPTION "Quit (No Save)",quit
		OPTION "Clear Screen",cls
          MEND

;Define the second level menus:
          
Filemen:  MENU "WP 5.0 File Menu",5,20,normal
          OPTION "Load File",lfile 
          OPTION "Save File & Continue",ufile 
          OPTION "HELP",help 
          OPTION "Directory",dir
          OPTION "Print",prin
		OPTION "Print (Q & D)",prnqd
		OPTION "Preview",preview
          OPTION "Cancel",cancl
          OPTION "Go to Shell",shell 
          OPTION "Switch",swch
          OPTION "Text In/Out",inout 
          MEND 
 
Movemen:   MENU "WP 5.0 Cursor Menu",5,20,normal
          OPTION "Beginning of Line",beglin
          OPTION "End of Line",eoline
          OPTION "Word Left",wleft
          OPTION "Word Right",wright
          OPTION "Page Up",pgup
          OPTION "Page Down",pgdwn
          OPTION "Go to ",goto
		OPTION "Beginning of File",begfil
		OPTION "End of File",endfil
          MEND

Editmen:  MENU "WP File 5.0 Edit Menu",5,20,normal
          OPTION "Delete to End of Line",deleol
          OPTION "Delete to End of Page",delopg
          OPTION "Center",cent
          OPTION "Margin Release",marrel
		OPTION "Margin Set",marset 
          OPTION "->Indent",lindent
          OPTION "->Indent<-",bindent
          OPTION "Macro",macro
          OPTION "Insert Date",insdate
          OPTION "Math/Columns",mathcol
          OPTION "Tab Align",tabal
          OPTION "Flush Right",fluright
          MEND
          
Stylmen:  MENU "WP 5.0 Styles Menu",5,20,normal
          OPTION "Underline On/Off",uline
          OPTION "Double Underline",duline
          OPTION "Boldface On/Off",bldfc
          OPTION "Italics On/Off",ital
          OPTION "Superscript On/Off",supscr
          OPTION "Subscript On/Off",subscr
          OPTION "Overstrike On/Off",ovrstrke
          OPTION "Fine Print",fprint
          OPTION "Small Print",smprint
          OPTION "Large Print",lgprint
          OPTION "Very Large Print",vlprint
          MEND
          
          

Blckmen:  MENU "WP 5.0 Block & Search Menu",5,20,normal
          OPTION "Block On/Off",blck
          OPTION "Mark Text",mark
		OPTION "Move Text",movtext
		OPTION "Copy Text",coptext
          OPTION "Merge/Sort",mergsort
          OPTION "Search ->",sfor
          OPTION "Search <-",sback
          OPTION "Search & Replace",serrep
          MEND
          
Spellmen: MENU "WP 5.0 Spelling Menu",5,20,normal
          OPTION "Check Word",chkwrd
          OPTION "Check Page",chkpg
          OPTION "Check Document",chkdoc
          OPTION "Thesaurus",thes
          MEND
          
Graphmen: MENU "WP 5.0 Graphics Menu",5,20,normal
		OPTION "Create Figure",creatfig
		OPTION "Edit Figure",edfig
		OPTION "Create Table",creatable
		OPTION "Edit Table",edtable
		OPTION "Create Text Box",textbox
		OPTION "Edit Text Box",edbox
		MEND

Formmen:  MENU "WP 5.0 Format Menu",5,20,normal
          OPTION "Line Format",linform
          OPTION "Page Format",pgform
          OPTION "Print Format",prform
          OPTION "Date Format",datform
          OPTION "Macro Def On/Off",macdef
          OPTION "Reveal Codes",revcod
          MEND
          
                                                                 
 
 
;Secondary Mouse Menu Definitions:


;Define Main Menu options

savex:     TYPE 0,65,"Y","Y"
quit:      TYPE 0,65,"N","Y"
cls:       TYPE 0,65,"n","n"
dostxt:    TYPE 0,98,"1","1"


;Define Filemen

lfile:     TYPE 0,93
ufile:     TYPE 0,68
shell:     TYPE 0,94,"1"
help:      TYPE 0,61
dir:       TYPE 0,63,ENTER
prin:      TYPE 0,90
prnqd:     TYPE 0,90,"T","2","1"
preview:   TYPE 0,90,"6"
cancl:     TYPE 0,59
swch:      TYPE 0,86
inout:     TYPE 0,98


;Define movemen
wleft:     TYPE 0,115
wright:    TYPE 0,116
beglin:    TYPE 0,71,0,75
eoline:    TYPE 0,71,0,77
goto:      TYPE 0,119
pgup:      TYPE 0,73
pgdwn:     TYPE 0,81
begfil:    TYPE 0,71,0,71,0,72
endfil:    TYPE 0,71,0,71,0,80


;Define Editmen

deleol:    TYPE 0,117
delopg:    TYPE 0,118,"Y"
cent:      TYPE 0,89
marrel:    TYPE 0,15
marset:    TYPE 0,91,"1","7"
lindent:   TYPE 0,62
bindent:   TYPE 0,87
insdate:   TYPE 0,88,"1"
mathcol:   TYPE 0,126
macro:     TYPE 0,113
tabal:     TYPE 0,99
fluright:  TYPE 0,109


;Define Stylemn
bldfc:     TYPE 0,64
uline:     TYPE 0,66
duline:    TYPE 0,101,"2","3"
supscr:    TYPE 0,101,"1","1"
subscr:    TYPE 0,101,"1","2"
ovrstrke:  TYPE 0,91,"4","5"
ital:      TYPE 0,101,"2","4"
fprint:    TYPE 0,101,"1","3"
smprint:   TYPE 0,101,"1","4"
lgprint:   TYPE 0,101,"1","5"
vlprint:   TYPE 0,101,"1","5"


;Define Blkmen

sfor:      TYPE 0,60
sback:     TYPE 0,85
serrep:    TYPE 0,105
blck:      TYPE 0,107
mark:      TYPE 0,108
movtext:   TYPE 0,97,"1","1"
coptext:   TYPE 0,97,"1","2"
mergsort:  TYPE 0,102


;Define spellmen

chkwrd:    TYPE 0,95,"1'"
chkpg:     TYPE 0,95,"2"
chkdoc:    TYPE 0,95,"3"


;Define Graphmen

creatfig:  TYPE 0,112,"1","1"
edfig:     TYPE 0,112,"1","2"
creatable: TYPE 0,112,"2","1"
edtable:   TYPE 0,112,"2","2"
textbox:   TYPE 0,112,"3","1"
edbox:     TYPE 0,112,"3","2"
thes:      TYPE 0,104

;Define Formmen
linform:   TYPE 0,91,"1"
pgform:    TYPE 0,01,"2"
prform:    TYPE 0,91,"4","6"
datform:   TYPE 0,88,"3"
macdef:    TYPE 0,103
revcod:    TYPE 0,106

 
;The End. 
