home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / modem / qmodpack / q40logm / qmodem.def < prev    next >
Text File  |  1989-02-25  |  10KB  |  310 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.90
  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/300-9600 bps Hayes
  10. ;
  11. ;                  *****   ASSIGN MOUSE FUNCTIONS   *****
  12. ;
  13. ;------------------------------------------------------------------------
  14. ;
  15. ; ***** USE ALL THE BUTTONS AND MOVEMENTS, ANY CHORDS EXIT FROM MENU *****
  16. ;
  17. ;
  18.    BEGIN  LBUT, MBUT, RBUT, LMOV, RMOV, UPMOV, DMOV, 50, 50
  19.    CHORDS  LMB, LRB, MRB, ALLB
  20. ;
  21. ;*****CHORDS
  22. LMB:    MATCH 15,37,,"Redial",C,Y        ; Enables Cycle or Yes from mouse
  23. LRB:    Execute Pgup                     ; Shortcut to upload menu
  24. MRB:    MATCH 15,37,,"Redial",K,N        ; Enables Kill or No from mouse
  25. ALLB:   Execute Pgdn                     ; Shortcut to download menu
  26. ;
  27. ;
  28. ;------------------------------------------------------------------------
  29. ;
  30. ;                    *****   BUTTON DEFINITIONS   *****
  31. ;
  32.  LBUT:    TYPE ENTER                             ; LEFT BUTTON IS ALWAYS RETURN
  33.  RBUT:    TYPE ESC                               ; RIGHT BUTTON IS ALWAYS ESCAPE
  34.  MBUT:    MATCH 1,36,,"Phone",SPACE,MBUT2        ; MATCH ENABLES MARKING ENTRIES
  35.  MBUT2:   MATCH 1,28,,"╒══ D",DLPRO,MBUT3        ; MATCH CALLS DL PROTOCOL MENU
  36.  MBUT3:   MATCH 1,28,,"╒═══ U",ULPRO,MBUT4       ; MATCH CALLS UL PROTOCOL MENU
  37.  MBUT4:   MATCH 25,1,,"░ ",MAINMENU,MBUT5        ; MATCH CALLS MAIN MENU
  38.  MBUT5:   MATCH 43,1,,"░ ",MAINMENU,MBUT6        ; MATCH CALLS MAIN MENU (EGA)
  39.  MBUT6:   MATCH 50,1,,"░ ",MAINMENU,SHELL        ; MATCH CALLS MAIN MENU (VGA)
  40. ;
  41. ;---------------------------------------------------------------------------
  42. ;
  43. ;          *****   MOVEMENTS   *****
  44. ;
  45.    LMOV:  TYPE 0,75          ; LEFT  ARROW KEY
  46.    RMOV:  TYPE 0,77          ; RIGHT ARROW KEY
  47.    UPMOV: TYPE 0,72          ; UP    ARROW KEY
  48.    DMOV:  TYPE 0,80          ; DOWN  ARROW KEY
  49. ;
  50. ;----------------------------------------------------------------------------
  51. ;
  52. ;                 *****   MAIN POP-UP MENU   *****
  53. ;
  54.    MAINMENU: MENU "Main Menu", 5, 60, 116       ; POP-UP IN UPPER AREA
  55.        OPTION "MODEM", MEN1              ; IF SELECTED, GOTO MEN1
  56.        OPTION "UL/DL", MEN2              ; IF SELECTED, GOTO MEN2
  57.        OPTION "SCREEN", MEN3             ; IF SELECTED, GOTO MEN3
  58.        OPTION "SETUP", MEN4              ; IF SELECTED, GOTO MEN4
  59.        OPTION "FILES", MEN5              ; IF SELECTED, GOTO MEN5
  60.        OPTION "HELP", HOME               ; IF SELECTED, SHOW HELP SCREEN
  61.        OPTION "EXIT", ALTX               ; IF SELECTED, EXIT QMODEM
  62.        OPTION "Cancel", NOTHING          ; IF SELECTED, CANCEL POP-UP
  63.      MEND
  64. ;---------------------------------------------------------------------------
  65. ;
  66. ;                       *****   SUB-MENUS   *****
  67. ;
  68. ;---------------------------------------------------------------------------
  69. ;
  70. ;      ***   MENU 1   ***
  71. ;
  72.    MEN1:  MENU "MODEM", 5, 58, 116
  73. ;  
  74.        OPTION "Dial Phone", ALTD
  75.        OPTION "Echo Toggle", ALTE
  76.        OPTION "LF Toggle", SHIFTTAB
  77.        OPTION "Session Log", ALT0
  78.        OPTION "Printer Echo", CTLPRTSCR
  79.        OPTION "Redial", ALTQ
  80.        OPTION "Script", ALTF
  81.        OPTION "Break", CTLEND
  82.        OPTION "Hang-up", ALTH
  83.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  84.      MEND
  85. ;---------------------------------------------------------------------------
  86. ;
  87. ;      ***   MENU 2   ***
  88. ;
  89.    MEN2: MENU "DL/UL", 5, 58, 116
  90. ;
  91.        OPTION "Download", PGDN
  92.        OPTION "Upload", PGUP
  93.        OPTION "Capture File", CTLHM
  94.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  95.    MEND
  96. ;---------------------------------------------------------------------------
  97. ;
  98. ;      ***   MENU 3   ***
  99. ;
  100.    MEN3: MENU "SCREEN", 5, 58, 116
  101. ;
  102.        OPTION "Clear Screen", ALTC
  103.        OPTION "Scroll Back", ALTU
  104.        OPTION "Split Screen", ALTS
  105.        OPTION "Screen Dump", ALTT
  106.        OPTION "EGA/VGA 25 line", ALT2
  107.        OPTION "EGA/VGA 43/50 line", ALT4
  108.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  109.    MEND
  110. ;---------------------------------------------------------------------------
  111. ;
  112. ;      ***   MENU 4   ***
  113. ;
  114.    MEN4: MENU "SETUP", 5, 58, 116
  115. ;
  116.        OPTION "Run QINSTALL", ALTN
  117.        OPTION "XON/XOFF", ALTZ
  118.        OPTION "Set Func. Keys", ALTJ
  119.        OPTION "COM Port", ALTK
  120.        OPTION "Music", ALTM
  121.        OPTION "BAUD Rate", ALTP
  122.        OPTION "Beeps & Bells", ALTB
  123.        OPTION "Terminal Emul.", ALTG
  124.        OPTION "Backspace/DEL", ALT1
  125.        OPTION "8-BIT", ALT8
  126.        OPTION "Translation", ALTA
  127.        OPTION "Doorway Mode", ALTEQ
  128.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  129.   MEND
  130. ;---------------------------------------------------------------------------
  131. ;
  132. ;      ***   MENU 5   ***
  133. ;
  134.    MEN5: MENU "FILES", 5, 58, 116
  135. ;
  136.        OPTION "Change Drive", ALTL
  137.        OPTION "Change Subdir", ALTO
  138.        OPTION "DOS Shell", ALTR
  139.        OPTION "View/Edit File", ALTV
  140.        OPTION "Disk DIR", ALTW
  141.        OPTION "Delete File", ALTY
  142.        OPTION "CANCEL", NOTHING            ; IF SELECTED, CANCEL POP-UP
  143.    MEND
  144. ;---------------------------------------------------------------------------
  145. ;                   *****   SHELL MENU  *****
  146.    SHELL: MENU , 15, 58, 116
  147. ;
  148.        OPTION "Exit DOS", EXIT
  149.        OPTION "Remain", NOTHING
  150.    MEND
  151. ;---------------------------------------------------------------------------
  152. ;
  153. ;                   *****  DL PROTOCOL MENU   *****
  154. ;                     ADD PROTOCOLS AS NEEDED 
  155. ;
  156.  
  157.    DLPRO: POPUP 3, 29, 23
  158.       TEXT "    Ascii               "
  159.       TEXT "    Xmodem              "
  160.       TEXT "    Xmodem CRC          "
  161.       TEXT "    Xmodem Relaxed      "
  162.       TEXT "    Xmodem-1K           "
  163.       TEXT "    Ymodem (batch)      "
  164.       TEXT "    Ymodem-1K/G         "
  165.       TEXT "    Ymodem/G (batch)    "
  166.       TEXT "══════[ External ]══════"
  167.       TEXT "    Sealink             "
  168.       TEXT "    PC Kermit           "
  169.       TEXT "    WXmodem             "
  170.       TEXT "    Xmodem Ovthr        "
  171.       TEXT "    True Ymod-G         "
  172.       TEXT "    Zmodem DSZ          "
  173.       TEXT "    MegaLink            "
  174.       TEXT "    Jmodem              "
  175.       TEXT "    CANCEL              "
  176. ;
  177.       SELECT 1, 4, 16, A
  178.       SELECT 2, 4, 16, X
  179.       SELECT 3, 4, 16, C
  180.       SELECT 4, 4, 16, R
  181.       SELECT 5, 4, 16, O
  182.       SELECT 6, 4, 16, Y
  183.       SELECT 7, 4, 16, F
  184.       SELECT 8, 4, 16, G
  185.       SELECT 10, 4, 16, S
  186.       SELECT 11, 4, 16, K
  187.       SELECT 12, 4, 16, W
  188.       SELECT 13, 4, 16, V
  189.       SELECT 14, 4, 16, T
  190.       SELECT 15, 4, 16, Z
  191.       SELECT 16, 4, 16, M
  192.       SELECT 17, 4, 16, J
  193.       SELECT 18, 4, 16, ESCAPE
  194. ;
  195.    PEND
  196. ;---------------------------------------------------------------------------
  197. ;
  198. ;                   *****  UL PROTOCOL MENU   *****
  199. ;                     ADD PROTOCOLS AS NEEDED 
  200. ;
  201.  
  202.    ULPRO: POPUP 2, 29, 23
  203.       TEXT "    Ascii               "
  204.       TEXT "    Xmodem              "
  205.       TEXT "    Xmodem CRC          "
  206.       TEXT "    Xmodem Relaxed      "
  207.       TEXT "    Xmodem-1K           "
  208.       TEXT "    Ymodem (batch)      "
  209.       TEXT "    Ymodem-1K/G         "
  210.       TEXT "    Ymodem/G (batch)    "
  211.       TEXT "══════[ External ]══════"
  212.       TEXT "    Sealink             "
  213.       TEXT "    PC Kermit           "
  214.       TEXT "    WXmodem             "
  215.       TEXT "    Xmodem Ovthr        "
  216.       TEXT "    True Ymod-G         "
  217.       TEXT "    Zmodem DSZ          "
  218.       TEXT "    MegaLink            "
  219.       TEXT "    Jmodem              "
  220.       TEXT "    CANCEL              "
  221. ;
  222.       SELECT 1, 4, 16, A
  223.       SELECT 2, 4, 16, X
  224.       SELECT 3, 4, 16, C
  225.       SELECT 4, 4, 16, R
  226.       SELECT 5, 4, 16, O
  227.       SELECT 6, 4, 16, Y
  228.       SELECT 7, 4, 16, F
  229.       SELECT 8, 4, 16, G
  230.       SELECT 10, 4, 16, S
  231.       SELECT 11, 4, 16, K
  232.       SELECT 12, 4, 16, W
  233.       SELECT 13, 4, 16, V
  234.       SELECT 14, 4, 16, T
  235.       SELECT 15, 4, 16, Z
  236.       SELECT 16, 4, 16, M
  237.       SELECT 17, 4, 16, J
  238.       SELECT 18, 4, 16, ESCAPE
  239. ;
  240.    PEND
  241. ;---------------------------------------------------------------------------
  242. ;
  243. ;      *****   KEY DEFINITIONS FOR MENU CALLS   ***
  244. ;
  245.    A:         TYPE "A"
  246.    ALT2:      TYPE 0,121
  247.    ALT4:      TYPE 0,123
  248.    ALTA:      TYPE 0,30
  249.    ALTB:      TYPE 0,48
  250.    ALTC:      TYPE 0,46
  251.    ALTD:      TYPE 0,32
  252.    ALTE:      TYPE 0,18
  253.    ALTEQ:     TYPE 0,131
  254.    ALTF:      TYPE 0,33
  255.    ALTG:      TYPE 0,34
  256.    ALTH:      TYPE 0,35
  257.    ALTJ:      TYPE 0,36
  258.    ALTK:      TYPE 0,37
  259.    ALTL:      TYPE 0,38
  260.    ALTM:      TYPE 0,50
  261.    ALTN:      TYPE 0,49
  262.    ALTO:      TYPE 0,24
  263.    ALTP:      TYPE 0,25
  264.    ALTQ:      TYPE 0,16
  265.    ALTR:      TYPE 0,19
  266.    ALTS:      TYPE 0,31
  267.    ALTT:      TYPE 0,20
  268.    ALTU:      TYPE 0,22
  269.    ALTV:      TYPE 0,47
  270.    ALTW:      TYPE 0,17
  271.    ALTX:      TYPE 0,45
  272.    ALTY:      TYPE 0,21
  273.    ALTZ:      TYPE 0,44
  274.    ALT0:      TYPE 0,129
  275.    ALT1:      TYPE 0,120
  276.    ALT8:      TYPE 0,127
  277.    B:         TYPE "B"
  278.    C:         TYPE "C"
  279.    D:         TYPE "D"
  280.    CTLHM:     TYPE 0,119
  281.    CTLEND:    TYPE 0,117
  282.    CTLPRTSCR: TYPE 0,114
  283.    ESCAPE:    TYPE ESC
  284.    EXIT:      TYPE "EXIT",ENTER
  285.    F:         TYPE "F"
  286.    G:         TYPE "G"
  287.    HOME:      TYPE 0,71
  288.    J:         TYPE "J"
  289.    K:         TYPE "K"
  290.    L:         TYPE "L"
  291.    M:         TYPE "M"
  292.    N:         TYPE "N"
  293.    NOTHING:   NOTHING
  294.    O:         TYPE "O"
  295.    PGDN:      TYPE 0,81
  296.    PGUP:      TYPE 0,73
  297.    R:         TYPE "R"
  298.    REVPRE:    TYPE "E"
  299.    SPACE:     TYPE " "
  300.    S:         TYPE "S"
  301.    T:         TYPE "T"
  302.    SHIFTTAB:  TYPE 0,15
  303.    V:         TYPE "V"
  304.    W:         TYPE "W"
  305.    X:         TYPE "X"
  306.    Y:         TYPE "Y"
  307.    Z:         TYPE "Z"
  308. ;
  309. ;---------------------------------------------------------------------------
  310.