home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
bbs
/
callid1b
/
callid.dor
< prev
next >
Wrap
Text File
|
1993-08-14
|
1KB
|
51 lines
CL *R
SEND One moment *F, checking Call-Display info..
EXEC \QBBS\callid.ttp
IF *P = 1 THEN GOTO newuser
IF *P = 10 THEN GOTO okay
IF *P > 1 THEN GOTO olduser
:newuser
IF *C = 1 THEN GOTO badnew
IF *C < 0 THEN EXIT
SEND Thanks *F, Everything is just fine.
SEND Validating your account!
CTIME 30
DLIMIT 400
LEVEL 5
SETFLAG A8
EXIT
:badnew
SEND
SEND The number you are calling from does not match your user record.
SEND Sorry, but I can't validate your account. Please use the [S]ettings
SEND menu to modify your phone numbers.
SEND
SEND Press any key.
KEY
EXIT
:olduser
IF *C < 0 THEN EXIT
IF *C = 0 THEN GOTO okay
IF *C = 3 THEN GOTO okay
SEND Your phone numbers don't match. Sorry, but this system utilizes
SEND the phone companies Call-Display and your account numbers to
SEND provide access. Either you incorrectly entered your phone number(s)
SEND or you are calling with your number blocked. Either way, we can't
SEND provide full access.
SEND
SEND Temporarily adjusting your account.
CTIME 15
DLIMIT 50
SEND Press any key
KEY
EXIT
:okay
SEND Thanks *F, Everything is just fine.
EXIT