home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
$$pcb.scr
< prev
next >
Wrap
Text File
|
1995-07-19
|
3KB
|
130 lines
' ┌────────────────────────────────────┐
' │ PCBoard login script for 1stReader │
' │ Written by Mark Herring │
' │ July 20, 1995 │
' └────────────────────────────────────┘
TIMEOUT 30
SET_API$(142)="PCBOARD"
LOOKFOR "Esc" "X'1BX'1B"
LOOKFOR "correct? " "^M"
LOOKFOR "elp, More? " "N^M"
LOOKFOR ") to continue?" "^M"
LOOKFOR "ll new mail? (" "N^M"
LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
REQ_FILE @API$(14)@API$(10).REQ
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to system"
WAITFOR "Language #|=no change?|color|colour|graphics (" 40
LOOKFOR "Esc" ""
IF FOUND=0 THEN GOTO FNAME
IF FOUND=3 THEN GOTO GRAPHICS
IF FOUND=4 THEN GOTO GRAPHICS
IF FOUND=5 THEN GOTO GRAPHICS
TRANSMIT "@LANGUAGE@^M"
WAITFOR "Do you want|color|colour" 20
IF FOUND=0 THEN GOTO FNAME
:GRAPHICS
TRANSMIT "@GRAPHICS@ Q NS^M"
:FNAME
WAITFOR "first name" 50
IF FOUND=0 THEN EXIT
TRANSMIT "@USER@^M"
LOOKFOR "(Enter)=yes? " "N^M"
WAITFOR "last name|password|new user?" 30
LOOKFOR "correct? " ""
IF FOUND=1 THEN GOTO LOGIN
IF FOUND=2 THEN GOTO LOGIN1
IF FOUND=3 THEN GOTO NEWUSER
GOTO COMMAND
:NEWUSER
COMMENT "@DATE@ @TIME@ New user login"
LOOKFOR "(Enter)=yes? " ""
LOOKFOR ") to continue?" ""
IF NOT SWITCH 1 THEN 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"
WAITFOR "Command?"
GOTO COMMAND
:LOGIN
TRANSMIT "^M"
:LOGIN1
COMMENT "@DATE@ @TIME@ Transmitting password"
TRANSMIT "@PASSWORD@^M"
IF SCR_CALL THEN GOTO EXIT
WAITFOR "word has expired|Command?"
IF FOUND=2 THEN GOTO COMMAND
NEW_PASSWORD
SET_PASSWORD
PROMPT "Your password is now set to @PASSWORD@"
TRANSMIT "@PASSWORD@^M"
WAITFOR "to verify"
TRANSMIT "@PASSWORD@^M"
WAITFOR "Command?"
:COMMAND
TIMEOUT 60
IF SCR_SERVER THEN GOTO TELNET
IF SCR_MAIL THEN CALL PCB-DL.SCR
:EXIT
EXIT
:TELNET
SET_API(193)=2
SET_API(265)=5
LET A=1
:TEL_CALL
TRANSMIT "TELNET @TELNET@^M"
WAITFOR "client connection|Command?"
IF FOUND=3 THEN GOTO TEL_HANGUP
WAITFOR "BUSY|No servers|Remote side disconnected|Couldn't get" 10
IF FOUND=0 THEN GOTO TEL_SWAP
:TEL_DISCONNECT
PAUSE @API(265)
LET A=VAR_A+1
COMPARE VAR_A @API(193)
IF GREATER THEN GOTO TEL_LOGOFF
WAITFOR "Command?" 10
GOTO TEL_CALL
:TEL_SWAP
SWAP_SYS
:TEL_LOGOFF
RESET
WAITFOR "Command?" 60
:TEL_HANGUP
RESET
WAITFOR "Minutes used" 10
IF FOUND=1 THEN WAITFOR "Command?" 60
TRANSMIT "G;Y^M"
WAITFOR "Thanks for calling" 10
HANGUP
EXIT