;
; Program:  MSMOUSE.DEF
;           Source for MSMOUSE.MNU
;           - MicroSoft Mouse Menu Driver for DS Ver 4.00
;           - 1 May 1990
;
; Author:   Nat Martino  
;           501 W. Vineyard Ave #514
;           Oxnard, CA 93030
;           (805) 485-6340
;
; Instructions:
;     1.  Modify mouse menu driver as desired.
;     2.  Compile program with "makemenu" (ie: makemenu msmouse).
;         The makemenu compiler program is obtained from MicroSoft.
;     3.  Step 2 creates the "msmouse.mnu" file.
;     4.  Prior to starting DS ensure the Mouse driver and Mouse Menu
;         programs are executed.
;           ie:  MOUSE <ENTER>         ... loads Mouse Driver
;                MENU MSMOUSE <ENTER>  ... loads Mouse Menus for DS
;                DS <ENTER>            ... loads DS
;
; Mouse Operation Notes (as currently configured):
;      1. The Mouse can be configured to work on Directories or Files.
;         To switch the mouse configuration from directories to files
;         or visa versa, simultaneously depress then release both buttons.
;      2. Directory-Mouse
;           Left-Button  = Enter Key
;           Right-Button = Select Options Popup Menu 
;           Both-Buttons = Switch to File-Mouse
;           Left or Up Mouse Movement    = Move up the Directory Tree
;           Right or Down Mouse Movement = Move down the Directory Tree
;      3. File-Mouse
;           Left-Button  = Tag Current File
;           Right-Button = Select Options Popup Menu 
;           Both-Buttons = Switch to Directory-Mouse
;           Left  Mouse Movement = Move left 1 file column
;           Right Mouse Movement = Move right 1 file column
;           Up Mouse Movement    = Move up 1 file
;           Down Mouse Movement  = Move down 1 file
;      4. The Mouse is currently configured for Black & White operation.
;         To configure the menus for color operation use the following  
;         table to determine the appropriate color attribute value and
;         replace the "Normal" or "Inverse" keywords in the "MENU" and
;         "POPUP" statements with the attribute value.
;         ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;         ³        T E X T   C O L O R S              ³  BACKGROUND COLORS ³
;         ³ NUMBER   COLOR     NUMBER  COLOR          ³  NUMBER   COLOR    ³
;         ³    0    Black         8  Dark Gray        ³     0    Black     ³
;         ³    1    Blue          9  Light Blue       ³    16    Blue      ³
;         ³    2    Green        10  Light Green      ³    32    Green     ³
;         ³    3    Cyan         11  Light Cyan       ³    48    Cyan      ³
;         ³    4    Red          12  Light Red        ³    64    Red       ³
;         ³    5    Magenta      13  Light Magenta    ³    80    Magenta   ³
;         ³    6    Brown        14  Yellow           ³    96    Brown     ³
;         ³    7    White        15  Intense White    ³   112    White     ³
;         ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
;             ie: Magenta Background with High Intense White Foreground
;                       Intense White Foreground = 15
;                         +  Magenta Blackground = 80
;                                              --------
;                                Attribute Value = 95
;

BEGIN       EnterKey, Options, File-Mouse, F1, F2, F1, F2, 10,10

Options:    EXECUTE Main 

File-Mouse: ASSIGN  T-Key, Options, Dir-Mouse, LeftArrow, RightArrow, UpArrow, DownArrow, 40,20

Dir-Mouse:  ASSIGN  EnterKey, Options, File-Mouse, F1, F2, F1, F2, 10,10

Main:  POPUP 1, 1, Normal 
TEXT "CNX  <Esc>  Untag  Dir  Drive  File  DOS  Setup  Misc  Exit  Help  Split  Flip" 
          SELECT 1, 34, 4, File1
          SELECT 1,  1, 5,
          SELECT 1,  8, 5, EscKey
          SELECT 1, 15, 5, U-Key
          SELECT 1, 22, 3, Dir1
          SELECT 1, 27, 5, Drv
          SELECT 1, 40, 3, DOS
          SELECT 1, 45, 5, Setup
          SELECT 1, 52, 4, Misc
          SELECT 1, 58, 4, Exit-DS
          SELECT 1, 64, 4, Help
          SELECT 1, 70, 5, S-Key
          SELECT 1, 77, 4, Key-+
       PEND

File1: MENU "File Commands", 2, 26, Normal
          OPTION " CANCEL ",
          OPTION "Edit",          E-Key
          OPTION "List",          L-Key
          OPTION "Execute",       Xecute
          OPTION "Copy",          K-Key
          OPTION "Delete",        Confirm
          OPTION "Move",          M-Key
          OPTION "Rename",        R-Key
          OPTION "Edit (OVL)",    Alt-E
          OPTION "List (OVL)",    Alt-L
          OPTION "Execute (OVL)", AltExecute
          OPTION "PgUp",          PgUp
          OPTION "PgDn",          PgDn
          OPTION "Tag All",       Alt-T
          OPTION "UnTag All",     Alt-U
          OPTION "<goto page 2>", File2
          OPTION " MOUSE MAIN ",Main
       MEND

