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

 
Output of file : BIXMAILU.T contained in archive : ZMSCRIP.ZIP
::
:: "bixmailu.t" goes in %lib It uploads BIX Mail messages
:: Takes reply format beginning with "Memo #", or originating format
:: To user
:: Subject: subject
:: (Unix mail msg).
:: Register usage: s1 is receipient, s2 is subject
::
echo "File = %item"
open -!tg %item

l1: set s0 ""
while "t&&!%s0" grab s0
if "ps0,Memo #" goto rply
ss s0 "(^[Tt][Oo]:* *)(.*)"; sets s1 %z2
if !%s1 goto badmsg
echo "Originating format: To %s1"
goto orig2

rply: grab s0
if !t goto badmsg
ss s0 "(From: *)(.*)"; sets s1 %z2

orig2: while t&&!ps0,Subject: grab s0
if !t echo "No Subject: line seen"; goto badmsg
ss s0 "(Subject: *)(.*)"; sets s2 %z2

echo "Now to: '%s1' Subject: '%s2'"
:: if y review
:: closetx; return : for testing

pattern; pat 1 "Mail:"
if !is9,Mail put "mail\r"; set s9 "Mail"; wait; if !1 goto foobar

pat 2c "Enter subject:" "%s2\r"
pat 3l "Enter text."
put "clear\r"; wait
put "to %s1\r"; wait

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

mput ".\r"
pat 2l "sent"
pat 3c "send/action:" "send\r"
wait
if !2 goto foobar
if !dv "!%mv %item Z%item.tmp"
if dv "!%rename %item Z%item.tmp"
echoc "File Uploaded: %item moved to Z%item.tmp"
ena -gt
return
badmsg: echoc "Bad message format"
foobar: echoc "File Not Accpeted"
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
nolog closetx
return


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