;Source file for a mouse popup menu for Qmodem 3.1a by Murray Wood, 12/02/87. 
;Based on a menu 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 Logitech
;BUS mouse or C7 mouse and can be compiled by Newmenu. 
; 
;There are three option menus and a dialing menu.  The menus are initiated by
;using the left button for the "Main Menu", the middle button for the
;"Other Functions" menu, and the left and middle buttons for the "Third
;Menu".  The "Dialing Menu" is activated by the right mouse button.
;"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.
;
;An attempt has been made to cluster the most used options in the "Main
;Menu", the next most frequently used in the "Other Functions" menu, and
;the least frequently used in the "Third Menu".  This, of course, may
;not suit your preferences, so feel free to change them as you wish.
; 
;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 multiple button functions

CHORDS LMB,LRB,,ALLB

LMB:   EXECUTE thirdmen ; third menu

LRB:   TYPE ENTER

ALLB:  TYPE ESC

;Defining the Main Mouse Menu 
 
mainmen:  MENU "Qmodem",5,20,inverse 
          OPTION "Dial a Number",ddir 
          OPTION "Download a File",dload 
          OPTION "Upload a File",uload 
          OPTION "Capture On/Off",capt 
          OPTION "Scroll On/Off",scrl 
          OPTION "Split Screen On/Off",splscr
          OPTION "Scroll Back",scrlbk
          OPTION "Clear Screen",cls
          OPTION "Hang Up",hangup 
          OPTION "Exit Qmodem",exqmod 
          MEND 
 
 
ddir:     TYPE 0,32 
dload:    TYPE 0,81 
uload:    TYPE 0,73 
capt:     TYPE 0,119 
scrl:     TYPE 0,22 
splscr:   TYPE 0,31
scrlbk:   TYPE 0,72
cls:      TYPE 0,46
hangup:   TYPE 0,35 
exqmod:   TYPE 0,45,"Y" 
 
;Defining the Secondary Mouse Menu: 
 
othermen: MENU "Other Functions",5,20,inverse 
          OPTION "Qmodem Menu",qmen 
          OPTION "Change Sub-directory",subdir 
          OPTION "Changed Logged Drive",drv 
          OPTION "DOS Shell",shell 
          OPTION "View File",view 
          OPTION "Screen Dump",scrdmp
          OPTION "Printer Echo",prtecho
          MEND 
 

qmen:     TYPE 0,71
subdir:   TYPE 0,24 
drv:      TYPE 0,38 
shell:    TYPE 0,19 
view:     TYPE 0,47 
scrdmp:   TYPE 0,20
prtecho:  TYPE 0,114
 
;Defining the Mouse Dialing Menu: 
 
dialmen:  MENU "Dialing Menu",5,20,normal 
          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 
          OPTION "11",NUM11 
          OPTION "12",NUM12 
          MEND 
 
;(add more numbers as needed) 
 
redial:   TYPE 0,16 
exit:     TYPE "X"
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" 
num11:    TYPE "11"  
num12:    TYPE "12" 

 
;Defining the third menu:

thirdmen:  MENU "More Functions",5,20,inverse
           OPTION "Script Execution",scrpt
           OPTION "Xon/Xoff Toggle",xonoff
           OPTION "Character Echo",char
           OPTION "Terminal Emulation",term
           OPTION "Session Log Toggle",sesslog
           MEND


scrpt:    TYPE 0,33
xonoff:   TYPE 0,44
char:     TYPE 0,18
term:     TYPE 0,34
sesslog:  TYPE 0,129


 
;The End. 
