home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / OPUS.T < prev    next >
Text File  |  1989-11-21  |  911b  |  30 lines
  1.     echo "opus.t rev 7-17-89"
  2.     ena -J
  3.     on "!c" echo "CARRIER LOST" return
  4.     pat 1c "ENTER to continue" "\r"
  5.     pat 2c "your FIRST name: " "\b\bchuck\r"
  6.     pat 3c "your LAST name: " "\b\bforsberg\r"
  7.     pat 4c "[Y,n]? " "y\r"
  8.     pat 5c "Password: " "%n9\r"
  9.     pat 6 "\nSelect: "
  10.     pat 7 "REAL FIRST NAME?"
  11.     pat 8c "ad (U)nread, (L)ist, or (E)xit ?" "e"
  12.     pat 9c "questions now [Y/n]? " "n\r"
  13.     pat 10 "all later."
  14.     pat 11c "Disposition (K" "N\r"
  15.     pat 12c "Read: (N if no)" "n\r"
  16.     pat 13c "D'Bridge" "\E\E"
  17.     pat 14i "processing EMAIL only."
  18.     pat 15l "Later, Human!"
  19.     pat 16l "CARRIER LOST"
  20.     pat 17l "NO CARRIER"
  21.     pat 18c "Number you would like to read:" "\r"
  22.     pat 19c "your First Name" "\b\bchuck\r"        :: Somebody hacked Opus
  23.     pat 20c "your Last Name" "\b\bforsberg\r"
  24.     wait
  25.     if c echoc "Carrier Detect Active"
  26.     if "16||17" echo "Carrier Lost Msg Seen"; o; fail
  27.     if "7||10||14||15" o; fail
  28.     pat
  29.     return
  30.