TIP: Click on subject to list as thread! ANSI
echo: commo
to: ALL
from: BILL STACHOWIAK
date: 1995-10-17 20:17:00
subject: Auto download macro

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)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.