home *** CD-ROM | disk | FTP | other *** search
Wrap
!---------------------------------------------------------------------- ! SPRINT.CCL !---------------------------------------------------------------------- ! ! Connect Sequence: ! -LABEL 0 Revision 1 DsplyMsg Initializing ~DRVR. CanBtn 19 { if cancel button - just exit } MdmType 4 4 { if tcp go to label 4} SetTries 0 ChrDelay 2 SerReset ~BAUD 0 8 1 HSReset 0 0 17 19 DsplyPic 1 MdmSetup { send out user's premodem init string} ! !---------------------------------------------------------------------- ! -LABEL 1 { wake up the modem } Flush ! MatchStr 1 2 ~CMDESC { In case we match dont wait for the full time} MatchStr 2 2 ~CMDOK ! MdmEsc { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! ! -Label 2 MatchStr 1 3 ~CMDOK MatchStr 2 33 ~CMDERR { Command error} ! MdmDisc ! { jump to label #3 if we see 'OK' go by } Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 33 { Exit stage left...time out error on modem.} ! !---------------------------------------------------------------------- ! -LABEL 3 { just saw 'OK'-Set modem to x1 } DsplyMsg Dialing ~PRFX~CLWT~FONE ! MatchStr 1 5 ~C300 MatchStr 2 6 ~C1200 MatchStr 3 7 ~C2400 MatchStr 4 8 ~C4800 MatchStr 5 9 ~C9600 MatchStr 6 33 ~NCDIALTONE MatchStr 7 27 ~NCANSWER MatchStr 8 33 ~NCVOICE MatchStr 9 33 ~NCCARRIER MatchStr 10 33 ~NCTIMEOUT MatchStr 11 26 ~NCBUSY MatchStr 12 33 ~CMDERR ! SetTries 0 CanBtn 18 { if cancel button hit, hangUp then exit } MdmDial ~TONE ~PRFX~CLWT~FONE ! { jump to label #13 if match } Wait 4800 { wait 60 seconds(MNP) for CONNECT msg from modem } Jump 27 { else hang up phone & exit } ! !---------------------------------------------------------------------- ! -LABEL 4 DsplyPic 1 NetConnect 11 ~PORT ~HOST Jump 36 -Label 5 SerReset 300 0 8 1 Pause 30 Flush Jump 12 ! ! -Label 6 SerReset 1200 0 8 1 Pause 30 Flush Jump 12 ! ! -Label 7 SerReset 2400 0 8 1 Pause 30 Flush Jump 12 ! -Label 8 SerReset 4800 0 8 1 Pause 30 Flush Jump 12 ! -Label 9 SerReset 9600 0 8 1 Pause 30 Flush Jump 12 ! !---------------------------------------------------------------------- ! -LABEL 11 DsplyPic 2 DsplyMsg Connected using TCP/IP Jump 17 -LABEL 12 { Modem just sent 'CONNECT' message } DsplyPic 2 DsplyMsg Connected at ~BAUD baud ! -LABEL 13 { Establishing Connection } Pause 30 ChrDelay 20 Cond \13D\13 { 300 baud } Cond \13D\13 {1200 baud } Cond @D\13 {2400 baud } Cond @D\13 {4800 baud } Cond @D\13 {9600 baud } ! ! MatchStr 1 15 = MatchStr 2 33 ? {Command error} MatchStr 3 32 LOCAL {Net Busy} MatchStr 4 16 @ {Skip the D1, missed the = sign} ! Xmit ~SYNC Wait 600 {Try to sync up to four times} IncTries IfTries 4 32 Jump 13 ! !---------------------------------------------------------------------- ! -LABEL 15 { = for term ID} ! Sending Terminal Identifier ! ChrDelay 2 MatchStr 1 16 @ MatchStr 2 33 ? {Command error} MatchStr 3 20 = {800 number dialing.} Pause 20 Xmit D1\13 ! Wait 600 Jump 32 ! !---------------------------------------------------------------------- ! -LABEL 16 { @ for Host num} ! Sending MacLink node number. ! MatchStr 1 17 CONNECTED MatchStr 2 33 ? {Command error} MatchStr 3 32 NOT RESP {Applelink down} MatchStr 4 32 AVAIL {Applelink down} MatchStr 5 32 REJECT {Applelink down} MatchStr 6 33 LOCAL {Net busy} MatchStr 7 33 ERROR {Command error} MatchStr 8 33 DISCONNECT {Invalid node} ! Pause 20 Xmit C ~TLN1\13 Wait 900 Jump 32 ! !---------------------------------------------------------------------- ! -LABEL 17 { System Ready ... All is well } DsplyPic 3 DsplyMsg Checking Password... Exit 0 ! !---------------------------------------------------------------------- ! -Label 18 { User aborted sequence } Hangup Exit -111 ! -Label 19 { User aborted sequence...dont need to hang up thou} Exit -111 !---------------------------------------------------------------------- ! -Label 20 {800 number sequence.} Pause 30 ! MatchStr 1 21 @ MatchStr 2 33 ? {Command error} MatchStr 3 20 = {800 number dialing.} ! Xmit ~TLN2\13 Wait 600 Jump 32 ! !---------------------------------------------------------------------- ! -LABEL 21 { @ for 800 Host num} ! ! MatchStr 1 17 CONNECTED MatchStr 2 33 ? {Command error} MatchStr 3 32 NOT RESP {Applelink down} MatchStr 4 32 AVAIL {Applelink down} MatchStr 5 32 REJECT {Applelink down} MatchStr 6 33 LOCAL {Net busy} MatchStr 7 33 ERROR {Command error} MatchStr 8 33 DISCONNECT {Invalid node} MatchStr 9 33 NOT PERMIT {Access via wats line.} ! Pause 20 Xmit C ~TLN3\13 Wait 900 Jump 32 ! ! !---------------------------------------------------------------------- ! -Label 26 {Busy phone} Talert All phone lines are currently busy. \13Please wait a few minutes and try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! ! ! -Label 27 {No Answer} Talert There is no answer from the access company (Error # 3).\13Verify the access number and try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 28 {Noisy line} Talert There is noise on your phone line (Error # 16).\13Please try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 29 {acct bad} Talert Unable to verify account information (Error # 22).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 30 {disk problem} Talert There was an error in reading your ~APPL disk (Error # 0).Please try again.\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 31 {acct aleady on} Talert Please wait a few minutes and try again (Error # 23).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 32 {not_avail} Talert ~APPL is not available at the moment (Error # 20).\13Please wait a few minutes and try again.\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 33 {generic} Talert Unable to initialize modem (Error # 1). Please take the following steps:\13\13 1) Turn your modem off, then back on.\13 2) Verify the access number.\13 3) Make sure that your modem and phone line are connected correctly. Talert 4) From Setup, select Setup Modem to verify your modem selection.\13 5) Try again. Jump 36 ! !---------------------------------------------------------------------- ! -Label 34 {db_error} Talert There is a bad ~APPL file on your disk (Error # 0).\13\13 Jump 36 ! !---------------------------------------------------------------------- ! -Label 35 Exit -1 ! -Label 36 Alert 35 \13If the problem persists, call ~APPL customer service at ~ACUS. Exit -1 !---------------------------------------------------------------------- ! *-Label 0 {Hangup Sequence} *CanBtn 2 *MdmType 4 4 {if tcp go to label 4} ! *Flush ! *MatchStr 1 1 ~CMDOK { Dont look for an echo first time, maybe a} *MatchStr 2 1 ~NCCARRIER { false echo. Any type of match is good} ! *MdmEsc {Try and get the modems attention} *Wait 210 ! *MatchStr 1 1 ~CMDOK *MatchStr 2 2 ~NCCARRIER {Any type of match is good} *MatchStr 3 1 ~CMDESC ! *MdmEsc {Double our odds} *Wait 210 ! *-Label 1 *MatchStr 1 2 ~CMDESC *MatchStr 2 2 ~CMDOK *MatchStr 3 2 ~NCCARRIER ! *MdmDisc *Wait 300 ! *-Label 2 *MdmRestore *Exit 0 ! *-Label 4 *NetDisc *Exit 0 ! ###