home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / RCOM114 / SCR / CIXNCS.SCR < prev    next >
Encoding:
Text File  |  1994-10-13  |  1.9 KB  |  83 lines
  1. !
  2. ! Cix logon for a non constant speed modem
  3. !
  4.     INFO "Improved CIX Logon"
  5.     SETUP ( Baud=2400 :Stop=1 :Parity=none :Handshake=XonXoff
  6.             Fail=None :Timeout=20 :Echo=off :Data=8 )
  7.     ON send fail goto bad
  8.     SET c1=4
  9. rAlive:
  10.     SEND "AT"
  11.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  12.     ON c1 GOTO rAlive
  13.     GOTO merror
  14. alive:
  15.     SENDWAIT 10 "AT&F","OK<$d><$a>" GOTO merror
  16.     SET C1=3
  17.     GOTO reDial
  18. wait100:
  19.     INFO "Waiting to redial"
  20.     WAIT 60
  21. reDial:
  22.     SEND "ATD<CixNumber>"
  23.     WAIT 60 (
  24.     ON reply "CONNECT<$d>" GOTO letsgo300
  25.     ON reply "CONNECT 1200<$d>" GOTO letsgo1200
  26.     ON reply "CONNECT 2400<$d>" GOTO letsgo2400
  27.     ON reply "CONNECT<$d>" GOTO letsgo300
  28.     ON reply "NO DIALTONE" GOTO tele
  29.     ON reply "NO CARRIER" GOTO nocar
  30.     ON reply "ERROR" GOTO black
  31.     ON reply "BUSY" GOTO again )
  32.     GOTO merror
  33. again:
  34.     ON c1 GOTO wait100
  35.     ALERT "Line busy" : EXIT
  36. letsGo300:
  37.     INFO "CONNECTED...300"
  38.     SETUP BAUD=300
  39.     GOTO letsGo
  40. letsGo1200:
  41.     INFO "CONNECTED...1200"
  42.     SETUP BAUD=1200
  43.     GOTO letsGo
  44. letsGo2400:
  45.     INFO "CONNECTED...2400"
  46. letsGo:
  47.     SENDWAIT 60 "<$d>";,"login:" GOTO noLog
  48.     SENDWAIT 60 "qix<$d>";,"new user)" GOTO noUser
  49.     SENDWAIT 30 "<CixUserName>","Password:" GOTO noPass
  50.     SEND "<CixPassword>"
  51. tryAgain:
  52.     WAIT 40 (
  53.     ON REPLY "Main:" GOTO gotMain
  54.     ON REPLY "More" GOTO gotMore )
  55.     ALERT "SOMETHING STRANGE"
  56. gotMain:
  57.     EXIT
  58. gotMore:
  59.     WAIT 1
  60.     SEND "n"
  61.     GOTO tryAgain
  62.  
  63. black:
  64.     ALERT "Number dialled too many times" : EXIT
  65. nocar:
  66.     ALERT "No connection made" : EXIT
  67. tele:
  68.     ALERT "Check connected to telephone" : EXIT
  69. merror:
  70.     ALERT "Check modem connected" : EXIT
  71. bad:
  72.     ALERT "Check RS232 lead connected" : EXIT
  73. noLog:
  74.     ALERT "No Login received" : EXIT
  75. noUser:
  76.     ALERT "No user name" : EXIT
  77. noPass:
  78.     ALERT "No password" : EXIT
  79. noMain:
  80.     ALERT "No main"
  81.     EXIT
  82.  
  83.