home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
k
/
kermft10.zip
/
DOWNLOAD.SCR
next >
Wrap
Text File
|
1992-10-04
|
1KB
|
55 lines
; This will call the appropriate external file transfer protocols
; Glauber 13sep92
; edit next line so that it matches your system
define progpath c:\kermit\gsz
define gszparms pB4096 pV1
:top
cls
echo {\009 ╔══════════════════════╗}
echo {\009 ║ DOWNLOAD PROTOCOLS: ║}
echo {\009 ╟──────────────────────╢}
echo {\009 ║ 1. Zmodem ║}
echo {\009 ║ ║}
echo {\009 ║ 2. YModem ║}
echo {\009 ║ ║}
echo {\009 ║ 3. XModem ║}
echo {\009 ╚══════════════════════╝}
echo {\009}
ask user {\009 Please choose (1|2|3)\009}
if equal \m(user) 1 goto zmodem
if equal \m(user) 2 goto ymodem
if equal \m(user) 3 goto xmodem
if equal \m(user) z goto zmodem
if equal \m(user) y goto ymodem
if equal \m(user) x goto xmodem
if equal \m(user) zmodem goto zmodem
if equal \m(user) ymodem goto ymodem
if equal \m(user) xmodem goto xmodem
goto top
:zmodem
echo {\009 OK, Receiving Zmodem to default download path}
run \m(progpath) \m(gszparms) rz -mrr
pop
:ymodem
echo {\009 OK, Receiving Ymodem to default download path}
run \m(progpath) \m(gszparms) rb
pop
:xmodem
ask what {\009 File name:\009}
echo {\009 OK, Receiving Xmodem to default download path}
run \m(progpath) \m(gszparms) rx \m(what)
pop