home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / LOGI.ZIP / WRITE.DEF next >
Encoding:
Text File  |  1988-10-07  |  4.0 KB  |  106 lines
  1. ;-------------------------------------------------------------------------;
  2. ;           Logimenu File definition for IBM Writing Assistant            ;
  3. ;           by James R. Mashburn - October 7, 1988                        ;
  4. ;-------------------------------------------------------------------------;
  5. ; If you find this program useful a $5.00 contribution would be most      ;
  6. ; appreciated. Send donation to:                                          ;
  7. ;                                                                         ;
  8. ;    James R. Mashburn - 106 Mill Pond Road - Roswell, GA - 30076         ;
  9. ;-------------------------------------------------------------------------;
  10. ; "Enter" is executed by pressing the left and right buttons and          ;
  11. ; "Escape" by pressing all three buttons. No mouse cursor movement        ;
  12. ; outside the Menu boxes is allowed.                                      ;
  13. ;                                                                         ;
  14. ; This file can be adapted for Microsoft by redefining "Midb" as "Bothb"  ;
  15. ; and elimitinating the "Chords" statement and adding "Options" for       ;
  16. ; "Enter" and "Esc" to the two Menus.   Good Luck!                        ;
  17. ;-------------------------------------------------------------------------;
  18. ;
  19. ;Assigining mouse functions
  20. ;
  21. BEGIN leftb, midb, rightb
  22. ;
  23. ;Note: with two button mouse "Midb" means both buttons at the same time
  24.  
  25. leftb: EXECUTE mainmenu
  26.  
  27. midb: EXECUTE midmenu
  28.  
  29. rightb: EXECUTE righmenu
  30.  
  31. ;Defining Main Menu ....Delete line 34 for non-color monitors and
  32. ; delete ";" from line 33
  33.  
  34. ;mainmenu:    MENU "IBM Writing Assistant", 3, 27, inverse
  35. mainmenu:     MENU "IBM Writing Assistant", 3, 27, 31, inverse
  36.               OPTION "1. Type/Edit           ", type
  37.               OPTION "2. Define Page         ", define
  38.               OPTION "3. Print               ", print
  39.               OPTION "4. Get/Save/Remove File", file
  40.               OPTION "5. Clear               ", clear
  41.               OPTION "9. Exit                ", exit
  42.               MEND
  43.  
  44. type:         TYPE "1", ENTER
  45. define:       TYPE "2", ENTER
  46. print:        TYPE "3", ENTER
  47. file:         TYPE "4", ENTER
  48. clear:        TYPE "5", ENTER
  49. exit:         TYPE "9", ENTER
  50.  
  51. ;Defining Mid Menu...Delete line 54 for non color moniters and
  52. ; delete ";" from line 53
  53.  
  54. ;midmenu:     MENU "Function Keys", 3, 27, inverse
  55. midmenu:      MENU "Function Keys", 3, 27, 31, inverse
  56.               OPTION "F1  - Help             ", help
  57.               OPTION "F2  - Check Spelling   ", spell
  58.               OPTION "F3  - Adjust           ", adjust
  59.               OPTION "F4  - Set Tabs         ", tabs
  60.               OPTION "F5  - Emphasize Text   ", empha
  61.               OPTION "F6  - Erase Word       ", word
  62.               OPTION "F7  - Move Block       ", move
  63.               OPTION "F8  - Copy Block       ", copy
  64.               OPTION "F9  - Search & Relpace ", search
  65.               OPTION "F10 - Continue         ", cont
  66.               MEND
  67.  
  68. help:         TYPE 0,59
  69. spell:        TYPE 0,60
  70. adjust:       TYPE 0,61
  71. tabs:         TYPE 0,62
  72. empha:        TYPE 0,63
  73. word:         TYPE 0,64
  74. move:         TYPE 0,65
  75. copy:         TYPE 0,66
  76. search:       TYPE 0,67
  77. cont:         TYPE 0,68
  78.  
  79. ;Defining righmenu... Delete line 82 for non-color monitors and
  80. ; delete ";" from line 81
  81.  
  82. ;righmenu:    MENU "Shifted Function Keys", 5, 26, inverse
  83. righmenu:     MENU "Shifted Function Keys", 5, 26, 31, inverse
  84.               OPTION "<Shft> F3  - Change Color  ", change
  85.               OPTION "<Shft> F5  - Append a File ", append
  86.               OPTION "<Shft> F6  - Erase Line    ", line
  87.               OPTION "<Shft> F7  - Delete Block  ", delete
  88.               OPTION "<Shft> F8  - Reuse Block   ", reuse
  89.               MEND
  90.  
  91. Change:       TYPE 0,86
  92. append:       TYPE 0,88
  93. line:         TYPE 0,89
  94. delete:       TYPE 0,90
  95. reuse:        TYPE 0,91
  96.  
  97.  
  98. ;Defining Return and Escape functions
  99.  
  100. CHORDS ,LRB, ,ALLB
  101.  
  102. LRB:          TYPE ENTER
  103. ALLB:         TYPE ESC
  104.  
  105. ;END
  106.