home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / QMOUSE2.ZIP / QMODEM.DEF < prev    next >
Encoding:
Text File  |  1987-12-25  |  10.7 KB  |  324 lines
  1. ;QMouse is a Microsoft Mouse Menu for QModem SST. The right mouse
  2. ;button brings up a series of context senstive menus including a
  3. ;"menu" which can be used to dial a number in a QModem phone directory
  4. ;by pointing and clicking the mouse. Enter the QModem dialing directory
  5. ;(from the main mouse menu or by typing ALT-D, CR) and the automatic
  6. ;dialing mode (from the Dial Option menu or by typing "D") and click
  7. ;the right mouse botton. Just click the right mouse buttom five
  8. ;times - its simpler than it sounds. All of the other menus are
  9. ;self-explanatory. In addition the clicking theleft mouse button
  10. ;always type a CR and clicking both mouse buttons type ESC.
  11.  
  12. ;QMouse incorporates the menu system from Mark Lewis' QModemU.
  13. ;The auto dialing feature and modifications for QModem SST were
  14. ;added by R. Saeks - 5/3/87.
  15.  
  16. ;       Set up initial labels for mouse commands
  17. begin return,rb,keyesc,,,,,2,4
  18.  
  19. ;       --------------------Right Button ---------------------------
  20.  
  21. ;       Start QModem if in init mode, else Main menu menu/auto dial
  22.  
  23. rb:  match 25,15,,"Qmodem",Keyspc,redlchk ;Check for initing
  24. redlchk: match 2,9,,"Dial",dialmen,vchkl ;check for redial
  25. vchkl:   match 5,5,,"Filename",keyspc,vchkn ;check for viewdir
  26. vchkn:   match 2,6,,"View a file",keyspc,dlchk ;Check for viewdir
  27. dlchk:   match 2,3,,"Page",dlchk1,menu1 ;Check for dial menu
  28. dlchk1:  match 22,7,,"Number(s)",autodl,dialop ;check for auto dial
  29. ;
  30. ;       Re-Dial menu is displayed if QModem is in redial mode
  31. ;
  32. dialmen: popup 3,45,9
  33.         text "╔═[ Re-Dial ]═══╗"
  34.         text "║  Cycle Call   ║"
  35.         text "║  Delete Call  ║"
  36.         text "║    Abort      ║"
  37.         text "║  Cancel Menu  ║"
  38.         text "╚═══════════════╝"
  39.         select 2,2,15,Keyc
  40.         select 3,2,15,keyd
  41.         select 4,2,15,keyesc
  42.         select 5,2,15
  43.         pend
  44. ;
  45. dialagn: execute keyesc, keydial, keyd, autodl
  46. ;
  47. ;       Initial menu displayed when left button pressed
  48. ;
  49. menu1:  popup 2,32,9
  50.         text "╔═[ Command Menu ]═════════════════════════╗"
  51.         text "║          --- Primary                     ║"
  52.         text "║ Dial Phone           Redial Last Number  ║"
  53.         text "║ SCRIPT Execution     DOS Shell           ║"
  54.         text "║ Hang-Up Modem        Disk Directory      ║"
  55.         text "║ Clear Screen         Exit Qmodem         ║"
  56.         text "║ Change Baud Rates    Secondary Menu      ║"
  57.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-║"
  58.         text "║ Download files       Toggles Menu        ║"
  59.         text "║ Upload Files         Capture File Toggle ║"
  60.         text "║ Scroll Back          Send modem BREAK    ║"
  61.         text "║ Add Linefeed Toggle  Printer echo Toggle ║"
  62.         text "║ Cancel Menu                              ║"
  63.         text "║                                          ║"
  64.         text "╚══════════════════════════════════════════╝"
  65.         select 3,2,21,keydial
  66.         select 4,2,21,keyaltf
  67.         select 5,2,21,keyalth
  68.         select 6,2,21,keyaltc
  69.         select 7,2,21,keyaltp
  70. ;
  71.         select 3,23,21,keyaltq
  72.         select 4,23,21,setdos
  73.         select 5,23,21,keyaltw
  74.         select 6,23,21,exitact
  75.         select 7,23,21,menu2
  76. ;
  77.         select 9,2,21,pgdn
  78.         select 10,2,21,pgup
  79.         select 11,2,21,up
  80.         select 12,2,21,shfttab
  81.         select 13,2,21
  82. ;
  83.         select 9,23,21,menu3
  84.         select 10,23,21,keycthm
  85.         select 11,23,21,keyctnd
  86.         select 12,23,21,keyctpt
  87.         pend
  88. ;
  89. setdos:  execute keyaltr,shellset
  90. shellset:  assign ,shelrb
  91. shelrb: popup 5,5,78
  92.         text "╔═[ DOS Shell ]════╗"
  93.         text "║ Return to Qmodem ║"
  94.         text "║   Cancel Menu    ║"
  95.         text "╚══════════════════╝"
  96.         select 2,2,18,retshell
  97.         select 3,2,18
  98.         pend
  99. ;
  100. retshell: execute shellout,return,noshell
  101. noshell: assign ,rb
  102. ;
  103. menu2:  popup 2,32,9
  104.         text "╔═[ Command Menu ]═════════════════════════╗"
  105.         text "║            -- Secondary --               ║"
  106.         text "║ Translate Table      Change Sub-Dirs     ║"
  107.         text "║ Function Key Set     View a File         ║"
  108.         text "║ Log Drive Change     Delete a File       ║"
  109.         text "║                                          ║"
  110.         text "║                      Primary Menu        ║"
  111.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-║"
  112.         text "║ Download files       Toggles Menu        ║"
  113.         text "║ Upload Files         Capture File Toggle ║"
  114.         text "║ Scroll Back          Send modem BREAK    ║"
  115.         text "║ Add Linefeed Toggle  Printer echo Toggle ║"
  116.         text "║ Cancel Menu                              ║"
  117.         text "║                                          ║"
  118.         text "╚══════════════════════════════════════════╝"
  119.         select 3,2,21,keyalta
  120.         select 4,2,21,keyaltj
  121.         select 5,2,21,keyaltl
  122. ;
  123.         select 3,23,21,keyalto
  124.         select 4,23,21,keyaltv
  125.         select 5,23,21,keyalty
  126.         select 7,23,21,menu1
  127. ;
  128.         select 9,2,21,pgdn
  129.         select 10,2,21,pgup
  130.         select 11,2,21,up
  131.         select 12,2,21,shfttab
  132.         select 13,2,21
  133. ;
  134.         select 9,23,21,menu3
  135.         select 10,23,21,keycthm
  136.         select 11,23,21,keyctnd
  137.         select 12,23,21,keyctpt
  138.         pend
  139.  
  140. menu3:  popup 2,30,14
  141.         text "╔═[ Command Menu ]═════════════════════════╗"
  142.         text "║            --- Toggles ---               ║"
  143.         text "║ Beeps and Bells      ANSI Music Mode     ║"
  144.         text "║ Echo                 Split Screen Mode   ║"
  145.         text "║ ANSI Graphics Mode   Screen Dump         ║"
  146.         text "║ Program Info         Xon / Xoff          ║"
  147.         text "║                      Secondary Menu      ║"
  148.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--║"
  149.         text "║ Download files       Primary Menu        ║"
  150.         text "║ Upload Files         Capture File Toggle ║"
  151.         text "║ Scroll Back          Send modem BREAK    ║"
  152.         text "║ Add Linefeed Toggle  Printer echo Toggle ║"
  153.         text "║ Cancel Menu                              ║"
  154.         text "║                                          ║"
  155.         text "╚══════════════════════════════════════════╝"
  156.         select 3,2,21,keyaltb
  157.         select 4,2,21,keyalte
  158.         select 5,2,21,keyaltg
  159.         select 6,2,21,keyalti
  160. ;
  161.         select 3,23,21,keyaltm
  162.         select 4,23,21,keyalts
  163.         select 5,23,21,keyaltt
  164.         select 6,23,21,keyaltz
  165.         select 7,23,21,menu2
  166. ;
  167.         select 9,2,21,pgdn
  168.         select 10,2,21,pgup
  169.         select 11,2,21,up
  170.         select 12,2,21,shfttab
  171.         select 13,2,21
  172. ;
  173.         select 9,23,21,menu1
  174.         select 10,23,21,keycthm
  175.         select 11,23,21,keyctnd
  176.         select 12,23,21,keyctpt
  177.         pend
  178.  
  179. exitact: execute keyaltx,exitmen
  180.  
  181. exitmen: popup 6,20,78
  182.         text "╔═[ Leave Qmodem ]═╗"
  183.         text "║  Are you SURE?   ║"
  184.         text "║                  ║"
  185.         text "║       Yes        ║"
  186.         text "║       No         ║"
  187.         text "║  Exit connected  ║"
  188.         text "╚══════════════════╝"
  189.         select 4,2,18,Keyy
  190.         select 5,2,18,Keyn
  191.         select 6,2,18,keyx
  192.         pend
  193. ;
  194. ;--------------------Dialing Options Menu-----------------------
  195. ;
  196. dialop: popup 6,45,9
  197.         text "╔═[ Dial Options ]═╗"
  198.         text "║   Auto Dialing   ║"
  199.         text "║      Manual      ║"
  200.         text "║     Page Up      ║"
  201.         text "║    Page Down     ║"
  202.         text "╚══════════════════╝"
  203.         select 2,2,18,Keyd
  204.         select 3,2,18,Keym
  205.         select 4,2,18,pgup
  206.         select 5,2,18,pgdn
  207.         pend
  208. ;
  209. ;-----------------------Auto Dial Menu--------------------------
  210. ;
  211. autodl: popup 3,2,78
  212.     text "  Next Page    Prev Page     Cancel  "
  213.     select 1,1,13, pgdn
  214.     select 1,14,13, pgup
  215.     select 1,27,11
  216.         select 2,1,37, first
  217.         select 3,1,37, second
  218.         select 4,1,37, third
  219.         select 5,1,37, fourth
  220.         select 6,1,37, fifth
  221.         select 7,1,37, sixth
  222.         select 8,1,37, seventh
  223.         select 9,1,37, eigth
  224.         select 10,1,37, ninth
  225.         select 11,1,37, zeroth
  226.         pend
  227. ;
  228. first:   execute hidig19, key1, return
  229. second:  execute hidig19, key2, return
  230. third:   execute hidig19, key3, return
  231. fourth:  execute hidig19, key4, return
  232. fifth:   execute hidig19, key5, return
  233. sixth:   execute hidig19, key6, return
  234. seventh: execute hidig19, key7, return
  235. eigth:   execute hidig19, key8, return
  236. ninth:   execute hidig19, key9, return
  237. zeroth:  execute hidig0, key0, return
  238. ;
  239. hidig19:  match 4,2,," ",midig19, hidig119
  240. hidig119: execute key1, midig19
  241. midig19:  match 4,3,," ",EMPTY, midig119
  242. midig119: match 4,3,,"1",key1,midig219
  243. midig219: match 4,3,,"2",key2,midig319
  244. midig319: match 4,3,,"3",key3,midig419
  245. midig419: match 4,3,,"4",key4,midig519
  246. midig519: match 4,3,,"5",key5,midig619
  247. midig619: match 4,3,,"6",key6,midig719
  248. midig719: match 4,3,,"7",key7,midig819
  249. midig819: match 4,3,,"8",key8,midig919
  250. midig919: match 4,3,,"9",key9,midig019
  251. midig019: execute key0
  252. ;
  253. hidig0:  match 13,2,," ",midig0, hidig10
  254. hidig10: match 13,2,,"1",hidig110,hidig20
  255. hidig110: execute key1, midig0 
  256. hidig20: execute key2, midig0
  257. midig0:  match 13,3,," ",EMPTY, midig10
  258. midig10: match 13,3,,"1",key1,midig20
  259. midig20: match 13,3,,"2",key2,midig30
  260. midig30: match 13,3,,"3",key3,midig40
  261. midig40: match 13,3,,"4",key4,midig50
  262. midig50: match 13,3,,"5",key5,midig60
  263. midig60: match 13,3,,"6",key6,midig70
  264. midig70: match 13,3,,"7",key7,midig80
  265. midig80: match 13,3,,"8",key8,midig90
  266. midig90: match 13,3,,"9",key9,midig00
  267. midig00: execute key0
  268. ;
  269. ;               --- Key Commands ---
  270. ;
  271. shellout: TYPE "EXIT"
  272. keyc:     Type "C"                      ;C
  273. keyd:     Type "D"                      ;D
  274. keyx:     type "X"                      ;X
  275. keyy:     type "Y"                      ;Y
  276. keyn:     type "N"                      ;N
  277. keym:     type "M"
  278. keyesc: type 27                         ;Escape
  279. keyspc: type " "                        ;Space
  280. keyaltc: type 0,46
  281. keydial: type 0,32,13
  282. keyaltf: Type 0,33
  283. keyalth: type 0,35
  284. keyaltp: type 0,25
  285. keyaltq: type 0,16
  286. keyaltr: type 0,19
  287. keyaltw: type 0,17
  288. keyaltx: type 0,45
  289. shfttab: type 0,15
  290. keyalta: type 0,30
  291. keyaltj: type 0,36
  292. keyaltl: type 0,38
  293. keyalto: type 0,24
  294. keyaltv: type 0,47
  295. keyalty: type 0,21
  296. keyaltb: type 0,48
  297. keyalte: type 0,18
  298. keyaltg: type 0,34
  299. keyalti: type 0,23
  300. keyaltm: type 0,50
  301. keyalts: type 0,31
  302. keyaltt: type 0,20
  303. keyaltz: type 0,44
  304. keyctnd: type 0,117
  305. keyctpt: type 0,114
  306. EMPTY: nothing
  307. return:  type 13                 ;return
  308. pgup:    type 0,73
  309. pgdn:    type 0,81
  310. up:      type 0,72
  311. keycthm: type 0,119
  312. key1:    type "1"
  313. key2:    type "2"
  314. key3:    type "3"
  315. key4:    type "4"
  316. key5:    type "5"
  317. key6:    type "6"
  318. key7:    type "7"
  319. key8:    type "8"
  320. key9:    type "9"
  321. key0:    type "0"
  322. MEND
  323.  
  324.