
;Source file for a mouse popup menu for Qmodem 2.0 by Art Pfeffer, 8/12/86.
;This file is an adaptation of Sam Jacobs' M-qmodem Mouse Systems (?) menu.
;It is written for a 3-button Logimouse C7 and can be compiled by Newmenu.
;
;"Enter" is executed by pressing the left and right buttons and "Escape" by
;pressing all three buttons.  No mouse cursor movement outside the menu
;boxes is provided for.
;
;This file can be adapted for Microsoft by (for example) 
;redefining "Midb" as "Bothb," eliminating the CHORDS statement, and adding
;OPTIONS for ENTER and ESC to the three menus.  Also, the menus can be 
;changed to suit your own Qmodem operating style.
;---------------------------------------------------------------------------


;Assigning mouse functions:

BEGIN leftb,midb,rightb,,,,,,

leftb:	EXECUTE mainmen

midb: 	EXECUTE othermen

rightb:	EXECUTE dialmen

;Defining the Main Mouse Menu

mainmen:	MENU "Qmodem",12,15,inverse
		OPTION "Dial a Number",dialdir
		OPTION "Download a File",downl
		OPTION "Upload a File",upl
		OPTION "Capture On/Off",capture
		OPTION "Scroll Lost Lines",scroll
		OPTION "Hang Up",hangup
		OPTION "Exit Qmodem",exitq
		MEND


dialdir:	TYPE 0,32
downl:		TYPE 0,81
upl:		TYPE 0,73
capture:	TYPE 0,119
scroll:		TYPE 0,31
hangup:		TYPE 0,35
exitq:		TYPE 0,45,"Y"

;Defining the Secondary Mouse Menu:

othermen:	MENU "Other Functions",12,15,inverse
		OPTION "Qmodem Menu",qmenu
		OPTION "Change Sub-directory",subdir
		OPTION "Changed Logged Drive",drive
		OPTION "DOS Shell",shell
		OPTION "View File",view
		MEND


subdir:		TYPE 0,24
drive:		TYPE 0,38
shell:  	TYPE 0,19
view:		TYPE 0,47
qmenu:		TYPE 0,71

;Defining the Mouse Dialing Menu:

dialmen:	MENU "Dialing Menu",5,20,normal
		OPTION "Dial",dialnum
		OPTION "Exit Directory",exit
		OPTION "Redial",redial
		OPTION "1",num1
		OPTION "2",num2
		OPTION "3",num3
		OPTION "4",num4
		OPTION "5",num5
		OPTION "6",num6
		OPTION "7",num7
		OPTION "8",num8
		OPTION "9",num9
		OPTION "10",num10
		MEND

;(add more numbers as needed)

dialnum:	TYPE "D"
redial:		TYPE 0,16
num1:		TYPE "1"
num2:		TYPE "2"
num3:		TYPE "3"
num4:		TYPE "4"
num5:		TYPE "5"
num6:		TYPE "6"
num7:		TYPE "7"
num8:		TYPE "8"
num9:		TYPE "9"
num10:		TYPE "10"
exit:		TYPE "X"

;Defining the multi-button Return and Escape functions:

CHORDS ,LRB,,ALLB

LRB:	TYPE ENTER
ALLB: 	TYPE ESC

;The End.