File2: MENU "File Commands", 2, 26, Normal  
          OPTION " CANCEL ",
          OPTION "Print",         P-Key
          OPTION "Find",          F-Key
          OPTION "Select/Sort",   Alt-S
          OPTION "Attributes",    A-Key
          OPTION "Control Tags",  Ctrl-T
          OPTION "<goto page 1>", File1
          OPTION " MOUSE MAIN ",Main
       MEND

Dir1: MENU "Dir Commands", 2, 13, Normal 
          OPTION " CANCEL ",
          OPTION "Add-Del-Chg",   Ctrl-D
          OPTION "Dir Links",     Key-0
          OPTION "Dir Attributes",Ctrl-A
          OPTION "Rescan Tree",   Alt-R
          OPTION "Drv Free Space",Drv2
          OPTION "Tree Dump",     Ctrl-U
          OPTION "Volume ID",     Ctrl-V
          OPTION "Root Directory",F5
          OPTION "Last Directory",F6
          OPTION "<Esc>",         EscKey
          OPTION " MOUSE MAIN ",Main
      MEND

Drv: MENU "Select Drive", 2, 19, Normal  
          OPTION " CANCEL ",
          OPTION "Drive A:",      ChgDrv-A
          OPTION "Drive B:",      ChgDrv-B
          OPTION "Drive C:",      ChgDrv-C
          OPTION "Drive D:",      ChgDrv-D
          OPTION "Drive E:",      ChgDrv-E
          OPTION "Drive F:",      ChgDrv-F
          OPTION "Drive G:",      ChgDrv-G
          OPTION "<Esc>",         EscKey
          OPTION " MOUSE MAIN ",Main
     MEND

Drv2: MENU "Select Drive", 2, 13, Normal 
          OPTION " CANCEL ",
          OPTION "Drive A:",      Free-A
          OPTION "Drive B:",      Free-B
          OPTION "Drive C:",      Free-C
          OPTION "Drive D:",      Free-D
          OPTION "Drive E:",      Free-E
          OPTION "Drive F:",      Free-F
          OPTION "Drive G:",      Free-G
          OPTION "<Esc>",         EscKey
          OPTION " MOUSE MAIN ",Main
     MEND

DOS: MENU "DOS Commands", 2, 30, Normal  
          OPTION " CANCEL ",
          OPTION "Enter  Command",      C-Key
          OPTION "Enter Command (OVL)", Alt-C
          OPTION "Format A:",           Format-A
          OPTION "Format B:",           Format-B
          OPTION "Check disk",          ChkDsk
          OPTION "Diskcopy A: B:",      DiskCopy
          OPTION "Stop  Printing",      CnxPrt
          OPTION "<Esc>",               EscKey
          OPTION " MOUSE MAIN ",      Main
     MEND

Setup: MENU "DS SETUP Commands", 2, 34, Normal 
          OPTION " CANCEL ",
          OPTION "25 43/50 Toggle",    Alt-M
          OPTION "Define Macros",      Alt-F10       
          OPTION "Color Setup",        Alt-K
          OPTION "Edit-List Defaults", Ctrl-E
          OPTION "<Esc>",              EscKey
          OPTION " MOUSE MAIN ",     Main
       MEND

Misc: MENU "Misc Commands", 2, 43, Normal
          OPTION " CANCEL ",
          OPTION "File Mouse",          File-Mouse
          OPTION "Dir Mouse",           Dir-Mouse
          OPTION "Refresh Screen",      Ctrl-R
          OPTION "Program Limits",      Ctrl-L
          OPTION "<Esc>",               EscKey
          OPTION " MOUSE MAIN ",      Main
      MEND

Exit-DS: MENU "Are You Sure?", 2, 50, Normal 
          OPTION " CANCEL ",
          OPTION "Yes",           F9
          OPTION "No",  
          OPTION "<Esc>",         EscKey
          OPTION " MOUSE MAIN ",Main
         MEND

HELP: POPUP  2, 2, Inverse 
TEXT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
TEXT "º             Up 1 Dir                             Up 1 File                 º"
TEXT "º                                                                          º"
TEXT "º        ÉÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍ»                    ÉÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍ»            º"
TEXT "º        º     ÚÄÄÄÄÂÄÄÄÄÄ×ÄSwitch to          º     ÚÄÄÄÄÂÄÄÄÄÄ×ÄSwitch to  º"
TEXT "º        º              º File-Mouse         º              º Dir-Mouse  º"
TEXT "º        º  ÚÄÄÄ¿  ÚÄÄÄ¿  º                    º  ÚÄÄÄ¿  ÚÄÄÄ¿  º            º"
TEXT "º  EnterÄ×ij L ³  ³ R ³Ä×ÄOptions        TagÄ×ij L ³  ³ R ³Ä×ÄOptions    º"
TEXT "º        º  ÀÄÄÄÙ  ÀÄÄÄÙ  º                    º  ÀÄÄÄÙ  ÀÄÄÄÙ  º            º"
TEXT "º  Up 1Ķ    Dir-Mouse   ÇÄDown        PrevĶ   File-Mouse   ÇÄNext      º"
TEXT "º   Dir  ÈÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍͼ  1 Dir        Col  ÈÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍͼ   Col      º"
TEXT "º                                                                          º"
TEXT "º           Down 1 Dir   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»  Down 1 File               º"
TEXT "º                        º MS Mouse for DS 4.00 º                            º"
TEXT "º                        ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ                            º"
TEXT "º         <Esc>          º       CANCEL       º    CANCEL   &   CNX    º"
TEXT "º  Abort Mouse Command   º  1 Page Help Screen  º     Abort Mouse Command    º"
TEXT "º   with Esc key input   º    Expanded  Help    º      with no key input     º"
TEXT "º                        º     MOUSE MAIN     º                            º"
TEXT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
          SELECT 16, 29, 18, 
          SELECT 17, 29, 18, Help1
          SELECT 18, 29, 18, F10
          SELECT 19, 29, 18, Main
       PEND

