home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / comms / read45a / SCRIPTS.ZIP / TERMINAL.SCR < prev    next >
Text File  |  1995-02-24  |  3KB  |  111 lines
  1.      SETUP (
  2.      Stop=1 :
  3.      Parity=none :
  4.      Fail=None :
  5.      Timeout=20 :
  6.      Echo=off :
  7.      Data=8 )
  8.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  9.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  10.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  11.     GOTO misrate
  12. T001::
  13.     SETUP (BAUD=2400)
  14.     INFO "Baud Rate set to 2400"
  15.     WAIT 3
  16.     GOTO misrate
  17. T002::
  18.     SETUP (BAUD=9600)
  19.     INFO "Baud Rate set to 9600"
  20.     WAIT 3
  21.     GOTO misrate
  22. T003::
  23.     SETUP (BAUD=19200)
  24.     INFO "Baud Rate set to 19200"
  25.     WAIT 3
  26. misrate::
  27.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  28.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  29.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  30.     GOTO misshake
  31. T004::
  32.     SETUP (HANDSHAKE=rtscts,xonxoff)
  33.     INFO "Handshaking set to Both"
  34.     GOTO misshake
  35. T005::
  36.     SETUP (HANDSHAKE=rtscts)
  37.     INFO "Handshaking set to RTSCTS"
  38.     GOTO misshake
  39. T006::
  40.     SETUP (HANDSHAKE=xonxoff)
  41.     INFO "Handshaking set to XonXoff"
  42. misshake::
  43.     ON send fail goto bad
  44.     SET c1=4
  45. MENU "Do You wish to Connect to CIX" (
  46.      "YES" GOTO yes
  47.      "NO" GOTO no
  48.      )
  49. yes:
  50. rAlive:
  51.         SEND "<initialise>"
  52.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  53.     ON c1 GOTO rAlive
  54.     GOTO merror
  55. alive:
  56.     SET C1=9
  57.     GOTO reDial   
  58. wait100:
  59.     INFO "Waiting to redial"
  60.     WAIT 10
  61. reDial:
  62.     SEND "<prefix><CixNumber>"
  63.     WAIT 120 (
  64.     ON reply "CONNECT" GOTO letsgo
  65.     ON reply "NO DIALTONE" GOTO tele
  66.     ON reply "NO CARRIER" GOTO nocar
  67.     ON reply "ERROR" GOTO black
  68.     ON reply "BUSY" GOTO again )
  69.     GOTO merror
  70. again:
  71.     ON c1 GOTO wait100
  72.     ALERT "Line busy" : EXIT
  73. letsGo:
  74.     INFO "CONNECTED..."
  75.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  76.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  77.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  78.     SEND "<CixPassword>"
  79. tryAgain:
  80.     WAIT 100 (
  81.     ON REPLY "Main:" GOTO gotMain
  82.     ON REPLY "More" GOTO gotMore )
  83.     ALERT "SOMETHING STRANGE"
  84. gotMain:
  85. ALERT "You are Now Online to CIX" 
  86. no:
  87. EXIT
  88. gotMore:
  89.     WAIT 1
  90.     SEND "n"
  91.     GOTO tryAgain
  92. black:
  93.     ALERT "Number dialled too many times" : EXIT
  94. nocar:
  95.     ALERT "No connection made" : EXIT
  96. tele:
  97.     ALERT "Check connected to telephone" : EXIT
  98. merror:
  99.     ALERT "Check modem connected" : EXIT
  100. bad:
  101.     ALERT "Check RS232 lead connected" : EXIT
  102. noLog:
  103.     ALERT "No Login received" : EXIT
  104. noUser:
  105.     ALERT "No user name" : EXIT
  106. noPass:
  107.     ALERT "No password" : EXIT
  108. noMain:
  109.     ALERT "No main"
  110.     EXIT
  111.