home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qm42mnu.zip
/
QMODEM_F.DEF
< prev
next >
Wrap
Text File
|
1990-09-05
|
19KB
|
556 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
;
; BIG version with Pop-Up Function Keys
; Requires MENU /7 to load!
;
; ┌──────────────────────────────────────────────┐
; │ 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 "F-KEYS", MEN6 ; IF SELECTED, GOTO MEN6
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
;
;---------------------------------------------------------------------------
;
; *** MENU 6 ***
;
MEN6: MENU "F-KEYS", 5, 58, 116
;
OPTION "Normal", NORMMEN
OPTION "Shift", SHIFTMEN
OPTION "Control", CTRLMEN
OPTION "Alt", ALTMEN
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;
;---------------------------------------------------------------------------
; *** NORMMEN ***
;
NORMMEN: MENU "NORM F-KEYS", 5, 58, 116
;
OPTION "Normal F1", F1
OPTION "Normal F2", F2
OPTION "Normal F3", F3
OPTION "Normal F4", F4
OPTION "Normal F5", F5
OPTION "Normal F6", F6
OPTION "Normal F7", F7
OPTION "Normal F8", F8
OPTION "Normal F9", F9
OPTION "Normal F10", F10
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;
;---------------------------------------------------------------------------
; *** SHIFTMEN ***
;
SHIFTMEN: MENU "SHIFT F-KEYS", 5, 58, 116
;
OPTION "Shift F1", SF1
OPTION "Shift F2", SF2
OPTION "Shift F3", SF3
OPTION "Shift F4", SF4
OPTION "Shift F5", SF5
OPTION "Shift F6", SF6
OPTION "Shift F7", SF7
OPTION "Shift F8", SF8
OPTION "Shift F9", SF9
OPTION "Shift F10", SF10
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;
;---------------------------------------------------------------------------
; *** CTRLMEN ***
;
CTRLMEN: MENU "CTRL F-KEYS", 5, 58, 116
;
OPTION "Ctrl F1", CF1
OPTION "Ctrl F2", CF2
OPTION "Ctrl F3", CF3
OPTION "Ctrl F4", CF4
OPTION "Ctrl F5", CF5
OPTION "Ctrl F6", CF6
OPTION "Ctrl F7", CF7
OPTION "Ctrl F8", CF8
OPTION "Ctrl F9", CF9
OPTION "Ctrl F10", CF10
OPTION "CANCEL", NOTHING ; IF SELECTED, CANCEL POP-UP
MEND
;
;---------------------------------------------------------------------------
; *** ALTMEN ***
;
ALTMEN: MENU "ALT F-KEYS", 5, 58, 116
;
OPTION "Alt F1", AF1
OPTION "Alt F2", AF2
OPTION "Alt F3", AF3
OPTION "Alt F4", AF4
OPTION "Alt F5", AF5
OPTION "Alt F6", AF6
OPTION "Alt F7", AF7
OPTION "Alt F8", AF8
OPTION "Alt F9", AF9
OPTION "Alt F10", AF10
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-Keys Menu", MEN6
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
F3: TYPE 0,61
F4: TYPE 0,62
F5: TYPE 0,63
F6: TYPE 0,64
F7: TYPE 0,65
F8: TYPE 0,66
F9: TYPE 0,67
F10: TYPE 0,68
SF1: TYPE 0,84
SF2: TYPE 0,85
SF3: TYPE 0,86
SF4: TYPE 0,87
SF5: TYPE 0,88
SF6: TYPE 0,89
SF7: TYPE 0,90
SF8: TYPE 0,91
SF9: TYPE 0,92
SF10: TYPE 0,93
CF1: TYPE 0,94
CF2: TYPE 0,95
CF3: TYPE 0,96
CF4: TYPE 0,97
CF5: TYPE 0,98
CF6: TYPE 0,99
CF7: TYPE 0,100
CF8: TYPE 0,101
CF9: TYPE 0,102
CF10: TYPE 0,103
AF1: TYPE 0,104
AF2: TYPE 0,105
AF3: TYPE 0,106
AF4: TYPE 0,107
AF5: TYPE 0,108
AF6: TYPE 0,109
AF7: TYPE 0,110
AF8: TYPE 0,111
AF9: TYPE 0,112
AF10: TYPE 0,113
;
;---------------------------------------------------------------------------