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

 
Output of file : GEMAILD.T contained in archive : ZMSCRIP.ZIP
:: Rev 05-12-89
:: This one is a file named "gemaild.t" and it goes in %lib
:: It assumes GEnie is at a prompt that will accept an "m##"
:: and that the letter waiting message was seen. %pr is prompt.
::
ki
if !r create -+ ge0000.tmp : make sure capture file is open
on !c fail
restart: pattern
: Page 200 choice 12 receive a waiting XMODEM file
put "m200:12\r"
echo "*** GEMAILD.T ***"
pat 0i "%pr"
pat 1c "\nQuitting.."
pat 2c "Choice no good, Please try again." "m200:12\r"
wait
if 1 goto rdmail
put "q\r"; wait; goto rdmail : temp hack

echoc "#: Accessed at %t"
echoc "Sb: GE XMODEM file to DOWNLOAD"
if "hQueue#"
if !jyf,File put "q\r"; goto alldone
sets s0 "em/%d%h.%s" : default receive file name
ss y "(File: )([^ ]*)" : parse file name
if !f%z2 sets s0 "%z2" : use file name if unique
put "1\r"
pat 1 "ve file.\r\n"
wait
rc %s0 : receive file
pat 1$ " %pr"
wait
put "\r"
pat 1$ "her (Y/N)%pr"
wait
put "n\r"
pat 1i "or elp"
wait
put "m1\r"
wait
goto restart

rdmail: put "2\r"
pat 2c "Choice no good, Please try again." "2\r"
echoc "#: Accessed at %t"
echoc "Sb: GE Mail Message"
rmail1: pat 1l "\nItem "
wait
w
if 0 goto alldone
pat 1i "\n=END=\r"
wait
echoc "#: Accessed at %t"
echoc "Welcome to GE Mail"
goback rmail1
alldone: echoc "GE Mail ENDS"
return


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