@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