Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : DOW.T

 
Output of file : DOW.T contained in archive : ZMSCRIP.ZIP
:: download files from a SIG DL section
:: %item is a control file: CIS filename, DL section, pathname
:: such as "foobar.arc 0 /usr/spool/yam/garbonzo.arc"
:: Missing pathname implies use of the CIS file name forced to LC
:: Missing DL section implies 0
:: move control file to subdirectory "done" when finished
echoc "dow.t Processing control file %item"
pat
pat 1v "\nDL "
pat 2v "\nLIB "
on !c o; fail
open %item
empty: if !t goto failed
grab s0
if !%s0 goto empty
closetx
split s0 " ," " ,"
if !%z1 set z1 "0"
if !%z2 setc z2 "\L%z0"
echoc "File:%z0 DL:%z1"
put "\b\b\bdl%z1\r" : send us to the proper DL section
wait -f40

ki :: put in the stopper for "h" test below
pat 0c "computer:" "\b\b\b%z2\r"
pat 9 "Can't locate that"
put "\b\b\bcat %z0/des\r"
wait -f40
if 9 goto failed
if !h^\[ echo "Can't find Project Programmer Number"; goto failed
pv9
del %z2
echoc "DEL returned"
ena -c
put "\b\b\bdow %z0/proto:b\r"
wait -f40
echoc "wait returned"
pv0
dis -c
if 9 goto failed

done: if !dv "!%mv %item dow/done"
if dv "!%rename %item [.dow.done]%item"
goto getback

failed: if !dv "!%mv %item dow/failed"
if dv "!%rename %item [.dow.failed]%item"
getback: putw "\b\b\b\r"
pat
pat 1 unction
wait -f50
return


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : DOW.T

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/