home *** CD-ROM | disk | FTP | other *** search
- 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 "\b\ba%s8\&=\r"
- wait
- while 2 echoc "Opus:%s7 Area:%s8 D/L:%t" wait
- pat
- expand %lib/opusupl.t %s7%s8*
- pat
- return
-