home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
zcm_scrp.zip
/
OPUSAREA.T
< prev
next >
Wrap
Text File
|
1989-11-21
|
492b
|
21 lines
:: See comments at end
echo "opusarea %s7:%s8"
on !c echo "Opusarea: CARRIER LOST" return
pat
pat 1c "ENTER to continue" "\r"
pat 4c "[Y,n]? " "y\r"
pat 6 "\nSelect: "
pat 8c "Read (U)nread, (L)ist," "u\r"
pat 9c "questions now [Y/n]? " "n\r"
pat 11c "Disposition (K" "N\r"
pat 12c "Delete this message [y,N]? " "n\r"
pat 2l "From:"
ena -j
put "a%s8\&=\r"
wait
while 2 echoc "Opus:%s7 Area:%s8 D/L:%t" wait
pat
expand %lib/opusupl.t %s7%s8*
pat
return