Confirm: MENU "Are You Sure?", 2, 44, Normal 
          OPTION " CANCEL ",    
          OPTION "Yes",           DelFile
          OPTION "No",            
          OPTION "<Esc>",         EscKey
          OPTION " MOUSE MAIN ",Main
         MEND

EnterKey:    TYPE ENTER  
A-Key:       TYPE "a"   
B-Key:       TYPE "b"   
C-Key:       TYPE "c"   
D-Key:       TYPE "d"   
E-Key:       TYPE "e"   
F-Key:       TYPE "f"   
G-Key:       TYPE "g"   
K-Key:       TYPE "k"   
L-Key:       TYPE "l"   
M-Key:       TYPE "m"   
P-Key:       TYPE "p"   
R-Key:       TYPE "r"   
S-Key:       TYPE "s"   
T-Key:       TYPE "t"   
U-Key:       TYPE "u"   
X-Key:       TYPE "x"   
Y-Key:       TYPE "y"   
Key-0:       TYPE "0"   
Key-+:       TYPE "+"   
Help1:       TYPE "?"   
Alt-C:       TYPE 0,46  
Alt-D:       TYPE 0,32  
Alt-E:       TYPE 0,18  
Alt-F:       TYPE 0,33  
Alt-K:       TYPE 0,37  
Alt-L:       TYPE 0,38  
Alt-M:       TYPE 0,50  
Alt-R:       TYPE 0,19  
Alt-S:       TYPE 0,31  
Alt-T:       TYPE 0,20  
Alt-U:       TYPE 0,22  
Alt-X:       TYPE 0,45  
Alt-F10:     TYPE 0,113 
F1:          TYPE 0,59  
F2:          TYPE 0,60  
F5:          TYPE 0,63  
F6:          TYPE 0,64  
F9:          TYPE 0,67  
F10:         TYPE 0,68  
PgUp:        TYPE 0,73  
PgDn:        TYPE 0,81  
LeftArrow:   TYPE 0,75   
RightArrow:  TYPE 0,77   
UpArrow:     TYPE 0,72   
DownArrow:   TYPE 0,80   
Ctrl-A:      TYPE 1     
Ctrl-D:      TYPE 4     
Ctrl-E:      TYPE 5     
Ctrl-L:      TYPE 12    
Ctrl-R:      TYPE 18    
Ctrl-T:      TYPE 20    
Ctrl-U:      TYPE 21    
Ctrl-V:      TYPE 22    
EscKey:      TYPE 27    
ChgDrv-A:    TYPE "da", ENTER   
ChgDrv-B:    TYPE "db", ENTER   
ChgDrv-C:    TYPE "dc", ENTER   
ChgDrv-D:    TYPE "dd", ENTER   
ChgDrv-E:    TYPE "de", ENTER   
ChgDrv-F:    TYPE "df", ENTER   
ChgDrv-G:    TYPE "dg", ENTER   
Free-A:      EXECUTE Alt-F, A-Key
Free-B:      EXECUTE Alt-F, B-Key
Free-C:      EXECUTE Alt-F, C-Key
Free-D:      EXECUTE Alt-F, D-Key
Free-E:      EXECUTE Alt-F, E-Key
Free-F:      EXECUTE Alt-F, F-Key
Free-G:      EXECUTE Alt-F, G-Key
DelFile:     EXECUTE Alt-D, EnterKey
Xecute:      EXECUTE X-Key, EnterKey
AltExecute:  EXECUTE Alt-X, EnterKey
EscMain:     EXECUTE EscKey, Main
Format-A:    EXECUTE C-Key, Frmt-A
Frmt-A:      TYPE "format a:", ENTER
Format-B:    EXECUTE C-Key, Frmt-B
Frmt-B:      TYPE "format b:", ENTER
DiskCopy:    EXECUTE C-Key, Copy-A-B
Copy-A-B:    TYPE "diskcopy a: b:", ENTER
ChkDsk:      EXECUTE C-Key, CkDsk
CkDsk:       TYPE "chkdsk", ENTER
CnxPrt:      EXECUTE C-Key, PrtTerm
PrtTerm:     TYPE "print/t", ENTER