home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / READ45A / SCRIPTS.ZIP / RESUME.SCR < prev    next >
Encoding:
Text File  |  1995-04-29  |  3.2 KB  |  145 lines
  1.     QUERY "Download Resume" (
  2.     "UserName:",s2)
  3.   INFO "CIX Logon"
  4.      SETUP (
  5.      Stop=1 :
  6.      Parity=none :
  7.      Fail=None :
  8.      Timeout=20 :
  9.      Echo=off :
  10.      Data=8 )
  11.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  12.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  13.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  14.     GOTO misrate
  15. T001::
  16.     SETUP (BAUD=2400)
  17.     INFO "Baud Rate set to 2400"
  18.     WAIT 3
  19.     GOTO misrate
  20. T002::
  21.     SETUP (BAUD=9600)
  22.     INFO "Baud Rate set to 9600"
  23.     WAIT 3
  24.     GOTO misrate
  25. T003::
  26.     SETUP (BAUD=19200)
  27.     INFO "Baud Rate set to 19200"
  28.     WAIT 3
  29. misrate::
  30.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  31.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  32.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  33.     GOTO misshake
  34. T004::
  35.     SETUP (HANDSHAKE=rtscts,xonxoff)
  36.     INFO "Handshaking set to Both"
  37.     GOTO misshake
  38. T005::
  39.     SETUP (HANDSHAKE=rtscts)
  40.     INFO "Handshaking set to RTSCTS"
  41.     GOTO misshake
  42. T006::
  43.     SETUP (HANDSHAKE=xonxoff)
  44.     INFO "Handshaking set to XonXoff"
  45. misshake::
  46.     ON send fail goto bad
  47.     SET c1=4
  48. rAlive:
  49.         SEND "<initialise>"
  50.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  51.     ON c1 GOTO rAlive
  52.     GOTO merror
  53. alive:
  54.     SET C1=9
  55.     GOTO reDial   
  56. wait100:
  57.     INFO "Waiting to redial"
  58.     WAIT 10
  59. reDial:
  60.     SEND "<prefix><CixNumber>"
  61.     WAIT 120 (
  62.     ON reply "CONNECT" GOTO letsgo
  63.     ON reply "NO DIALTONE" GOTO tele
  64.     ON reply "NO CARRIER" GOTO nocar
  65.     ON reply "ERROR" GOTO black
  66.     ON reply "BUSY" GOTO again )
  67.     GOTO merror
  68. again:
  69.     ON c1 GOTO wait100
  70.     ALERT "Line busy" : EXIT
  71. letsGo:
  72.     INFO "CONNECTED..."
  73.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  74.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  75.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  76.     SEND "<CixPassword>"
  77. tryAgain:
  78.     WAIT 100 (
  79.     ON REPLY "Main:" GOTO gotMain
  80.     ON REPLY "More" GOTO gotMore )
  81.     ALERT "SOMETHING STRANGE"
  82. gotMain:
  83.         SEND "OPTION SCRATCHNAME res.txt QUIT"
  84.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y01
  85.     SEND "OPTION DOWNLOAD C Q"
  86.     GOTO misy01
  87. y01::
  88.     SEND "OPTION DOWNLOAD Y Q"
  89. misy01::
  90.       WAIT 5
  91.         SEND "FILE SHOW RESUME <s2>"
  92.         WAIT 100  (ON REPLY "Main:" GOTO maint 
  93.                    ON REPLY "Read:" GOTO readt)
  94.     GOTO maint
  95. readt: 
  96.         SEND "q"
  97. maint:
  98.         INFO "Starting Download"
  99.         SEND "Down"
  100.         WAIT 5
  101.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y02
  102.     RECEIVE "\cix\res.txt","XM1K"
  103.     GOTO missdown
  104. y02:: 
  105.     RECEIVE "\cix\res.txt","YM1K"
  106. missdown::
  107.         WAIT 100 (ON REPLY "Main:" GOTO swoff
  108.                   ON REPLY "y/n"   GOTO yorn)
  109.         INFO "Problem! Disconecting"
  110. swoff:
  111.         INFO "Sending LOGOFF"
  112.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  113.         SEND "Y"
  114. cont1:
  115.         INFO "Hanging UP!!"
  116.         HANGUP
  117.     INFO "Finished"
  118.     EXIT
  119. gotMore:
  120.     WAIT 1
  121.     SEND "n"
  122.     GOTO tryAgain
  123. yorn:
  124.         SEND "Y"
  125.         GOTO swoff
  126. black:
  127.     ALERT "Number dialled too many times" : EXIT
  128. nocar:
  129.     ALERT "No connection made" : EXIT
  130. tele:
  131.     ALERT "Check connected to telephone" : EXIT
  132. merror:
  133.     ALERT "Check modem connected" : EXIT
  134. bad:
  135.     ALERT "Check RS232 lead connected" : EXIT
  136. noLog:
  137.     ALERT "No Login received" : EXIT
  138. noUser:
  139.     ALERT "No user name" : EXIT
  140. noPass:
  141.     ALERT "No password" : EXIT
  142. noMain:
  143.     ALERT "No main"
  144.     EXIT
  145.