Hello Everyone,
I have written a macro that I thought everyone might
benefit from. The purpose of this macro is to allow you to
select 1 of two auto download protocols, example DSZ or
the built in internal zmodem. to make this work properly
you must make a few changes to your commo.mac and your
commo.set. In commo.set you must add a line that specifies
your preference for a default download protocol. the line
goes like this, {set zr_autom,i}you may change the "i" to
"d" if you want your default auto download protocol to be
"DSZ". Here are the macros that must be added to
commo.mac. Good luck. If you have any questions please
write to me at one of the addresses below.
This macro is used to display a menu which enables a user to select an
auto download protocol of choice.
{:adpc}
{goto select%zr_autom}
{:selecti} {setv zr_autom,i} {setv autodisp, " NOW USING INTERNAL ZMODEM
"} {goto adm}
{:selectd} {setv zr_autom,d} {setv autodisp, " NOW USING EXTERNAL DSZ "}
{goto adm}
{:adm} auto download select macro
{setv _menu1, I ž Internal Zmodem}
{setv _menu3, D ž DSZ Zmodem}
{setv _menu5,%autodisp}
{setv _menu7, Enter = Return To Terminal Mode}
{setv _menu8, Escape = Return To Previous Menu}
{setv _menter,zad_save}
{setv _mlabel ,,,,selectd,,,,,selecti}
{setv _mcolor,%menu_clr}
{window-k}
{menu 12,43, Select An Auto Download Protocol} {goto mpd}
{:zad_save} {}
macro to actually start a download using the selected protocol.
{:autodsz}
{comp zr_automode,i}
{ifcon internal,dsz}
{:internal} {goto pzbr}
{:dsz} {goto pzdszr}
Zmodem DSZ/GSZ {:pzdszr} {setv pr_alarm} {setv pr_down,%dldir} {call
zr_dsz} {}
{:zr_dsz}
{exec-d %protodir\dsz.com portx %_pad,%_irq ha on est 0 %_connectspeed% rz
-m -rr %pr_down%\}
{alarm %pr_alarm} {retu}
Modified download menu macro.
DOWNLOAD (receive) menu macro
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
{:pgd} {:mpd}
* {setv _menu1, Press "E" To Select Auto-Download Protocol}
{setv _menu2, Press "M" to change Zmodem receive mode}
{setv _menu4, Z ž Zmodem batch (mode=%zr_mode) Internal}
{setv _menu5, Y ž Ymodem batch Internal}
{setv _menu6, G ž Ymodem-G batch Internal}
{setv _menu7, X ž Xmodem-CRC (or old Ymodem) Internal}
{setv _menu8, O ž Xmodem-G Internal}
{setv _menu9, S ž Xmodem csum Internal}
{setv _menu11, External Protocols (program required)}
{setv _menu13, H ž HS/Link using HSLINK.EXE}
{setv _menu14, K ž Kermit using KERMIT.EXE}
{setv _menu15, B ž CompuServe B, B+ using OZBEXT.EXE}
{setv _menu16, D ž DSZ/GSZ Zmodem}
* {setv _mlabel
,phld,pcbr,,zr_dsz,adpc,,pygr,phbr,,,pckr,,pmzm,,pxgr,,,,px2r,,,,,px1r,pybr,pz
br}
{setv _mcolor,%menu_clr}
{menu 20,50,DOWNLOAD Protocol Menu [F1] Help} {return}
Internet: billstak@medtechnet.com
billstak@ubvms.cc.buffalo.edu
Fidonet: 1:260/10.0.
--- Blue Wave/Max v2.20
---------------
* Origin: Med TechNet / Buffalo, NY *USA* / 716-688-1552 / V.34+ (1:260/10)
|