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

 
Output of file : RMAUPL.T contained in archive : ZMSCRIP.ZIP
:: Upload message to RemoteAccess Rev 9-25-91
:: First line used 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
open -!tg %item; set s0 ""
while "t&&!%s0" grab s0 :: read past initial blank lines
if !t goto foobar
if "js0,Message" grab s0
if "js0,Prefix" grab s0
if "js0,Date" grab s0
if "js0,To " goto orig :: Sanity check first non blank line
if "!js0,From" goto foobar :: Sanity check first non blank line
:: parse addressee
orig: split s0 " :" ""
sets s1 "%z1"
ss s1 "(.*)( *)"
while %z2 sets s1 "%z1" ss s1 "(.*)( $)"
ss s1 "(^:* *)(.*)"; if %z1 sets s1 "%z2"

:: parse subject
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>"

:: parse possible Replies line, discard
grab s0; if "js0,Replies" grab s0
: return :: for local testing of argument parsing
if "js2,sysop" echoc "Cannot send echo msg to sysyop"; goto foobar
put "e"
:pat 3c "From :" "%n1 %n2\r"
pat 4c "To :" "%s1\r"
pat 5c "Subject :" "%s2\r"
pat 6c "Change anything :" "n"
pat 7c "a prepared message ?" "n"
pat 9c "<=> non-stop" "="
set blankfill " - "
wait -f3
ena -pt; pq1; pp120; pg:
if %s0 putv s0; put "\r"
t -gx; ena -t!p
put "\r"
pat 7c "Select:" "s\r"
pat 8i "Saving message to disk"
pat 9c "<=> non-stop" "="
wait
if "!8" goto foobar
:::... (#7051)


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 "RMAUPL ABEND"
pat
return
unedited: echoc "rmaupl.t: %item has not been edited!"
closetx
pat
return


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