;-------------------------------------------------------------------------;
;           Logimenu File definition for IBM Writing Assistant            ;
;           by James R. Mashburn - October 7, 1988                        ;
;-------------------------------------------------------------------------;
; If you find this program useful a $5.00 contribution would be most      ;
; appreciated. Send donation to:                                          ;
;                                                                         ;
;    James R. Mashburn - 106 Mill Pond Road - Roswell, GA - 30076         ;
;-------------------------------------------------------------------------;
; "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 allowed.                                      ;
;                                                                         ;
; This file can be adapted for Microsoft by redefining "Midb" as "Bothb"  ;
; and elimitinating the "Chords" statement and adding "Options" for       ;
; "Enter" and "Esc" to the two Menus.   Good Luck!                        ;
;-------------------------------------------------------------------------;
;
;Assigining mouse functions
;
BEGIN leftb, midb, rightb
;
;Note: with two button mouse "Midb" means both buttons at the same time
 
leftb: EXECUTE mainmenu
 
midb: EXECUTE midmenu
 
rightb: EXECUTE righmenu
 
;Defining Main Menu ....Delete line 34 for non-color monitors and
; delete ";" from line 33
 
;mainmenu:    MENU "IBM Writing Assistant", 3, 27, inverse
mainmenu:     MENU "IBM Writing Assistant", 3, 27, 31, inverse
              OPTION "1. Type/Edit           ", type
              OPTION "2. Define Page         ", define
              OPTION "3. Print               ", print
              OPTION "4. Get/Save/Remove File", file
              OPTION "5. Clear               ", clear
              OPTION "9. Exit                ", exit
              MEND
 
type:         TYPE "1", ENTER
define:       TYPE "2", ENTER
print:        TYPE "3", ENTER
file:         TYPE "4", ENTER
clear:        TYPE "5", ENTER
exit:         TYPE "9", ENTER
 
;Defining Mid Menu...Delete line 54 for non color moniters and
; delete ";" from line 53

;midmenu:     MENU "Function Keys", 3, 27, inverse
midmenu:      MENU "Function Keys", 3, 27, 31, inverse
              OPTION "F1  - Help             ", help
              OPTION "F2  - Check Spelling   ", spell
              OPTION "F3  - Adjust           ", adjust
              OPTION "F4  - Set Tabs         ", tabs
              OPTION "F5  - Emphasize Text   ", empha
              OPTION "F6  - Erase Word       ", word
              OPTION "F7  - Move Block       ", move
              OPTION "F8  - Copy Block       ", copy
              OPTION "F9  - Search & Relpace ", search
              OPTION "F10 - Continue         ", cont
              MEND
 
help:         TYPE 0,59
spell:        TYPE 0,60
adjust:       TYPE 0,61
tabs:         TYPE 0,62
empha:        TYPE 0,63
word:         TYPE 0,64
move:         TYPE 0,65
copy:         TYPE 0,66
search:       TYPE 0,67
cont:         TYPE 0,68
 
;Defining righmenu... Delete line 82 for non-color monitors and
; delete ";" from line 81
 
;righmenu:    MENU "Shifted Function Keys", 5, 26, inverse
righmenu:     MENU "Shifted Function Keys", 5, 26, 31, inverse
              OPTION "<Shft> F3  - Change Color  ", change
              OPTION "<Shft> F5  - Append a File ", append
              OPTION "<Shft> F6  - Erase Line    ", line
              OPTION "<Shft> F7  - Delete Block  ", delete
              OPTION "<Shft> F8  - Reuse Block   ", reuse
              MEND
 
Change:       TYPE 0,86
append:       TYPE 0,88
line:         TYPE 0,89
delete:       TYPE 0,90
reuse:        TYPE 0,91
 
 
;Defining Return and Escape functions
 
CHORDS ,LRB, ,ALLB
 
LRB:          TYPE ENTER
ALLB:         TYPE ESC
 
;END
