'       ┌───────────────────────────────┐
'       │ Terminal 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"

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

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

COMMENT "@DATE@ @TIME@  New user login"
LOOKFOR "(Enter)=yes? " ""
LOOKFOR ") to continue?" ""
IF NOT SWITCH 1 HELP 198
TERMINAL
LOOKFOR "(Enter)=yes? " "N^M"
LOOKFOR ") to continue?" "^M"
GOTO TERM

:NEWUSER
COMMENT "@DATE@ @TIME@  New user login"
LOOKFOR "(Enter)=yes? " ""
LOOKFOR ") to continue?" ""
IF NOT SWITCH 1 HELP 198
TRANSMIT "^M"
WAITFOR ")=yes?" 30
TRANSMIT "Y^M"
WAITFOR "please!)?" 30
TRANSMIT "@PASSWORD@^M"
WAITFOR "verify?" 30
TRANSMIT "@PASSWORD@^M"
TERMINAL
LOOKFOR "(Enter)=yes? " "N^M"
LOOKFOR ") to continue?" "^M"
GOTO TERM

:LOGIN
COMMENT "@DATE@ @TIME@  Transmitting password"
TRANSMIT "@PASSWORD@^M"

:TERM
LOCKLINE 24
CLS
TERMINAL
EXIT