home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qm42mnu.zip / QMODEM.DEF < prev    next >
Text File  |  1990-09-05  |  15KB  |  432 lines
  1. ;  
  2. ;                 Q m o d e m   L o g i m o u s e   M e n u
  3. ;                          V e r s i o n   0.99b
  4. ;
  5. ;          SET COLOR FOR MENUS TO MATCH YOUR QMODEM COLOR CHOICES
  6. ;
  7. ;                             b y   B o b   R .
  8. ;                    The Anonymous BBS  (414) 251-2580
  9. ;                 24 hours/1200-9600 bps Hayes Ultra V.32
  10. ;                             FidoNet 1:154/40
  11. ;                 SMALL version without Pop-Up Function Keys
  12. ;
  13. ;              ┌──────────────────────────────────────────────┐
  14. ;              │          Thanks to Bob Wilcox for            │
  15. ;              │            changes marked "rlw"              │
  16. ;              │      This is how shareware SHOULD work!      │
  17. ;              └──────────────────────────────────────────────┘
  18. ;
  19. ;                  *****   ASSIGN MOUSE FUNCTIONS   *****
  20. ;
  21. ;------------------------------------------------------------------------
  22. ;
  23. ; ***** USE ALL THE BUTTONS AND MOVEMENTS, ANY CHORDS EXIT FROM MENU *****
  24. ;
  25. ;
  26.    BEGIN  LBUT, MBUT, RBUT, LMOV, RMOV, UPMOV, DMOV, 50, 50
  27.    CHORDS  LMB, LRB, MRB, ALLB
  28. ;
  29. ;*****CHORDS
  30. LMB:    MATCH 15,37,,"Redial",C,Y        ; Enables Cycle or Yes from mouse
  31. LRB:    Execute Pgup                     ; Shortcut to upload menu
  32. MRB:    MATCH 15,37,,"Redial",K,N        ; Enables Kill or No from mouse
  33. ALLB:   Execute Pgdn                     ; Shortcut to download menu
  34. ;
  35. ;
  36. ;------------------------------------------------------------------------
  37. ;
  38. ;                    *****   BUTTON DEFINITIONS   *****
  39. ;
  40.  LBUT:    TYPE ENTER                             ; LEFT BUTTON IS ALWAYS RETURN
  41.  RBUT:    TYPE ESC                               ; RIGHT BUTTON IS ALWAYS ESCAPE
  42. ;Expanded matching added by R. Wilcox
  43.  MBUT:    MATCH 1,36,,"Phone",SPACE,MBUT1a       ; MATCH ENABLES MARKING ENTRIES
  44.  MBUT1a:  MATCH 2,29,,"F",FUNKEY,MBUT1           ; MATCH CALLS FUNCT KEY MENU
  45.  MBUT1:   MATCH 1,36,,"Setup",F1,MBUT2           ; MATCH CALLS HELP SCREEN rlw
  46.  MBUT2:   MATCH 1,28,,"╒══ D",DLPRO,MBUT3        ; MATCH CALLS DL PROTOCOL MENU
  47.  MBUT3:   MATCH 1,28,,"╒═══ U",ULPRO,MBUT3a      ; MATCH CALLS UL PROTOCOL MENU
  48.  MBUT3a:  MATCH 1,28,,"Batch U",BATUL,MBUT4      ; MATCH CALLS BATCH UL MENU
  49.  MBUT4:   MATCH 25,14,,"QuickLearn",LEXIT,MBUT5 ; MATCH CALLS Learn Exit
  50.  MBUT5:   MATCH 43,14,,"QuickLearn",LEXIT,MBUT6 ; MATCH CALLS Learn Exit(EGA)
  51.  MBUT6:   MATCH 50,14,,"QuickLearn",LEXIT,MBUT7 ; MATCH CALLS Learn Exit(VGA)
  52.  MBUT7:   MATCH 25,5,,"SCROLL",ScrlMenu,MBUT8   ; MATCH CALLS SCROLL MENU
  53.  MBUT8:   MATCH 43,5,,"SCROLL",ScrlMenu,MBUT9   ; MATCH CALLS SCROLL MENU (EGA)
  54.  MBUT9:   MATCH 50,5,,"SCROLL",ScrlMenu,MBUT11  ; MATCH CALLS SCROLL MENU (VGA)
  55.  MBUT11:  MATCH 25,11,,"ONLINE",ONLINEMENU,MBUT12   ; MATCH CALLS SCROLL MENU
  56.  MBUT12:  MATCH 43,11,,"ONLINE",ONLINEMENU,MBUT13   ; MATCH CALLS SCROLL MENU (EGA)
  57.  MBUT13:  MATCH 50,11,,"ONLINE",ONLINEMENU,MBUT14  ; MATCH CALLS SCROLL MENU (VGA)
  58.  MBUT14:  MATCH 25,28,,"[H",MAINMENU,MBUT15     ; MATCH CALLS MAIN MENU
  59.  MBUT15:  MATCH 43,28,,"[H",MAINMENU,MBUT16     ; MATCH CALLS MAIN MENU (EGA)
  60.  MBUT16:  MATCH 50,28,,"[H",MAINMENU,SHELL      ; MATCH CALLS MAIN MENU (VGA)
  61. ;end of rlw mods (see also LEXIT:, ScrlMenu:, FUNKEY: and OnLineMenu:)
  62. ;
  63. ;---------------------------------------------------------------------------
  64. ;
  65. ;          *****   MOVEMENTS   *****
  66. ;
  67.    LMOV:  TYPE 0,75          ; LEFT  ARROW KEY
  68.    RMOV:  TYPE 0,77          ; RIGHT ARROW KEY
  69.    UPMOV: TYPE 0,72          ; UP    ARROW KEY
  70.    DMOV:  TYPE 0,80          ; DOWN  ARROW KEY
  71. ;
  72. ;----------------------------------------------------------------------------
  73. ;
  74. ;                 *****   MAIN POP-UP MENU   *****
  75. ;
  76.    MAINMENU: MENU "Main Menu", 5, 60, 116       ; POP-UP IN UPPER AREA
  77.        OPTION "MODEM", MEN1              ; IF SELECTED, GOTO MEN1
  78.        OPTION "UL/DL", MEN2              ; IF SELECTED, GOTO MEN2
  79.        OPTION "SCREEN", MEN3             ; IF SELECTED, GOTO MEN3
  80.        OPTION "SETUP", MEN4              ; IF SELECTED, GOTO MEN4
  81.        OPTION "FILES", MEN5              ; IF SELECTED, GOTO MEN5
  82.        OPTION "HELP", HOME               ; IF SELECTED, SHOW HELP SCREEN
  83.        OPTION "EXIT", ALTX               ; IF SELECTED, EXIT QMODEM
  84.        OPTION "Cancel", NOTHING          ; IF SELECTED, CANCEL POP-UP
  85.      MEND
  86. ;---------------------------------------------------------------------------
  87. ;
  88. ;                       *****   SUB-MENUS   *****
  89. ;
  90. ;---------------------------------------------------------------------------
  91. ;
  92. ;      ***   MENU 1   ***
  93. ;
  94.    MEN1:  MENU "MODEM", 5, 58, 116
  95. ;  
  96.        OPTION "Dial Phone", ALTD
  97.        OPTION "Echo Toggle", ALTE
  98.        OPTION "LF Toggle", SHIFTTAB
  99.        OPTION "Session Log", ALT0
  100.        OPTION "Printer Echo", ALT9
  101.        OPTION "QuickLearn", ALTQ
  102.        OPTION "Script", ALTF
  103.        OPTION "Break", CTLEND
  104.        OPTION "Hang-up", ALTH
  105.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  106.      MEND
  107. ;---------------------------------------------------------------------------
  108. ;
  109. ;      ***   MENU 2   ***
  110. ;
  111.    MEN2: MENU "DL/UL", 5, 58, 116
  112. ;
  113.        OPTION "Download", PGDN
  114.        OPTION "Upload", PGUP
  115.        OPTION "Capture File", CTLHM
  116.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  117.    MEND
  118. ;---------------------------------------------------------------------------
  119. ;
  120. ;      ***   MENU 3   ***
  121. ;
  122.    MEN3: MENU "SCREEN", 5, 58, 116
  123. ;
  124.        OPTION "Clear Screen", ALTC
  125.        OPTION "Scroll Back Toggle", ALTU      ;rlw mod
  126.        OPTION "Scroll Mode", UPMOV            ;rlw mod
  127.        OPTION "Split Screen", ALTS
  128.        OPTION "Screen Dump", ALTT
  129.        OPTION "EGA/VGA 25 line", ALT2
  130.        OPTION "EGA/VGA 43/50 line", ALT4
  131.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  132.    MEND
  133. ;---------------------------------------------------------------------------
  134. ;
  135. ;      ***   MENU 4   ***
  136. ;
  137.    MEN4: MENU "SETUP", 5, 58, 116
  138. ;
  139.        OPTION "Run QINSTALL", ALTN
  140.        OPTION "XON/XOFF", ALTZ
  141.        OPTION "Set Func. Keys", ALTJ
  142.        OPTION "COM Port", ALTK
  143.        OPTION "Music", ALTM
  144.        OPTION "BAUD Rate", ALTP
  145.        OPTION "Beeps & Bells", ALTB
  146.        OPTION "Terminal Emul.", ALTG
  147.        OPTION "Backspace/DEL", ALT1
  148.        OPTION "8-BIT", ALT8
  149.        OPTION "Translation", ALTA
  150.        OPTION "Doorway Mode", ALTEQ
  151.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  152.   MEND
  153. ;---------------------------------------------------------------------------
  154. ;
  155. ;      ***   MENU 5   ***
  156. ;
  157.    MEN5: MENU "FILES", 5, 58, 116
  158. ;
  159.        OPTION "Change Drive", ALTL
  160.        OPTION "Change Subdir", ALTO
  161.        OPTION "DOS Shell", ALTR
  162.        OPTION "View/Edit File", ALTV
  163.        OPTION "Disk DIR", ALTW
  164.        OPTION "Delete File", ALTY
  165.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  166.    MEND
  167. ;
  168. ;
  169. ;---------------------------------------------------------------------------
  170. ; Function key edit menu added by rlw
  171. ;---------------------------------------------------------------------------
  172. ;                   *****   FUNCTION KEY MENU  *****
  173.    FUNKEY:  MATCH 25,7,,"Edit",EDITMENU,FUNKEY1
  174.    FUNKEY1: MATCH 43,7,,"Edit",EDITMENU,FUNKEY2
  175.    FUNKEY2: MATCH 50,7,,"Edit",EDITMENU,FUNKEY3
  176. ;
  177.    FUNKEY3: MENU , 10, 30, 116
  178. ;
  179.        OPTION "Normal", K1
  180.        OPTION "Shift", K2
  181.        OPTION "Ctrl", K3
  182.        OPTION "Alt", K4
  183.        OPTION "Load", L
  184.        OPTION "Exit", Escape
  185.    MEND
  186. ;
  187. ;---------------------------------------------------------------------------
  188. ;                      **** EDIT MENU ****
  189. ;
  190.    EDITMENU: MENU , 10, 30, 116
  191.        OPTION "SAVE", F10
  192.        OPTION "ABORT SAVE, BACK TO EDIT", ESCAPE
  193.        OPTION "EXIT FUNCTION KEY MENU", ESCAPE2
  194.    MEND
  195. ;---------------------------------------------------------------------------
  196. ;                   *****   SHELL MENU  *****
  197. ;
  198.    SHELL: MENU , 15, 58, 116
  199. ;
  200.        OPTION "Exit DOS", EXIT
  201.        OPTION "Remain", NOTHING
  202.    MEND
  203. ;---------------------------------------------------------------------------
  204. ;                   *****  BATCH UL MENU *****
  205. ;
  206.    BATUL: MENU , 15, 58, 116
  207. ;
  208.        OPTION "Pick List", F2
  209.        OPTION "Save", F6
  210.        OPTION "Upload", F10
  211.        OPTION "Abort", Escape
  212.     MEND
  213. ;---------------------------------------------------------------------------
  214. ; Learn exit menu added by rlw
  215. ;---------------------------------------------------------------------------
  216. ;                   *****   LEARN EXIT MENU  *****
  217.    LEXIT: MENU , 15, 58, 116
  218. ;
  219.        OPTION "End Recording", ALTQ
  220.        OPTION "Main Menu", MAINMENU
  221.    MEND
  222. ;---------------------------------------------------------------------------
  223. ; Scroll menu added by rlw
  224. ;---------------------------------------------------------------------------
  225. ;                   *****   SCROLL MENU  *****
  226.    ScrlMenu: MENU "Scroll Back Options" , 10, 22, 116
  227. ;
  228.        OPTION "Up one page (LR Buttons)", PgUp
  229.        OPTION "Down one page (LMR buttons)", PgDn
  230.        OPTION "Top of Scroll", Home
  231.        OPTION "Bottom of Scroll", End
  232.        OPTION "Save the Scroll Buffer to a File", S
  233.        OPTION "Clear the Scroll Buffer", C
  234.        OPTION "Exit Scroll Mode", Escape
  235.        OPTION "Cancel", NOTHING
  236.    MEND
  237. ;   
  238. ;---------------------------------------------------------------------------
  239. ; Online menu added by rlw
  240. ;---------------------------------------------------------------------------
  241. ;                   *****   ON LINE MENU  *****
  242.    OnLineMenu: MENU "On Line Menu" , 5, 50, 116
  243. ;
  244.        OPTION "Main Menu", MainMenu
  245.        OPTION "[F]iles", F
  246.        OPTION "[M]essages", M
  247.        OPTION "[N]ew", N
  248.        OPTION "[R]emember", R
  249.        OPTION "[D]ownLoad", D
  250.        OPTION "[U]pLoad", U
  251.        OPTION "[Q]uit this Section", Q
  252.        OPTION "[G]oodbye", G
  253.        OPTION "Cancel", NOTHING
  254.    MEND
  255. ;
  256. ;---------------------------------------------------------------------------
  257. ;                   *****  DL PROTOCOL MENU   *****
  258. ;                     ADD PROTOCOLS AS NEEDED 
  259. ;
  260.  
  261.    DLPRO: POPUP 3, 29, 23
  262.       TEXT "    Ascii               "
  263.       TEXT "    Xmodem              "
  264.       TEXT "    Xmodem CRC          "
  265.       TEXT "    Xmodem Relaxed      "
  266.       TEXT "    Xmodem-1K           "
  267.       TEXT "    Ymodem Batch        "
  268.       TEXT "    Zmodem Batch        "
  269.       TEXT "    Ymodem-1K/G         "
  270.       TEXT "    Ymodem/G Batch      "
  271.       TEXT "══════[ External ]══════"
  272.       TEXT "    Puma                "
  273.       TEXT "    PC Kermit           "
  274.       TEXT "    WXmodem             "
  275.       TEXT "    Xmodem-O DSZ        "
  276.       TEXT "    True Ymod-G         "
  277.       TEXT "    Zmodem DSZ          "
  278.       TEXT "    MegaLink            "
  279.       TEXT "    Jmodem              "
  280.       TEXT "    CANCEL              "
  281. ;
  282.       SELECT 1, 4, 16, A
  283.       SELECT 2, 4, 16, X
  284.       SELECT 3, 4, 16, C
  285.       SELECT 4, 4, 16, R
  286.       SELECT 5, 4, 16, O
  287.       SELECT 6, 4, 16, Y
  288.       SELECT 7, 4, 16, Z
  289.       SELECT 8, 4, 16, F
  290.       SELECT 9, 4, 16, G
  291.       SELECT 11, 4, 16, P
  292.       SELECT 12, 4, 16, K
  293.       SELECT 13, 4, 16, W
  294.       SELECT 14, 4, 16, V
  295.       SELECT 15, 4, 16, T
  296.       SELECT 16, 4, 16, D
  297.       SELECT 17, 4, 16, M
  298.       SELECT 18, 4, 16, J
  299.       SELECT 19, 4, 16, ESCAPE
  300. ;
  301.    PEND
  302. ;---------------------------------------------------------------------------
  303. ;
  304. ;                   *****  UL PROTOCOL MENU   *****
  305. ;                     ADD PROTOCOLS AS NEEDED 
  306. ;
  307. ;
  308.    ULPRO: POPUP 2, 29, 23
  309.       TEXT "    Ascii               "
  310.       TEXT "    Xmodem              "
  311.       TEXT "    Xmodem CRC          "
  312.       TEXT "    Xmodem Relaxed      "
  313.       TEXT "    Xmodem-1K           "
  314.       TEXT "    Ymodem Batch        "
  315.       TEXT "    Zmodem Batch        "
  316.       TEXT "    Ymodem-1K/G         "
  317.       TEXT "    Ymodem/G Batch      "
  318.       TEXT "══════[ External ]══════"
  319.       TEXT "    Puma                "
  320.       TEXT "    PC Kermit           "
  321.       TEXT "    WXmodem             "
  322.       TEXT "    Xmodem Ovthr        "
  323.       TEXT "    True Ymod-G         "
  324.       TEXT "    Zmodem DSZ          "
  325.       TEXT "    MegaLink            "
  326.       TEXT "    Jmodem              "
  327.       TEXT "    CANCEL              "
  328. ;
  329.       SELECT 1, 4, 16, A
  330.       SELECT 2, 4, 16, X
  331.       SELECT 3, 4, 16, C
  332.       SELECT 4, 4, 16, R
  333.       SELECT 5, 4, 16, O
  334.       SELECT 6, 4, 16, Y
  335.       SELECT 7, 4, 16, Z
  336.       SELECT 8, 4, 16, F
  337.       SELECT 9, 4, 16, G
  338.       SELECT 11, 4, 16, P
  339.       SELECT 12, 4, 16, K
  340.       SELECT 13, 4, 16, W
  341.       SELECT 14, 4, 16, V
  342.       SELECT 15, 4, 16, T
  343.       SELECT 16, 4, 16, D
  344.       SELECT 17, 4, 16, M
  345.       SELECT 18, 4, 16, J
  346.       SELECT 19, 4, 16, ESCAPE
  347. ;
  348.    PEND
  349. ;---------------------------------------------------------------------------
  350. ;
  351. ;      *****   KEY DEFINITIONS FOR MENU CALLS   ***
  352. ;
  353.    K1:        TYPE "1"     ; rlw
  354.    K2:        TYPE "2"     ;  "
  355.    K3:        TYPE "3"     ;  "
  356.    K4:        TYPE "4"     ; rlw
  357.    A:         TYPE "A"
  358.    ALT2:      TYPE 0,121
  359.    ALT4:      TYPE 0,123
  360.    ALTA:      TYPE 0,30
  361.    ALT9:      TYPE 0,128     ; rlw
  362.    ALTB:      TYPE 0,48
  363.    ALTC:      TYPE 0,46
  364.    ALTD:      TYPE 0,32
  365.    ALTE:      TYPE 0,18
  366.    ALTEQ:     TYPE 0,131
  367.    ALTF:      TYPE 0,33
  368.    ALTG:      TYPE 0,34
  369.    ALTH:      TYPE 0,35
  370.    ALTJ:      TYPE 0,36
  371.    ALTK:      TYPE 0,37
  372.    ALTL:      TYPE 0,38
  373.    ALTM:      TYPE 0,50
  374.    ALTN:      TYPE 0,49
  375.    ALTO:      TYPE 0,24
  376.    ALTP:      TYPE 0,25
  377.    ALTQ:      TYPE 0,16
  378.    ALTR:      TYPE 0,19
  379.    ALTS:      TYPE 0,31
  380.    ALTT:      TYPE 0,20
  381.    ALTU:      TYPE 0,22
  382.    ALTV:      TYPE 0,47
  383.    ALTW:      TYPE 0,17
  384.    ALTX:      TYPE 0,45
  385.    ALTY:      TYPE 0,21
  386.    ALTZ:      TYPE 0,44
  387.    ALT0:      TYPE 0,129
  388.    ALT1:      TYPE 0,120
  389.    ALT8:      TYPE 0,127
  390.    B:         TYPE "B"
  391.    C:         TYPE "C"
  392.    D:         TYPE "D"
  393.    CTLHM:     TYPE 0,119
  394.    END:       TYPE 0,79     ;rlw mod
  395.    CTLEND:    TYPE 0,117
  396.    CTLPRTSCR: TYPE 0,114
  397.    ESCAPE:    TYPE ESC
  398.    ESCAPE2:   TYPE ESC,ESC      ;rlw
  399.    EXIT:      TYPE "EXIT",ENTER
  400.    F:         TYPE "F"
  401.    G:         TYPE "G"
  402.    HOME:      TYPE 0,71
  403.    J:         TYPE "J"
  404.    K:         TYPE "K"
  405.    L:         TYPE "L"
  406.    M:         TYPE "M"
  407.    N:         TYPE "N"
  408.    NOTHING:   NOTHING
  409.    O:         TYPE "O"
  410.    PGDN:      TYPE 0,81
  411.    PGUP:      TYPE 0,73
  412.    P:         TYPE "P"
  413.    Q:         TYPE "Q"  ;RLW
  414.    R:         TYPE "R"
  415.    REVPRE:    TYPE "E"
  416.    SPACE:     TYPE " "
  417.    S:         TYPE "S"
  418.    T:         TYPE "T"
  419.    SHIFTTAB:  TYPE 0,15
  420.    U:         TYPE "U"    ;RLW
  421.    V:         TYPE "V"
  422.    W:         TYPE "W"
  423.    X:         TYPE "X"
  424.    Y:         TYPE "Y"
  425.    Z:         TYPE "Z"
  426.    F1:        TYPE 0,59
  427.    F2:        TYPE 0,60
  428.    F6:        TYPE 0,64
  429.    F10:       TYPE 0,68
  430. ;
  431. ;---------------------------------------------------------------------------
  432.