home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qm42mnu.zip
/
QMODEM.DEF
< prev
next >
Wrap
Text File
|
1990-09-05
|
15KB
|
432 lines
;
; Q m o d e m L o g i m o u s e M e n u
; V e r s i o n 0.99b
;
; SET COLOR FOR MENUS TO MATCH YOUR QMODEM COLOR CHOICES
;
; b y B o b R .
; The Anonymous BBS (414) 251-2580
; 24 hours/1200-9600 bps Hayes Ultra V.32
; FidoNet 1:154/40
; SMALL version without Pop-Up Function Keys
;
; ┌──────────────────────────────────────────────┐
; │ Thanks to Bob Wilcox for │
; │ changes marked "rlw" │
; │ This is how shareware SHOULD work! │
; └──────────────────────────────────────────────┘
;
; ***** ASSIGN MOUSE FUNCTIONS *****
;
;------------------------------------------------------------------------
;
; ***** USE ALL THE BUTTONS AND MOVEMENTS, ANY CHORDS EXIT FROM MENU *****
;
;
BEGIN LBUT, MBUT, RBUT, LMOV, RMOV, UPMOV, DMOV, 50, 50
CHORDS LMB, LRB, MRB, ALLB
;
;*****CHORDS
LMB: MATCH 15,37,,"Redial",C,Y ; Enables Cycle or Yes from mouse
LRB: Execute Pgup ; Shortcut to upload menu
MRB: MATCH 15,37,,"Redial",K,N ; Enables Kill or No from mouse
ALLB: Execute Pgdn ; Shortcut to download menu
;
;
;------------------------------------------------------------------------
;
; ***** BUTTON DEFINITIONS *****
;
LBUT: TYPE ENTER ; LEFT BUTTON IS ALWAYS RETURN
RBUT: TYPE ESC ; RIGHT BUTTON IS ALWAYS ESCAPE
;Expanded matching added by R. Wilcox
MBUT: MATCH 1,36,,"Phone",SPACE,MBUT1a ; MATCH ENABLES MARKING ENTRIES
MBUT1a: MATCH 2,29,,"F",FUNKEY,MBUT1 ; MATCH CALLS FUNCT KEY MENU
MBUT1: MATCH 1,36,,"Setup",F1,MBUT2 ; MATCH CALLS HELP SCREEN rlw
MBUT2: MATCH 1,28,,"╒══ D",DLPRO,MBUT3 ; MATCH CALLS DL PROTOCOL MENU
MBUT3: MATCH 1,28,,"╒═══ U",ULPRO,MBUT3a ; MATCH CALLS UL PROTOCOL MENU
MBUT3a: MATCH 1,28,,"Batch U",BATUL,MBUT4 ; MATCH CALLS BATCH UL MENU
MBUT4: MATCH 25,14,,"QuickLearn",LEXIT,MBUT5 ; MATCH CALLS Learn Exit
MBUT5: MATCH 43,14,,"QuickLearn",LEXIT,MBUT6 ; MATCH CALLS Learn Exit(EGA)
MBUT6: MATCH 50,14,,"QuickLearn",LEXIT,MBUT7 ; MATCH CALLS Learn Exit(VGA)
MBUT7: MATCH 25,5,,"SCROLL",ScrlMenu,MBUT8 ; MATCH CALLS SCROLL MENU
MBUT8: MATCH 43,5,,"SCROLL",ScrlMenu,MBUT9 ; MATCH CALLS SCROLL MENU (EGA)
MBUT9: MATCH 50,5,,"SCROLL",ScrlMenu,MBUT11 ; MATCH CALLS SCROLL MENU (VGA)
MBUT11: MATCH 25,11,,"ONLINE",ONLINEMENU,MBUT12 ; MATCH CALLS SCROLL MENU
MBUT12: MATCH 43,11,,"ONLINE",ONLINEMENU,MBUT13 ; MATCH CALLS SCROLL MENU (EGA)
MBUT13: MATCH 50,11,,"ONLINE",ONLINEMENU,MBUT14 ; MATCH CALLS SCROLL MENU (VGA)
MBUT14: MATCH 25,28,,"[H",MAINMENU,MBUT15 ; MATCH CALLS MAIN MENU
MBUT15: MATCH 43,28,,"[H",MAINMENU,MBUT16 ; MATCH CALLS MAIN MENU (EGA)
MBUT16: MATCH 50,28,,"[H",MAINMENU,SHELL ; MATCH CALLS MAIN MENU (VGA)
;end of rlw mods (see also LEXIT:, ScrlMenu:, FUNKEY: and OnLineMenu:)
;
;---------------------------------------------------------------------------
;
; ***** MOVEMENTS *****
;
LMOV: TYPE 0,75 ; LEFT ARROW KEY
RMOV: TYPE 0,77 ; RIGHT ARROW KEY
UPMOV: TYPE 0,72 ; UP ARROW KEY
DMOV: TYPE 0,80 ; DOWN ARROW KEY
;
;----------------------------------------------------------------------------
;
; ***** MAIN POP-UP MENU *****
;
MAINMENU: MENU "Main Menu", 5, 60, 116 ; POP-UP IN UPPER AREA
OPTION "MODEM", MEN1 ; IF SELECTED, GOTO MEN1
OPTION "UL/DL", MEN2 ; IF SELECTED, GOTO MEN2
OPTION "SCREEN", MEN3 ; IF SELECTED, GOTO MEN3
OPTION "SETUP", MEN4 ; IF SELECTED, GOTO MEN4
OPTION "FILES", MEN5 ; IF SELECTED, GOTO MEN5
OPTION "HELP", HOME ; IF SELECTED, SHOW HELP SCREEN
OPTION "EXIT", ALTX ; IF SELECTED, EXIT QMODEM
OPTION "Cancel", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;---------------------------------------------------------------------------
;
; ***** SUB-MENUS *****
;
;---------------------------------------------------------------------------
;
; *** MENU 1 ***
;
MEN1: MENU "MODEM", 5, 58, 116
;
OPTION "Dial Phone", ALTD
OPTION "Echo Toggle", ALTE
OPTION "LF Toggle", SHIFTTAB
OPTION "Session Log", ALT0
OPTION "Printer Echo", ALT9
OPTION "QuickLearn", ALTQ
OPTION "Script", ALTF
OPTION "Break", CTLEND
OPTION "Hang-up", ALTH
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;---------------------------------------------------------------------------
;
; *** MENU 2 ***
;
MEN2: MENU "DL/UL", 5, 58, 116
;
OPTION "Download", PGDN
OPTION "Upload", PGUP
OPTION "Capture File", CTLHM
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;---------------------------------------------------------------------------
;
; *** MENU 3 ***
;
MEN3: MENU "SCREEN", 5, 58, 116
;
OPTION "Clear Screen", ALTC
OPTION "Scroll Back Toggle", ALTU ;rlw mod
OPTION "Scroll Mode", UPMOV ;rlw mod
OPTION "Split Screen", ALTS
OPTION "Screen Dump", ALTT
OPTION "EGA/VGA 25 line", ALT2
OPTION "EGA/VGA 43/50 line", ALT4
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;---------------------------------------------------------------------------
;
; *** MENU 4 ***
;
MEN4: MENU "SETUP", 5, 58, 116
;
OPTION "Run QINSTALL", ALTN
OPTION "XON/XOFF", ALTZ
OPTION "Set Func. Keys", ALTJ
OPTION "COM Port", ALTK
OPTION "Music", ALTM
OPTION "BAUD Rate", ALTP
OPTION "Beeps & Bells", ALTB
OPTION "Terminal Emul.", ALTG
OPTION "Backspace/DEL", ALT1
OPTION "8-BIT", ALT8
OPTION "Translation", ALTA
OPTION "Doorway Mode", ALTEQ
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;---------------------------------------------------------------------------
;
; *** MENU 5 ***
;
MEN5: MENU "FILES", 5, 58, 116
;
OPTION "Change Drive", ALTL
OPTION "Change Subdir", ALTO
OPTION "DOS Shell", ALTR
OPTION "View/Edit File", ALTV
OPTION "Disk DIR", ALTW
OPTION "Delete File", ALTY
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;
;
;---------------------------------------------------------------------------
; Function key edit menu added by rlw
;---------------------------------------------------------------------------
; ***** FUNCTION KEY MENU *****
FUNKEY: MATCH 25,7,,"Edit",EDITMENU,FUNKEY1
FUNKEY1: MATCH 43,7,,"Edit",EDITMENU,FUNKEY2
FUNKEY2: MATCH 50,7,,"Edit",EDITMENU,FUNKEY3
;
FUNKEY3: MENU , 10, 30, 116
;
OPTION "Normal", K1
OPTION "Shift", K2
OPTION "Ctrl", K3
OPTION "Alt", K4
OPTION "Load", L
OPTION "Exit", Escape
MEND
;
;---------------------------------------------------------------------------
; **** EDIT MENU ****
;
EDITMENU: MENU , 10, 30, 116
OPTION "SAVE", F10
OPTION "ABORT SAVE, BACK TO EDIT", ESCAPE
OPTION "EXIT FUNCTION KEY MENU", ESCAPE2
MEND
;---------------------------------------------------------------------------
; ***** SHELL MENU *****
;
SHELL: MENU , 15, 58, 116
;
OPTION "Exit DOS", EXIT
OPTION "Remain", NOTHING
MEND
;---------------------------------------------------------------------------
; ***** BATCH UL MENU *****
;
BATUL: MENU , 15, 58, 116
;
OPTION "Pick List", F2
OPTION "Save", F6
OPTION "Upload", F10
OPTION "Abort", Escape
MEND
;---------------------------------------------------------------------------
; Learn exit menu added by rlw
;---------------------------------------------------------------------------
; ***** LEARN EXIT MENU *****
LEXIT: MENU , 15, 58, 116
;
OPTION "End Recording", ALTQ
OPTION "Main Menu", MAINMENU
MEND
;---------------------------------------------------------------------------
; Scroll menu added by rlw
;---------------------------------------------------------------------------
; ***** SCROLL MENU *****
ScrlMenu: MENU "Scroll Back Options" , 10, 22, 116
;
OPTION "Up one page (LR Buttons)", PgUp
OPTION "Down one page (LMR buttons)", PgDn
OPTION "Top of Scroll", Home
OPTION "Bottom of Scroll", End
OPTION "Save the Scroll Buffer to a File", S
OPTION "Clear the Scroll Buffer", C
OPTION "Exit Scroll Mode", Escape
OPTION "Cancel", NOTHING
MEND
;
;---------------------------------------------------------------------------
; Online menu added by rlw
;---------------------------------------------------------------------------
; ***** ON LINE MENU *****
OnLineMenu: MENU "On Line Menu" , 5, 50, 116
;
OPTION "Main Menu", MainMenu
OPTION "[F]iles", F
OPTION "[M]essages", M
OPTION "[N]ew", N
OPTION "[R]emember", R
OPTION "[D]ownLoad", D
OPTION "[U]pLoad", U
OPTION "[Q]uit this Section", Q
OPTION "[G]oodbye", G
OPTION "Cancel", NOTHING
MEND
;
;---------------------------------------------------------------------------
; ***** DL PROTOCOL MENU *****
; ADD PROTOCOLS AS NEEDED
;
DLPRO: POPUP 3, 29, 23
TEXT " Ascii "
TEXT " Xmodem "
TEXT " Xmodem CRC "
TEXT " Xmodem Relaxed "
TEXT " Xmodem-1K "
TEXT " Ymodem Batch "
TEXT " Zmodem Batch "
TEXT " Ymodem-1K/G "
TEXT " Ymodem/G Batch "
TEXT "══════[ External ]══════"
TEXT " Puma "
TEXT " PC Kermit "
TEXT " WXmodem "
TEXT " Xmodem-O DSZ "
TEXT " True Ymod-G "
TEXT " Zmodem DSZ "
TEXT " MegaLink "
TEXT " Jmodem "
TEXT " CANCEL "
;
SELECT 1, 4, 16, A
SELECT 2, 4, 16, X
SELECT 3, 4, 16, C
SELECT 4, 4, 16, R
SELECT 5, 4, 16, O
SELECT 6, 4, 16, Y
SELECT 7, 4, 16, Z
SELECT 8, 4, 16, F
SELECT 9, 4, 16, G
SELECT 11, 4, 16, P
SELECT 12, 4, 16, K
SELECT 13, 4, 16, W
SELECT 14, 4, 16, V
SELECT 15, 4, 16, T
SELECT 16, 4, 16, D
SELECT 17, 4, 16, M
SELECT 18, 4, 16, J
SELECT 19, 4, 16, ESCAPE
;
PEND
;---------------------------------------------------------------------------
;
; ***** UL PROTOCOL MENU *****
; ADD PROTOCOLS AS NEEDED
;
;
ULPRO: POPUP 2, 29, 23
TEXT " Ascii "
TEXT " Xmodem "
TEXT " Xmodem CRC "
TEXT " Xmodem Relaxed "
TEXT " Xmodem-1K "
TEXT " Ymodem Batch "
TEXT " Zmodem Batch "
TEXT " Ymodem-1K/G "
TEXT " Ymodem/G Batch "
TEXT "══════[ External ]══════"
TEXT " Puma "
TEXT " PC Kermit "
TEXT " WXmodem "
TEXT " Xmodem Ovthr "
TEXT " True Ymod-G "
TEXT " Zmodem DSZ "
TEXT " MegaLink "
TEXT " Jmodem "
TEXT " CANCEL "
;
SELECT 1, 4, 16, A
SELECT 2, 4, 16, X
SELECT 3, 4, 16, C
SELECT 4, 4, 16, R
SELECT 5, 4, 16, O
SELECT 6, 4, 16, Y
SELECT 7, 4, 16, Z
SELECT 8, 4, 16, F
SELECT 9, 4, 16, G
SELECT 11, 4, 16, P
SELECT 12, 4, 16, K
SELECT 13, 4, 16, W
SELECT 14, 4, 16, V
SELECT 15, 4, 16, T
SELECT 16, 4, 16, D
SELECT 17, 4, 16, M
SELECT 18, 4, 16, J
SELECT 19, 4, 16, ESCAPE
;
PEND
;---------------------------------------------------------------------------
;
; ***** KEY DEFINITIONS FOR MENU CALLS ***
;
K1: TYPE "1" ; rlw
K2: TYPE "2" ; "
K3: TYPE "3" ; "
K4: TYPE "4" ; rlw
A: TYPE "A"
ALT2: TYPE 0,121
ALT4: TYPE 0,123
ALTA: TYPE 0,30
ALT9: TYPE 0,128 ; rlw
ALTB: TYPE 0,48
ALTC: TYPE 0,46
ALTD: TYPE 0,32
ALTE: TYPE 0,18
ALTEQ: TYPE 0,131
ALTF: TYPE 0,33
ALTG: TYPE 0,34
ALTH: TYPE 0,35
ALTJ: TYPE 0,36
ALTK: TYPE 0,37
ALTL: TYPE 0,38
ALTM: TYPE 0,50
ALTN: TYPE 0,49
ALTO: TYPE 0,24
ALTP: TYPE 0,25
ALTQ: TYPE 0,16
ALTR: TYPE 0,19
ALTS: TYPE 0,31
ALTT: TYPE 0,20
ALTU: TYPE 0,22
ALTV: TYPE 0,47
ALTW: TYPE 0,17
ALTX: TYPE 0,45
ALTY: TYPE 0,21
ALTZ: TYPE 0,44
ALT0: TYPE 0,129
ALT1: TYPE 0,120
ALT8: TYPE 0,127
B: TYPE "B"
C: TYPE "C"
D: TYPE "D"
CTLHM: TYPE 0,119
END: TYPE 0,79 ;rlw mod
CTLEND: TYPE 0,117
CTLPRTSCR: TYPE 0,114
ESCAPE: TYPE ESC
ESCAPE2: TYPE ESC,ESC ;rlw
EXIT: TYPE "EXIT",ENTER
F: TYPE "F"
G: TYPE "G"
HOME: TYPE 0,71
J: TYPE "J"
K: TYPE "K"
L: TYPE "L"
M: TYPE "M"
N: TYPE "N"
NOTHING: NOTHING
O: TYPE "O"
PGDN: TYPE 0,81
PGUP: TYPE 0,73
P: TYPE "P"
Q: TYPE "Q" ;RLW
R: TYPE "R"
REVPRE: TYPE "E"
SPACE: TYPE " "
S: TYPE "S"
T: TYPE "T"
SHIFTTAB: TYPE 0,15
U: TYPE "U" ;RLW
V: TYPE "V"
W: TYPE "W"
X: TYPE "X"
Y: TYPE "Y"
Z: TYPE "Z"
F1: TYPE 0,59
F2: TYPE 0,60
F6: TYPE 0,64
F10: TYPE 0,68
;
;---------------------------------------------------------------------------