home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / c9qm41b.zip / QMODEM.DEF next >
Text File  |  1989-11-12  |  25KB  |  657 lines
  1. ; LOGITECH LOGIMOUSE C7/C9 Menu for Qmodem 4.1b
  2. ;
  3. ; * * * * Written 6 March 1989 by Maurice A. Crouse * * * *
  4. ; * * * * Revised 12 November 1989 by Steven G. Bradley for Qmodem 4.1b * * * *
  5. ;
  6. ; Updated screens (commands menu, terminal emulation, etc) for Qmodem 4.1b. 
  7. ;
  8. ; Added 43/50 line support (EGA/VGA modes).
  9. ;
  10. ; Fixed help function, pressing all three buttons in terminal mode will take
  11. ; you to the commands menu, pressing all three again will get you help.  Press
  12. ; the middle button and select the function you need help with.  The original
  13. ; release of this menu did not correctly support this help feature.
  14. ;
  15. ; If status line is turned off, the mouse command menues are also disabled.
  16. ;
  17. ; Numerous other changes / menu additions such as script debug support,
  18. ; page up and down using left and middle / middle and right buttons when in
  19. ; the phone directory.  Middle button used as F10 write updated entries key
  20. ; in phone prefixes and phone directory entries.  Allows scrolling with
  21. ; mouse through previous screen data.
  22. ;
  23. ; The com port, baud rate selection, and terminal type menues no longer show
  24. ; an unreal "fixed" configuration when in a mouse menu.
  25. ;
  26. ; I have included Zmodem, PC-Kermit, SEAlink, WXmodem, and JModem as part of
  27. ; the defined options.  You may change these to suit your needs.  I have
  28. ; included them since they are fairly standard protocols.
  29. ;
  30. BEGIN leftb, midb, rightb, mousel, mouser, mouseu, moused, 16, 16
  31.  
  32. CHORDS lmb, lrb, mrb, allb
  33.  
  34. ; ---------Left Button-------
  35.  
  36. leftb:    type ENTER                                  ; RETURN character
  37.  
  38. ; ---------Middle Button-----
  39.  
  40. midb:     match 1,33,,"Upload",proto1,download        ; check for upload menu
  41. download: match 1,32,,"Download",proto2,clrentry      ; check for download menu
  42. clrentry: match 13,29,,"Clear Entries",clear,prefix3  ; check for clear entries
  43. prefix3:  match 6,32,,"Edit Prefixes",f10,revise3     ; Save prefixes
  44. revise3:  match 6,35,,"Revise Entry",f10,phone        ; Save entry info
  45. phone:    match 15,37,,"Commands",phonemenu,phone2    ; check for phone book
  46. phone2:   match 25,37,,"Commands",phonemnu2,dial      ; check for phone book
  47. dial:     match 15,37,,"Redialer",dialmenu,dial2      ; check for dial menu
  48. dial2:    match 25,37,,"Redialer",dialmenu,fkey       ; check for 43/50 line
  49. fkey:     match 25,30,,"Display",fkeymenu,param       ; check for function keys
  50. param:    match 25,10,,"Letter",parammenu,param2      ; check for parameters screen
  51. param2:   match 43,10,,"Letter",parammenu,param3      ; 43 line mode
  52. param3:   match 50,10,,"Letter",parammenu,port        ; 50 line mode
  53. port:     match 25,39,,"COM",portmenu,port2           ; check for port menu
  54. port2:    match 43,39,,"COM",portmenu,port3           ; 43 line mode
  55. port3:    match 50,39,,"COM",portmenu,scroll          ; 50 line mode
  56. scroll:   match 25,5,,"SCROLL",scrollmenu,scroll7     ; check for scrollback
  57. scroll7:  match 43,5,,"SCROLL",scrollmenu,scroll8     ; 43 lines
  58. scroll8:  match 50,5,,"SCROLL",scrollmenu,emulate     ; 50 lines
  59. emulate:  match 7,29,,"Terminal Emul",emmenu,xlate    ; check for emulation
  60. xlate:    match 25,32,,"Translate",xlatemenu,main1    ; check for xlate table
  61. main1:    match 25,36,,"=?",main,main2                ; check for main screen
  62. main2:    match 43,36,,"=?",main,main3                ; if 43 line screen
  63. main3:    match 50,36,,"=?",main,main4                ; if 50 line screen
  64. main4:    match 1,35,,"COMMAND MENU",main,script1     ; if from command display
  65. script1:  match 25,19,,"[S] Single",script,script2    ; if script
  66. script2:  match 43,19,,"[S] Single",script,script3    ; 43 column mode
  67. script3:  match 50,19,,"[S] Single",script,step1      ; 50 column mode
  68. step1:    match 25,2,,"[SPACE]",step,step2           ; if script single step
  69. step2:    match 43,2,,"[SPACE]",step,step3           ; 43 column mode
  70. step3:    match 50,2,,"[SPACE]",step,null            ; 50 column mode
  71.  
  72. ; ---------Right Button------
  73.  
  74. rightb:   type 27                                     ; ESCAPE character
  75.  
  76. ; ---------Mouse Left--------
  77.  
  78. mousel:   match 3,34,,"Strip",left,strip2             ; check for xlate(in)
  79. strip2:   match 3,35,,"Strip",left,setup2             ; check for xlate(out)
  80. setup2:   match 1,36,,"Setup",left,dnld1              ; check for setup menu
  81. dnld1:    match 25,19,,"Download",left,dnld2          ; check for dnld
  82. dnld2:    match 43,19,,"Download",left,dnld3          ; check for dnld
  83. dnld3:    match 50,19,,"Download",left,upld1          ; check for dnld
  84. upld1:    match 25,20,,"Upload",left,upld2          ; check for upld
  85. upld2:    match 43,20,,"Upload",left,upld3          ; check for upld
  86. upld3:    match 50,20,,"Upload",left,null             ; check for upld
  87.  
  88. ; ---------Mouse Right-------
  89.  
  90. mouser:   match 3,34,,"Strip",right,strip3            ; check for xlate(in)
  91. strip3:   match 3,35,,"Strip",right,setup3            ; check for xlate(out)
  92. setup3:   match 1,36,,"Setup",right,dnld4             ; check for setup menu
  93. dnld4:    match 25,19,,"Download",right,dnld5          ; check for dnld
  94. dnld5:    match 43,19,,"Download",right,dnld6          ; check for dnld
  95. dnld6:    match 50,19,,"Download",right,upld4          ; check for dnld
  96. upld4:    match 25,20,,"Upload",right,upld5          ; check for upld
  97. upld5:    match 43,20,,"Upload",right,upld6          ; check for upld
  98. upld6:    match 50,20,,"Upload",right,null            ; check for upld
  99.  
  100. ; ---------Mouse Up----------
  101.  
  102. mouseu:   match 25,15,,"PgDn",pgup,chkphbku           ; check for scrollback
  103. chkphbku: match 15,37,,"Commands",up,chkphbk2         ; check for phone book
  104. chkphbk2: match 25,37,,"Commands",up,stripcku         ; check for 43/50 line
  105. stripcku: match 3,34,,"Strip",up, strip4              ; check for xlate(in)
  106. strip4:   match 3,35,,"Strip",up,setup4               ; check for xlate(out)
  107. setup4:   match 1,36,,"Setup",up,prefix1              ; check for setup menu
  108. prefix1:  match 6,32,,"Edit Prefixes",up,revise1      ; check for edit prefix menu
  109. revise1:  match 6,35,,"Revise Entry",up,viewdir1      ; check for revise entry
  110. viewdir1: match 25,5,,"[Arrows]",up,viewdir2          ; check for view dir
  111. viewdir2: match 43,5,,"[Arrows]",up,viewdir3          ; check for view dir
  112. viewdir3: match 50,5,,"[Arrows]",up,scroll1           ; check for view dir
  113. scroll1:  match 25,5,,"SCROLL",up,scroll2             ; check for scrolling
  114. scroll2:  match 43,5,,"SCROLL",up,scroll3             ; 43 line mode
  115. scroll3:  match 50,5,,"SCROLL",up,dnld7               ; 50 line mode
  116. dnld7:    match 25,19,,"Download",up,dnld8          ; check for dnld
  117. dnld8:    match 43,19,,"Download",up,dnld9          ; check for dnld
  118. dnld9:    match 50,19,,"Download",up,upld7          ; check for dnld
  119. upld7:    match 25,20,,"Upload",up,upld8          ; check for upld
  120. upld8:    match 43,20,,"Upload",up,upld9          ; check for upld
  121. upld9:    match 50,20,,"Upload",up,null               ; check for upld
  122.  
  123. ; ---------Mouse Down--------
  124.  
  125. moused:   match 25,15,,"PgDn",pgdn,chkphbkd           ; check for scrollback
  126. chkphbkd: match 15,37,,"Commands",down,chkphbk3       ; check for phone book
  127. chkphbk3: match 25,37,,"Commands",down,stripckd       ; check for 43/50 line
  128. stripckd: match 3,34,,"Strip",down,strip5             ; check for xlate(in)
  129. strip5:   match 3,35,,"Strip",down,setup5             ; check for xlate(out)
  130. setup5:   match 1,36,,"Setup",down,prefix2            ; check for setup menu
  131. prefix2:  match 6,32,,"Edit Prefixes",down,revise2    ; check for edit prefix menu
  132. revise2:  match 6,35,,"Revise Entry",down,viewdir4    ; check for revise entry
  133. viewdir4: match 25,5,,"[Arrows]",down,viewdir5        ; check for view dir
  134. viewdir5: match 43,5,,"[Arrows]",down,viewdir6        ; check for view dir
  135. viewdir6: match 50,5,,"[Arrows]",down,scroll4         ; check for view dir
  136. scroll4:  match 25,5,,"SCROLL",down,scroll5           ; check for scrolling
  137. scroll5:  match 43,5,,"SCROLL",down,scroll6           ; 43 line mode
  138. scroll6:  match 50,5,,"SCROLL",down,dnld10            ; 50 line mode
  139. dnld10:   match 25,19,,"Download",down,dnld11         ; check for dnld
  140. dnld11:   match 43,19,,"Download",down,dnld12          ; check for dnld
  141. dnld12:   match 50,19,,"Download",down,upld10          ; check for dnld
  142. upld10:   match 25,20,,"Upload",down,upld11          ; check for upld
  143. upld11:   match 43,20,,"Upload",down,upld12          ; check for upld
  144. upld12:   match 50,20,,"Upload",down,null             ; check for upld
  145.  
  146. ; ---------Chords------------
  147.  
  148. lmb:      match 15,37,,"Commands",pgdn,lmb1 ; check for phone book
  149. lmb1:     match 25,37,,"Commands",pgdn,y    ; 43/50 line mode
  150.  
  151. lrb:      type 32                           ; SPACE response -- use for tagging
  152.  
  153. mrb:      match 15,37,,"Commands",pgup,mrb1 ; check for phone book
  154. mrb1:     match 25,37,,"Commands",pgup,n    ; 43/50 line mode
  155.  
  156. allb:     match 25,36,,"=?",allb4,allb1     ; check for main screen
  157. allb1:    match 43,36,,"=?",allb4,allb2     ; if 43 line screen
  158. allb2:    match 50,36,,"=?",allb4,allb3     ; if 50 line screen
  159. allb3:    type 0,59                         ; F1 -- HELP
  160. allb4:    type 0,71                         ; go to command menu first
  161.  
  162. ; ---------MAIN MENU----------
  163.  
  164. main:   popup 1,1,79
  165. text "╒════════════════════════════════ COMMAND MENU ════════════════════════════════╕"
  166. text "│ ─────────────────── BEFORE ───────────────────    ──────── TOGGLES ───────── │"
  167. text "│ Alt-D  Phone Directory   Alt-G  Term Emulation    Alt-0  Session Log         │"
  168. text "│ ─────────────────── DURING ───────────────────    Alt-1  Backspace DEL/^H    │"
  169. text "│ Alt-C  Clear Screen      ^Home  Capture File      Alt-5  Host Mode           │"
  170. text "│ Alt-F  Execute Script    ^End   Send BREAK        Alt-8  Hi-Bit Stripping    │"
  171. text "│ Alt-Q  QuickLearn Mode    PgUp  Upload Files      Alt-9  Printer Echo        │"
  172. text "│ Alt-S  Split Screen       PgDn  Download Files    Alt-B  Beeps and Bells     │"
  173. text "│ Alt-T  Screen Dump       ^PgUp  PgUp (alternate)  Alt-E  Half/Full Duplex    │"
  174. text "│       Scroll-back       ^PgDn  PgDn (alternate)  Alt-I  Order Information   │"
  175. text "│ ─────────────────── AFTER ────────────────────    Alt-M  ANSI Music Playing  │"
  176. text "│ Alt-H  Hang-up Modem     Alt-X  Exit Qmodem       Alt-U  Scroll-back Record  │"
  177. text "│                                                   Alt-Z  Xon/Xoff Flow-ctrl. │"
  178. text "│ ─────────────────── SETUP ────────────────────    Alt-=  DoorWay Mode        │"
  179. text "│ Alt-A  Translate Tables  Alt-N  Configure Qmodem  Alt--  Status Line         │"
  180. text "│ Alt-J  Function Keys     Alt-P  Change Baud Rate  ShTab  CR/CRLF Mode        │"
  181. text "│ Alt-K  Change COM Port                            Alt-2  80x25 (EGA/VGA)     │"
  182. text "│                                                   Alt-4  80x43/50 (EGA/VGA)  │"
  183. text "│ ──────────────────── DOS ─────────────────────    ─────── COPYRIGHT ──────── │"
  184. text "│ Alt-L  Change Drive      Alt-V  View/Edit File    The Forbin Project, Inc.   │"
  185. text "│ Alt-O  Change Directory  Alt-W  List Directory    Post Office Box 702        │"
  186. text "│ Alt-R  DOS Shell         Alt-Y  Delete a File     Cedar Falls, IA  50613     │"
  187. text "│                                                                              │"
  188. text "╘════════════ Qmodem SST Version 4.1b Production  Compiled 10/06/89 ═══F1 Help═╛"
  189. select  3,  3, 24, altd
  190. select  5,  3, 24, altc
  191. select  6,  3, 24, altf
  192. select  7,  3, 24, altq
  193. select  8,  3, 24, alts
  194. select  9,  3, 24, altt
  195. select 10,  3, 24, up
  196. select 12,  3, 24, alth
  197. select 15,  3, 24, alta
  198. select 16,  3, 24, altj
  199. select 17,  3, 24, altk
  200. select 20,  3, 24, altl
  201. select 21,  3, 24, alto
  202. select 22,  3, 24, altr
  203. select  3, 28, 23, altg
  204. select  5, 28, 23, ctrlhome
  205. select  6, 28, 23, ctrlend
  206. select  7, 28, 23, pgup
  207. select  8, 28, 23, pgdn
  208. select  9, 28, 23, ctrlpgup
  209. select 10, 28, 23, ctrlpgdn
  210. select 12, 28, 23, altx
  211. select 15, 28, 23, altn
  212. select 16, 28, 23, altp
  213. select 20, 28, 23, altv
  214. select 21, 28, 23, altw
  215. select 22, 28, 23, alty
  216. select  3, 53, 26, alt0
  217. select  4, 53, 26, alt1
  218. select  5, 53, 26, alt5
  219. select  6, 53, 26, alt8
  220. select  7, 53, 26, alt9
  221. select  8, 53, 26, altb
  222. select  9, 53, 26, alte
  223. select 10, 53, 26, alti
  224. select 11, 53, 26, altm
  225. select 12, 53, 26, altu
  226. select 13, 53, 26, altz
  227. select 14, 53, 26, altequal
  228. select 15, 53, 26, altminus
  229. select 16, 53, 26, shfttab
  230. select 17, 53, 26, alt2
  231. select 18, 53, 26, alt4
  232. pend
  233.  
  234. ; ---------CLEAR ENTRIES / NOTES----
  235.  
  236. clear: popup 13, 25, 79
  237. text "╒══ Clear Entries and/or Notes ══╕"
  238. text "│                                │"
  239. text "│      1.  Notes Only            │"
  240. text "│      2.  Entries & Notes       │"
  241. text "│    ESC.  Return to Directory   │"
  242. text "│                                │"
  243. text "│ Your Choice ?                  │"
  244. text "╘════════════════════════F1 Help═╛"
  245. select 3, 6, 4, no1
  246. select 4, 6, 4, no2
  247. select 5, 6, 4, esc
  248. pend
  249.  
  250. ; ---------PHONE MENU---------------
  251.  
  252. phonemenu:   popup 15,1,79
  253. text "╞══════════════════════════════════ Commands ══════════════════════════════════╡"
  254. text "│            Entries                    Dial                   FON             │"
  255. text "│   ^SP/SP - Tag-P/Tag-Untag    ENTER - Starts Dialing     F - Find Text       │"
  256. text "│     ^C/C - Clear Tagged         ESC - Cancel/Exit        A - Find Again      │"
  257. text "│        E - Edit Prefixes          M - Manual Dial        L - Load            │"
  258. text "│        Q - QuickLearn                                    O - Other Info      │"
  259. text "│     ^R/R - Revise                     Edit            ^P/P - Print 132/80    │"
  260. text "│        T - Tag Multiple           N - Attached Note      S - Sort            │"
  261. text "│        U - Untag All              V - Linked Script     ^U - Undo            │"
  262. text "╘════════════════════════════════════════════════════════════════════F1 Help═══╛"
  263. select 3, 5,  24, space
  264. select 4, 5,  24, c
  265. select 5, 5,  24, e
  266. select 6, 5,  24, q
  267. select 7, 5,  24, r
  268. select 8, 5,  24, t
  269. select 9, 5,  24, u
  270. select 3, 33, 23, cr
  271. select 4, 33, 23, esc
  272. select 5, 33, 23, m
  273. select 8, 33, 23, n
  274. select 9, 33, 23, v
  275. select 3, 57, 20, f
  276. select 4, 57, 20, a
  277. select 5, 57, 20, l
  278. select 6, 57, 20, o
  279. select 7, 57, 20, p
  280. select 8, 57, 20, s
  281. select 9, 57, 20, ctrlu
  282. pend
  283.  
  284. ; ---------PHONE MENU for 43/50 line screens ---------------
  285.  
  286. phonemnu2:   popup 25,1,79
  287. text "╞══════════════════════════════════ Commands ══════════════════════════════════╡"
  288. text "│            Entries                    Dial                   FON             │"
  289. text "│   ^SP/SP - Tag-P/Tag-Untag    ENTER - Starts Dialing     F - Find Text       │"
  290. text "│     ^C/C - Clear Tagged         ESC - Cancel/Exit        A - Find Again      │"
  291. text "│        E - Edit Prefixes          M - Manual Dial        L - Load            │"
  292. text "│        Q - QuickLearn                                    O - Other Info      │"
  293. text "│     ^R/R - Revise                     Edit            ^P/P - Print 132/80    │"
  294. text "│        T - Tag Multiple           N - Attached Note      S - Sort            │"
  295. text "│        U - Untag All              V - Linked Script     ^U - Undo            │"
  296. text "╘════════════════════════════════════════════════════════════════════F1 Help═══╛"
  297. select 3, 5,  24, space
  298. select 4, 5,  24, c
  299. select 5, 5,  24, e
  300. select 6, 5,  24, q
  301. select 7, 5,  24, r
  302. select 8, 5,  24, t
  303. select 9, 5,  24, u
  304. select 3, 33, 23, cr
  305. select 4, 33, 23, esc
  306. select 5, 33, 23, m
  307. select 8, 33, 23, n
  308. select 9, 33, 23, v
  309. select 3, 57, 20, f
  310. select 4, 57, 20, a
  311. select 5, 57, 20, l
  312. select 6, 57, 20, o
  313. select 7, 57, 20, p
  314. select 8, 57, 20, s
  315. select 9, 57, 20, ctrlu
  316. pend
  317.  
  318. ; ---------DIAL/REDIAL MENU----------
  319.  
  320. dialmenu: popup 1,26,79
  321. text "╔═[   Dial/Redial    ]═╗"
  322. text "║ [C]ycle Next         ║"
  323. text "║ [K]ill Current       ║"
  324. text "║ [X]tend Cycle        ║"
  325. text "║ [ESC] Exit           ║"
  326. text "╚══════════════════════╝"
  327. select 2, 3, 14, c
  328. select 3, 3, 14, k
  329. select 4, 3, 14, x
  330. select 5, 3, 14, esc
  331. pend
  332.  
  333. ;------------PROTOCOLS MENUS---------
  334.  
  335. proto1:   popup 1,28,79
  336. text "╒═══ Upload Protocols ═══╕"
  337. text "│ A - Ascii              │"
  338. text "│ X - Xmodem             │"
  339. text "│ C - Xmodem CRC         │"
  340. text "│ R - Xmodem Relaxed     │"
  341. text "│ O - Xmodem-1K          │"
  342. text "│ Y - Ymodem (batch)     │"
  343. text "│ F - Xmodem-1K/G        │"
  344. text "│ G - Ymodem/G (batch)   │"
  345. text "╞═══════ External ═══════╡"
  346. text "│ Z - Zmodem             │"
  347. text "│ K - PC-Kermit          │"
  348. text "│ S - SEAlink            │"
  349. text "│ W - WXmodem            │"
  350. text "│ J - JModem             │"
  351. text "│                        │"
  352. text "│                        │"
  353. text "│                        │"
  354. text "│                        │"
  355. text "│                        │"
  356. text "│ Your Choice ?          │"
  357. text "╘════════════════F1 Help═╛"
  358. select  2, 3, 20, a
  359. select  3, 3, 20, x
  360. select  4, 3, 20, c
  361. select  5, 3, 20, r
  362. select  6, 3, 20, o
  363. select  7, 3, 20, y
  364. select  8, 3, 20, f
  365. select  9, 3, 20, g
  366. select 11, 3, 20, z
  367. select 12, 3, 20, k
  368. select 13, 3, 20, s
  369. select 14, 3, 20, w
  370. select 15, 3, 20, j
  371. pend
  372.  
  373. proto2:   popup 1,28,79
  374. text "╒══ Download Protocols ══╕"
  375. text "│                        │"
  376. text "│ A - Ascii              │"
  377. text "│ X - Xmodem             │"
  378. text "│ C - Xmodem CRC         │"
  379. text "│ R - Xmodem Relaxed     │"
  380. text "│ O - Xmodem-1K          │"
  381. text "│ Y - Ymodem (batch)     │"
  382. text "│ F - Xmodem-1K/G        │"
  383. text "│ G - Ymodem/G (batch)   │"
  384. text "╞═══════ External ═══════╡"
  385. text "│ Z - Zmodem             │"
  386. text "│ K - PC-Kermit          │"
  387. text "│ S - SEAlink            │"
  388. text "│ W - WXmodem            │"
  389. text "│ J - JModem             │"
  390. text "│                        │"
  391. text "│                        │"
  392. text "│                        │"
  393. text "│                        │"
  394. text "│                        │"
  395. text "│ Your Choice ?          │"
  396. text "╘════════════════F1 Help═╛"
  397. select  3,  3, 20, a
  398. select  4,  3, 20, x
  399. select  5,  3, 20, c
  400. select  6,  3, 20, r
  401. select  7,  3, 20, o
  402. select  8,  3, 20, y
  403. select  9,  3, 20, f
  404. select 10,  3, 20, g
  405. select 12,  3, 20, z
  406. select 13 , 3, 20, k
  407. select 14,  3, 20, s
  408. select 15,  3, 20, w
  409. select 16,  3, 20, j
  410. pend
  411.  
  412. ;-----------EMULATION MENU-----------
  413.  
  414. emmenu: popup 7,25,79
  415. text "╒══ Terminal Emulation ══╕"
  416. text "│                        │"
  417. text "│ A - TTY                │"
  418. text "│ B - ANSI               │"
  419. text "│ C - VT100              │"
  420. text "│ D - TVI 925            │"
  421. text "│ E - DEBUG ASCII        │"
  422. text "│ F - DEBUG HEX          │"
  423. text "│ G - AVATAR             │"
  424. text "│                        │"
  425. text "│ Your Choice ?          │"
  426. text "╘════════════════F1 Help═╛"
  427. select 3, 3, 15, a
  428. select 4, 3, 15, b
  429. select 5, 3, 15, c
  430. select 6, 3, 15, d
  431. select 7, 3, 15, e
  432. select 8, 3, 15, f
  433. select 9, 3, 15, g
  434. pend
  435.  
  436. ; ----------SCRIPT DEBUG MODE----------
  437.  
  438. script: popup 7, 26, 79
  439. text " ╒══ Script Debug Menu ══╕ "
  440. text " │                       │ "
  441. text " │   [S]  Single-step    │ "
  442. text " │   [T]  Trace          │ "
  443. text " │   [G]  Go             │ "
  444. text " │   [A]  Abort          │ "
  445. text " │                       │ "
  446. text " │ Your Choice ?         │ "
  447. text " ╘═══════════════F1 Help═╛ "
  448. select 3, 6, 3, s
  449. select 4, 6, 3, t
  450. select 5, 6, 3, g
  451. select 6, 6, 3, a
  452. pend
  453.  
  454. ; ----------SCRIPT SINGLE STEP MODE----------
  455.  
  456. step: popup 7, 23, 79
  457. text " ╒══ Script Single-Step Menu ══╕ "
  458. text " │                             │ "
  459. text " │  [SPACE]  Next Line         │ "
  460. text " │      [T]  Trace             │ "
  461. text " │      [G]  Go                │ "
  462. text " │      [S]  Subst. Line       │ "
  463. text " │      [O]  Orig. Line        │ "
  464. text " │                             │ "
  465. text " │ Your Choice ?               │ "
  466. text " ╘═════════════════════F1 Help═╛ "
  467. select 3, 5, 7, space
  468. select 4, 5, 7, t
  469. select 5, 5, 7, g
  470. select 6, 5, 7, s
  471. select 7, 5, 7, o
  472. pend
  473.  
  474. ; -------FUNCTION KEY MENU-------
  475.  
  476. fkeymenu: popup 19,3,79
  477. text " 1 - Normal   2 - Shift   3 - Ctrl   4 - Alt   L - Load    ESC - Exit       "
  478. select 1,  2, 10, no1
  479. select 1, 15,  9, no2
  480. select 1, 26,  9, no3
  481. select 1, 38,  7, no4
  482. select 1, 47,  9, l
  483. select 1, 59, 11, esc
  484. pend
  485.  
  486. ; --------PARAMETERS MENU-------
  487.  
  488. parammenu: popup 7,10,79
  489. text "╒════════════════════ Set Modem Speed ═════════════════════╕"
  490. text "│                                                          │"
  491. text "│                                                          │"
  492. text "│           Speed             Parity      Data     Stop    │"
  493. text "│   A - 300    E - 9600      H - Even     K - 7    M - 1   │"
  494. text "│   B - 1200   F - 19200     I - Odd      L - 8    N - 2   │"
  495. text "│   C - 2400   G - 38400     J - None                      │"
  496. text "│   D - 4800                                               │"
  497. text "│                                                          │"
  498. text "│                     Your Choice ?                        │"
  499. text "╘══════════════════════════════════════════════════F1 Help═╛"
  500. select 5,  5, 8, a
  501. select 6,  5, 8, b
  502. select 7,  5, 8, c
  503. select 8,  5, 8, d
  504. select 5, 16, 9, e
  505. select 6, 16, 9, f
  506. select 7, 16, 9, g
  507. select 5, 30, 8, h
  508. select 6, 30, 8, i
  509. select 7, 30, 8, j
  510. select 5, 43, 5, k
  511. select 6, 43, 5, l
  512. select 5, 52, 5, m
  513. select 6, 52, 5, n
  514. pend
  515.  
  516. ; --------PORT MENU----------------
  517.  
  518. portmenu: popup 7, 14, 79
  519. text "╒══════════════ Set Active COM Port ═══════════════╕"
  520. text "│                                                  │"
  521. text "│ Available ports are :                            │"
  522. text "│                                                  │"
  523. text "│         1 - COM1:           2 - COM2:            │"
  524. text "│         3 - Undefined       4 - Undefined        │"
  525. text "│         5 - Undefined       6 - Undefined        │"
  526. text "│         7 - Undefined       8 - Undefined        │"
  527. text "│                                                  │"
  528. text "│           Your Choice ?                          │"
  529. text "│                                                  │"
  530. text "╘══════════════════════════════════════════F1 Help═╛"
  531. select 5, 11, 13, no1
  532. select 6, 11, 13, no3
  533. select 7, 11, 13, no5
  534. select 8, 11, 13, no7
  535. select 5, 31, 13, no2
  536. select 6, 31, 13, no4
  537. select 7, 31, 13, no6
  538. select 8, 31, 13, no8
  539. pend
  540.  
  541. ; --------SCROLLBACK MENU---------
  542.  
  543. scrollmenu: menu "Scrollback Menu", 1, 35, 79
  544. option " [F1]  Help ", f1
  545. option " [S]ave     ", s
  546. option " [C]lear    ", c
  547. option " [ESC] Exit ", esc
  548. mend
  549.  
  550. ; ---------TRANSLATE TABLE MENU----
  551.  
  552. xlatemenu: popup 5, 25, 79
  553. text "╒══════ Table Selection ══════╕"
  554. text "│                             │"
  555. text "│    Select Table to Edit     │"
  556. text "│                             │"
  557. text "│         1 -  INPUT          │"
  558. text "│         2 -  OUTPUT         │"
  559. text "│                             │"
  560. text "│  Your Choice ?              │"
  561. text "╘═════════════════════F1 Help═╛"
  562. select 5, 11, 11, no1
  563. select 6, 11, 11, no2
  564. pend
  565.  
  566. ; --------KEY DEFINITIONS----------
  567.  
  568. a:            type "a"
  569. b:            type "b"
  570. c:            type "c"
  571. d:            type "d"
  572. e:            type "e"
  573. f:            type "f"
  574. g:            type "g"
  575. h:            type "h"
  576. i:            type "i"
  577. j:            type "j"
  578. k:            type "k"
  579. l:            type "l"
  580. m:            type "m"
  581. n:            type "n"
  582. o:            type "o"
  583. p:            type "p"
  584. q:            type "q"
  585. r:            type "r"
  586. s:            type "s"
  587. t:            type "t"
  588. u:            type "u"
  589. v:            type "v"
  590. w:            type "w"
  591. x:            type "x"
  592. y:            type "y"
  593. z:            type "z"
  594. alta:         type 0,30
  595. altb:         type 0,48
  596. altc:         type 0,46
  597. altd:         type 0,32
  598. alte:         type 0,18
  599. altf:         type 0,33
  600. altg:         type 0,34
  601. alth:         type 0,35
  602. alti:         type 0,23
  603. altj:         type 0,36
  604. altk:         type 0,37
  605. altl:         type 0,38
  606. altm:         type 0,50
  607. altn:         type 0,49
  608. alto:         type 0,24
  609. altp:         type 0,25
  610. altq:         type 0,16
  611. altr:         type 0,19
  612. alts:         type 0,31
  613. altt:         type 0,20
  614. altu:         type 0,22
  615. altv:         type 0,47
  616. altw:         type 0,17
  617. altx:         type 0,45
  618. alty:         type 0,21
  619. altz:         type 0,44
  620. alt0:         type 0,129
  621. alt1:         type 0,120
  622. alt2:         type 0,121
  623. alt4:         type 0,123
  624. alt5:         type 0,124
  625. alt8:         type 0,127
  626. alt9:         type 0,128
  627. altequal:     type 0,131
  628. altminus:     type 0,130
  629. no1:          type "1"
  630. no2:          type "2"
  631. no3:          type "3"
  632. no4:          type "4"
  633. no5:          type "5"
  634. no6:          type "6"
  635. no7:          type "7"
  636. no8:          type "8"
  637. esc:          type 27
  638. up:           type 0,72
  639. down:         type 0,80
  640. left:         type 0,75
  641. right:        type 0,77
  642. pgup:         type 0,73
  643. pgdn:         type 0,81
  644. home:         type 0,71
  645. ctrlprtsc:    type 0,114
  646. shfttab:      type 0,15
  647. f1:           type 0,59
  648. f10:          type 0,68
  649. ctrlu:        type 0,21
  650. ctrlhome:     type 0,119
  651. ctrlend:      type 0,117
  652. ctrlpgup:     type 0,132
  653. ctrlpgdn:     type 0,118
  654. cr:           type ENTER
  655. space:        type 32
  656. null:         nothing
  657.