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

 
Output of file : BIXMSGU.T contained in archive : ZMSCRIP.ZIP
::
:: "bixmsgu.t" goes in %lib UPLOAD BIX Conference messages
:: Header line format:
:: telecomm.pgms/general #399, from gscharf, 302 chars, Sun Apr 17 16:16:45 1988
:: s1 = conference/topic s2 = number to reply to
::
echoc "Bixmsgu.t: file = %item"
open -!tg %item

set s0 ""
while "t&&!%s0" grab s0
ss s0 "([^ ]+)( #)([0-9]*)"
if "jz1,/" goto reply
echo "'%s0': originating format not done yet"; closetx; return

reply:
sets s1 "%z1"; sets s2 "%z3"
echo "Conf/topic: '%s1' Reply to #: '%s2'"
:: if y review
:: closetx; return : for testing

pattern
pat 1 "Read:"
put "join %s1\r"; wait
pat 1 "Enter text. End with '.'"
pat 2i "Can't add comment"
put "com %s2\r"; wait
if !1 goto foobar

pg62; pp300; pq0; if !dP ena -p
if dP ena -r
t -gx; ena -t!p; pp250

pat 1 "action:"
put ".\r"
wait -f20
pat 1 " added."
put "add\r"
wait -f20
if !1 goto foobar
if !dv "!%mv %item Z%item.tmp"
if dv "!%rename %item Z%item.tmp"
echoc "%item uploaded %t: Moved to Z%item.tmp"
closetx
ena -gt
return
badmsg: echoc "Bad message format"
foobar: echoc "File Not Accpeted"
closetx
echo "Moving file to backup name"
: abort; **********
if !dv "!%mv %item Y%item.tmp"
if dv "!%rename %item Y%item.tmp"
echoc "File Rejected: %item moved to Y%item.tmp"
ena -gt
return


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