home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / READ45A / SCRIPTS.ZIP / FLISTS.SCR < prev    next >
Encoding:
Text File  |  1995-04-29  |  3.6 KB  |  159 lines
  1.     QUERY "Download File List" (
  2.     "Conference:",s2
  3.     "Topic     :",s3
  4.     )
  5.   INFO "CIX Logon"
  6.      SETUP (
  7.      Stop=1 :
  8.      Parity=none :
  9.      Fail=None :
  10.      Timeout=20 :
  11.      Echo=off :
  12.      Data=8 )
  13.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  14.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  15.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  16.     GOTO misrate
  17. T001::
  18.     SETUP (BAUD=2400)
  19.     INFO "Baud Rate set to 2400"
  20.     WAIT 3
  21.     GOTO misrate
  22. T002::
  23.     SETUP (BAUD=9600)
  24.     INFO "Baud Rate set to 9600"
  25.     WAIT 3
  26.     GOTO misrate
  27. T003::
  28.     SETUP (BAUD=19200)
  29.     INFO "Baud Rate set to 19200"
  30.     WAIT 3
  31. misrate::
  32.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  33.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  34.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  35.     GOTO misshake
  36. T004::
  37.     SETUP (HANDSHAKE=rtscts,xonxoff)
  38.     INFO "Handshaking set to Both"
  39.     GOTO misshake
  40. T005::
  41.     SETUP (HANDSHAKE=rtscts)
  42.     INFO "Handshaking set to RTSCTS"
  43.     GOTO misshake
  44. T006::
  45.     SETUP (HANDSHAKE=xonxoff)
  46.     INFO "Handshaking set to XonXoff"
  47. misshake::
  48.     ON send fail goto bad
  49.     SET c1=4
  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.         SEND "OPTION SCRATCHNAME fls.txt QUIT"
  86.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y01
  87.     SEND "OPTION DOWNLOAD C Q"
  88.     GOTO misy01
  89. y01::
  90.     SEND "OPTION DOWNLOAD Y Q"
  91. misy01::
  92.       WAIT 5
  93.         SEND "JOIN <s2>/<s3>"
  94.         WAIT 50 (ON REPLY "Read:" GOTO dfred
  95.                  ON REPLY "ead:" GOTO dfred 
  96.                  ON REPLY "y/n"   GOTO dfjoi
  97.                 )
  98.         INFO "Problem! Download Aborted"
  99.         GOTO swoff
  100. dfjoi:
  101.         SEND "N"
  102.         INFO "Problem! You are not joined to this Conference"
  103.         WAIT 5
  104.     GOTO swoff 
  105. dfred:
  106.         SEND "FILE FLIST"
  107.         WAIT 100 (ON REPLY "Read:" GOTO downfile
  108.                   ON REPLY "ead:" GOTO downfile
  109.                  )
  110.     GOTO swoff
  111. downfile::
  112.         INFO "Starting Download"
  113.         SEND "Down"
  114.         WAIT 5
  115.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y02
  116.     RECEIVE "\cix\fls.txt","XM1K"
  117.     GOTO missdown
  118. y02:: 
  119.     RECEIVE "\cix\fls.txt","YM1K"
  120. missdown::
  121.         WAIT 100 (ON REPLY "Main:" GOTO swoff
  122.                   ON REPLY "y/n"   GOTO yorn)
  123.         INFO "Problem! Disconecting"
  124. swoff:
  125.         INFO "Sending LOGOFF"
  126.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  127.         SEND "Y"
  128. cont1:
  129.         INFO "Hanging UP!!"
  130.         HANGUP
  131.     INFO "Finished"
  132.     EXIT
  133. gotMore:
  134.     WAIT 1
  135.     SEND "n"
  136.     GOTO tryAgain
  137. yorn:
  138.         SEND "Y"
  139.         GOTO swoff
  140. black:
  141.     ALERT "Number dialled too many times" : EXIT
  142. nocar:
  143.     ALERT "No connection made" : EXIT
  144. tele:
  145.     ALERT "Check connected to telephone" : EXIT
  146. merror:
  147.     ALERT "Check modem connected" : EXIT
  148. bad:
  149.     ALERT "Check RS232 lead connected" : EXIT
  150. noLog:
  151.     ALERT "No Login received" : EXIT
  152. noUser:
  153.     ALERT "No user name" : EXIT
  154. noPass:
  155.     ALERT "No password" : EXIT
  156. noMain:
  157.     ALERT "No main"
  158.     EXIT
  159.