@echo off
rem This sets up a local environment. You may remove this if you don't need a
rem local environment. I have it here so that your aliases in your master
rem environment will not be affected.
setlocal
goto init
        Ŀ
                   4DOS BATCH UPLOADER v1.2, by John Meskew           
                                March 10, 1994                        
                                                                      
          You do not have to license this software - just use it and  
          modify  it  to suit  you.  Just don't  remove any  of  the  
          credits contained herein.  This file is for use with Telix  
          v3.15.  I don't know about the later versions  of Telix or  
          other  terminal programs. I don't have them  and  I really  
          feel this batch uploader  is  easier to use  than  the one  
          supplied with the later versions of Telix. This will allow  
          you to upload from any drive:\directory any where on  your  
          system.  Further,  it  will  allow  you  to maximize  your  
          uploading  by allowing you to install any protocol  beyond  
          what Telix can internally support. Further, you can upload  
          virtually  any number of  files.  You will  have to modify  
          this file and  recompile it  with  the batch compiler that  
          comes with 4DOS before using it unless you feel it is good  
          just the way it is.                                         
                                                                      
          When you ask Telix for an external  protocol using a batch  
          file  Telix  will provide  the following variables in  the  
          order given: %1  = Port connect speed, not the baud  rate;  
          %2 is the port number and %3 is  the upload directory with  
          the  file specification.  I  have included  a  file called  
          TEST.BTM which  you  temporarily  install  as  an external  
          protocol in your particular term program.  When invoked it  
          will echo  the  parameters  passed  to it  from your  term  
          program. This will  aid you in getting this batch uploader  
          to interface properly with your term  program. Then merely  
          make the  changes to  the  BATCHUP.TXT  source  file,  and  
          recompile  it  with  the  BATCOMP.EXE  batch  compiler  as  
          follows:                                                    
                                                                      
                             BATCOMP BATCHUP.TXT /o                   
                                                                      
          NOTE:  YOU  MUST PROVIDE EACH  AND  EVERY  PROTOCOL DRIVER  
          CALLED  BY  THE  ALIASES  IN  THE  COMMANDS  GIVEN  IN THE  
          BATCHUP.TXT FILE. IF YOU DO NOT THE PROGRAM WILL EXIT BACK  
          TO THE TERM PROGRAM AND NO UPLOADING WILL TAKE PLACE.       
        
:init
cls bright white on black
ctty nul
if exist upfiles.lst del upfiles.lst
ctty con
:start
rem Telix v3.15 passes the upload directory as variable %3
set updir=%3
if "%updir" == "" quit
select df (%updir%) >> a:upfiles.lst
if not exist a:upfiles.lst goto prtcl
:prtcl
cls bright white on black
if exist protalia alias/r protalia
text



                ķ
                             Choose your Protocol             
                Ķ
                           (H)S-Link - Bidirectional          
                           (M)pt - Unidirectional             
                           H(y)per - Unidirectional           
                           (Z)modem - Unidirectional          
                           Ymodem-(G) - Unidirectional        
                           (8)k Zmodem - Unidirectional       
                           (V)Fast - Unidirectional           
                           (A)nother Directory                
                           (E)dit Batch                       
                           (Q)uit                             
                Ľ
endtext
inkey /C /W60 /K"HMYZG8VAEQhmyzgvaeq" Protocol Choice: %%protocol
if "%protocol" == "" goto prtcl
if "%protocol" == "H" .or. "%protocol" == "h" bathsl
if "%protocol" == "M" .or. "%protocol" == "m" batmpt
if "%protocol" == "Y" .or. "%protocol" == "y" hyperbat
if "%protocol" == "Z" .or. "%protocol" == "z" batdsz
if "%protocol" == "G" .or. "%protocol" == "g" batymg
if "%protocol" == "8" batzed
if "%protocol" == "V" .or. "%protocol" == "v" batvfast
if "%protocol" == "A" .or. "%protocol" == "a" goto seldir
if "%protocol" == "E" .or. "%protocol" == "e" goto edit
if "%protocol" == "Q" .or. "%protocol" == "q" quit
:edit
rem X is a text editor. Substitute your favorite text editor here.
x upfiles.lst
goto prtcl
:seldir
input /C /W60 Upload Directory: %%updir
if "%updir" == "" goto prtcl
select df (%updir%\*.*) >> a:upfiles.lst
goto prtcl
