'       ┌───────────────────────────────────────┐
'       │ Qmail Door reply script for 1stReader │
'       │ Written by Mark Herring               │
'       │ July 1st, 1992                        │
'       └───────────────────────────────────────┘

TIMEOUT 30
LOOKFOR "correct? " "^M"
LOOKFOR "elp, More? " "N^M"
LOOKFOR "(Enter)=yes? " "N^M"
LOOKFOR "Language #" "@LANGUAGE@^M"
LOOKFOR ") to continue?" "^M"
LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"

LOCKLINE 20 30
COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@  Logging in to system"

WAITFOR "graphics" 10
TRANSMIT "@GRAPHICS@ Q NS^M"
WAITFOR "first name" 50
IF FOUND=0 EXIT
TRANSMIT "@USER@^M"
WAITFOR "password|new user?"
LOOKFOR "correct? " ""
IF FOUND=1 GOTO LOGIN

COMMENT "@DATE@ @TIME@  New user login"
TRANSMIT "^M"
IF NOT SWITCH 1 HELP 198
TERMINAL
GOTO DOOR

:LOGIN
COMMENT "@DATE@ @TIME@  Transmitting password"
TRANSMIT "@PASSWORD@^M"
WAITFOR "Command @FIRST@?"
TIMEOUT 60

:DOOR
COMMENT "@DATE@ @TIME@  Opening Qmail Door"
TRANSMIT "@QMAIL@ PROMPTS;U^M"
LOOKFOR "<AUTOSTART>" "X'1B"

IF NOT KEYWORDS GOTO REPLIES
COMMENT "@DATE@ @TIME@  Transmitting keywords"
WAITFOR "<KEYUP>"
UPLOAD @API$(14)KEYWORDS

:REPLIES
IF NOT REPLIES GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@  Uploading replies"
WAITFOR "<UPLOAD>"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "<MESSAGES INSERTED>|<MESSAGES NOT INSERTED>|<BAD UPLD>"
IF FOUND=1 GOTO GOODUPLD
GOTO GOODBYE

:GOODUPLD
COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP

:GOODBYE
WAITFOR "<COMMAND>" 30
COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
TRANSMIT "G^M"

:EXIT
COMMENT "@DATE@ @TIME@  Waiting for disconnect"
LOOKFOR "<GOODBYE>" "^M"
WAITFOR "<HANGUP>" 20
PAUSE 2