home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / OPUS.T < prev    next >
Text File  |  1991-05-06  |  1KB  |  33 lines
  1.     echo "opus.t rev 10-21-90"
  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.     pat 21c "press your Escape key" "\E"
  25.     pat 22c "Your choice?"   "q\r"
  26.     pat 23i "Processing mail only"
  27.     wait
  28.     if c echoc "Carrier Detect Active"
  29.     if "16||17" echo "Carrier Lost Msg Seen"; o; fail
  30.     if "7||10||14||15||23" o; fail
  31.     pat
  32.     return
  33.