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