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