=[ x25-box.com ]=

CALL ZocHangUp
CALL ZocCommand "CLS"
SAY " ________________________________"
SAY ""
SAY " -=[X-Sprint Scaner for ZOC]=- "
SAY ""
SAY " ver. 0.1 alpha"
SAY ""
SAY " Writed by X-Ray"
SAY ""
SAY " ### 2k4 ###"
SAY " ________________________________"

GO:

Scaning=0

DNIC = ZocAsk("Enter DNIC", "2501")
IF DNIC = "##CANCEL##" | DNIC = "" THEN SIGNAL QUIT
NUA = ZocAsk("Enter start NUA", "")
IF NUA = "##CANCEL##" | NUA = "" THEN SIGNAL QUIT
PNumber = ZocAsk("Enter phone number", "")
IF PNumber = "##CANCEL##" | PNumber = "" THEN SIGNAL QUIT
GNUA=LEFT(NUA,3)
IDXNUA=SUBSTR(NUA,4)
ADDNUA=CHK()

START:

CALL ZocSend "AT&F2^M"
CALL ZocWait("OK")
CALL ZocSend "ATDT"||PNumber||"^M"
CALL ZocTimeout 45
Result=ZocWaitMux("CONNECT","NO DIAL TONE","BUSY","NO CARRIER")
IF Result=640 THEN SIGNAL PTO
IF Result=1 | Result=2 | Result=3 THEN SIGNAL REDIAL
IF Result=0 THEN
CALL ZocTimeout 15
IF Scaning <> 1 THEN
DO
CALL ZocLogname "SPRINT.LOG"
CALL ZocLogging 1
SIGNAL SPRINT
END
ELSE SIGNAL SPRINT

REDIAL:
l=5
DO TRY=1 TO 6
CALL ZocCommand "CLS"
SAY "Try again after "||l||" sec."
l=l-1
CALL ZocDelay 1
END TRY
SIGNAL START

PTO:
SAY ""
SAY "Timeout!"
SAY ""
SAY "Redial..."
CALL ZocHangUp
CALL ZocDelay 1
SIGNAL REDIAL

NTO:
CALL ZocCommand "SENDBREAK"
timeout=ZocWait("@")
IF timeout=640 THEN SIGNAL PTO
CALL ZocSend "D^M"
timeout=ZocWait("@")
IF timeout=640 THEN SIGNAL PTO
IDXNUA=IDXNUA+1
ADDNUA=CHK()
CALL ZocSend "0"||DNIC||""||GNUA||""||ADDNUA||""||IDXNUA||"^M"
Result = ZocWaitMux("CONNECTED","DISCONNECTED","NO CARRIER")
SIGNAL SCAN

SPRINT:

SAY ""
SAY "Sprint connecting...."
SAY ""
CALL ZocDelay 2
CALL ZocSend "@D^M"
timeout = ZocWaitMux("TERMINAL=","NO CARRIER")
IF timeout=640 THEN SIGNAL PTO
IF timeout=1 THEN SIGNAL REDIAL
CALL ZocSend "D1^M"
timeout = ZocWaitMux("@","NO CARRIER")
IF timeout=640 THEN SIGNAL PTO
IF timeout=1 THEN SIGNAL REDIAL
Scaning = 1
ADDNUA=CHK()
CALL ZocSend "0"||DNIC||""||GNUA||""||ADDNUA||""||IDXNUA||"^M"
Result = ZocWaitMux("DISCONNECTED","CONNECTED","NO CARRIER")
LogResult = 0
SIGNAL SCAN

SCAN:

IF Result = 1 THEN
DO
LogResult = ZocWaitMux("DISCONNECTED","([Y]/N)? >","Username:","login:","Password:","=>")
IF LogResult = 0 THEN
DO
Result = 0
SIGNAL SCAN
END
IF LogResult > 0 | LogResult < 6 THEN
DO
CALL ZocSend "guest^M"
Result = 1
SIGNAL SCAN
END
IF LogResult = 640 THEN SIGNAL NTO
SIGNAL SCAN
END
IF Result = 0 THEN
DO
timeout = ZocWaitMux("@","NO CARRIER")
IF timeout=640 THEN SIGNAL NTO
IF timeout=1 THEN SIGNAL REDIAL
IDXNUA=IDXNUA+1
ADDNUA=CHK()
CALL ZocSend "0"||DNIC||""||GNUA||""||ADDNUA||""||IDXNUA||"^M"
Result = ZocWaitMux("DISCONNECTED","CONNECTED","NO CARRIER")
SIGNAL SCAN
END
IF Result = 2 THEN SIGNAL REDIAL
IF Result = 640 THEN SIGNAL NTO
SIGNAL SCAN

CHK:
SELECT
WHEN SUBSTR(IDXNUA,1,5) = " " | SUBSTR(IDXNUA,1,5) = "99999" THEN
DO
ERR="Incorrect NUA"
SIGNAL QUIT
END
WHEN SUBSTR(IDXNUA,2,4) = " " THEN ADD="0000"
WHEN SUBSTR(IDXNUA,3,3) = " " THEN ADD="000"
WHEN SUBSTR(IDXNUA,4,2) = " " THEN ADD="00"
WHEN SUBSTR(IDXNUA,5,1) = " " THEN ADD="0"
END
RETURN ADD

QUIT:

CALL ZocCommand "CLS"
SAY " ________________________________"
SAY ""
SAY " -=[X-Sprint Scaner for ZOC]=- "
SAY ""
SAY " ver. 0.1 alpha"
SAY ""
SAY " Writed by X-Ray"
SAY ""
SAY " ### 2k4 ###"
SAY " ________________________________"
SAY ""
SAY ""
SAY " Good bye!!!"