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

 
Output of file : BAUD.T contained in archive : ZMSCRIP.ZIP
set home "/host"; cd; dis -d
if "m" echo "Characters Received From Modem"
while "L<50&&!c" sleep 1 : wait for carrier detect 5 seconds
if "!c" echo "No Carrier Detect from Modem"
pq4 : we want a quick response to pattern match
set s1 "!" : counter
on "!c" dis -v; kill; pe0; return
ena -vv : make control chars show as ^c
b1: obey "set s1 %s1!"
nulls 2; speed 1200; gosub b2.%lib/baud.t :set nulls, try speed
nulls 5; speed 2400; gosub b2.%lib/baud.t
nulls 0; speed 300; gosub b2.%lib/baud.t
if !is1,!!!!! goto b1 : give up eventually
speed 1200
echo "Bad Line - Cannot Detect Carriage Returns: Try AT&T"
speed 300
echo "Bad Line - Cannot Detect Carriage Returns: Try AT&T"
o; fail

: subroutine to check for response at given speed
b2 if %emdir mput "\5"
pat
pat 1i "\r" : carriage return is expected
if %twxfile pat 3i "\5" : accept ENQ for twx protocol
if %emdir pat 4i "\1" : SOH means incoming file
pat 9i "\256" : matches anything
sleep 1; kill; purgek; wait -f7 : 7 seconds to get something
if !c return
if 4 goto rx
if 3 goto twx
if 1 pat 2i "\n"; wait -f7; if 1 dis -v; fail : see note (1)
if "2&&%twxfile" goto twx : if CR,LF get twx message
if !9 speed 1200; dis -v; fail : if no char, assume 1200
return
twx: kill : receive a TWX protocol message
cd %emdir
mput "%answerback"
create -hqx+7e %twxfile
t -!v
dis -hqx
ena -8n
kill
o
fail
rx: if %emdir cd %emdir : receive a file with YMODEM BATCH
restrict rb
o
dis -v; fail


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : BAUD.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/