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

 
Output of file : OPUSUPL.T contained in archive : ZMSCRIP.ZIP
:: Upload message to Opus Rev 10-4-90
:: First line is "From: name" (reply) or "To name" (originating)
:: -- The absence of a colon after the "To" distinguishes originating
:: -- messages from reply messages.
:: Next 2 lines are searched for "Subject: "
:: Message body starts on next line
::
:on !c goto foonc
pat
pat 5 "aborted"
pat 6 "\nSelect: "
pat 7 "I don't understand `"
pat 8 "Message aborted."
open -!tg %item; set s0 ""
while "t&&!%s0" grab s0 :: read past initial blank lines
if !t goto foobar
if "ps0,To " goto orig :: Sanity check first non blank line
if "!ps0,From:" goto foobar :: Sanity check first non blank line
orig: split s0 " :" ""
sets s1 "%z1"
ss s1 "(.*)( *)"
while %z2 sets s1 "%z1" ss s1 "(.*)( $)"
ss s1 "(^ *)(.*)"; if %z1 sets s1 "%z2"
grab s2 :: If to line - ignore
ss s2 "(R[eE]: *|Subject: *)(.*)"
if !%z2 grab s2; ss s2 "(R[eE]: *|Subject: *)(.*)"
if !%z2 grab s2; ss s2 "(R[eE]: *|Subject: *)(.*)"
sets s2 "%z2"
ss s2 "(R[eE]: *|Subject: *)(.*)"
if %z2 ss s2 "(R[eE]: *|Subject: *)(.*)"; sets s2 "%z2"
ss s2 "(.*)( *)"
while %z2 sets s2 "%z1" ss s2 "(.*)( $)"
ss s2 "(^ *)(.*)"; if %z1 sets s2 "%z2"
echoc "TO: <%s1> SUBJECT: <%s2>"
: return :: for local testing of argument parsing
pat 0c "left. Start msg anyway [y,N]?" "y\r"
pat 9c "Create msg from file [y,N]?" "n\r"
pat 10i "To: "
pat 11i "Private [y,N"
put "\be\r"
wait -f4
if 7 goto foobar
if 11 putw "n\r"
put "\b%s1\r"
pat 12i "Subject:"
wait -f4
if 8 goto foobar
pat 20i "1:" :: check for line by line msg upload
pat 21 "sert" :: full screen ?
put "\b%s2\r" :: send massaged subject line
wait
if 20 goto oldent
if !2 goto foobar
set blankfill ""
pat 20 ""; pat 21 ""; pat 5 ""
put " \b"; sleep 20
ena -tp; pq1; pp120; pg10
t -gx; ena -t!p
putw "\032"
goto done
oldent: set blankfill " - "
pat 20 ""; pat 21 ""; pat 5 ""
ena -pt; pq1; pp120; pg:
t -gx; ena -t!p
put "\r"
pat 7i "Editor Options:"
wait
if !7 goto foobar
put "s\r"
wait
if !6 goto foobar

done: 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
wait -f2
pat
return
foonc: echoc "Carrier Lost"
foobar: echoc "File Not Accpeted"
nolog closetx
pat
return
foox: echoc "Moving %item to Y%item.tmp"
if !dv "!%mv %item Y%item.tmp"
if dv "!%rename %item Y%item.tmp"
ena -gt
nolog closetx
echoc "OPUSUPL ABEND"
pat
return
unedited: echoc "opusupl.t: %item has not been edited!"
closetx
pat
return


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