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