home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / comms / read45a / SCRIPTS.ZIP / CIXMAIL.SCR < prev    next >
Text File  |  1995-04-25  |  4KB  |  181 lines
  1.   INFO "CIX Logon"
  2.   SETUP (
  3.      Stop=1 :
  4.      Parity=none :
  5.      Fail=None :
  6.      Timeout=20 :
  7.      Echo=off :
  8.      Data=8 )
  9.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  10.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  11.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  12.     GOTO misrate
  13. T001::
  14.     SETUP (BAUD=2400)
  15.     INFO "Baud Rate set to 2400"
  16.     WAIT 3
  17.     GOTO misrate
  18. T002::
  19.     SETUP (BAUD=9600)
  20.     INFO "Baud Rate set to 9600"
  21.     WAIT 3
  22.     GOTO misrate
  23. T003::
  24.     SETUP (BAUD=19200)
  25.     INFO "Baud Rate set to 19200"
  26.     WAIT 3
  27. misrate::
  28.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  29.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  30.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  31.     GOTO misshake
  32. T004::
  33.     SETUP (HANDSHAKE=rtscts,xonxoff)
  34.     INFO "Handshaking set to Both"
  35.     GOTO misshake
  36. T005::
  37.     SETUP (HANDSHAKE=rtscts)
  38.     INFO "Handshaking set to RTSCTS"
  39.     GOTO misshake
  40. T006::
  41.     SETUP (HANDSHAKE=xonxoff)
  42.     INFO "Handshaking set to XonXoff"
  43. misshake::
  44.     ON send fail goto bad
  45.     SET c1=4
  46. rAlive:
  47.         SEND "<initialise>"
  48.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  49.     ON c1 GOTO rAlive
  50.     GOTO merror
  51. alive:
  52.     SET C1=9
  53.     GOTO reDial   
  54. wait100:
  55.     INFO "Waiting to redial"
  56.     WAIT 10
  57. reDial:
  58.     SEND "<prefix><CixNumber>"
  59.     WAIT 120 (
  60.     ON reply "CONNECT" GOTO letsgo
  61.     ON reply "NO DIALTONE" GOTO tele
  62.     ON reply "NO CARRIER" GOTO nocar
  63.     ON reply "ERROR" GOTO black
  64.     ON reply "BUSY" GOTO again )
  65.     GOTO merror
  66. again:
  67.     ON c1 GOTO wait100
  68.     ALERT "Line busy" : EXIT
  69. letsGo:
  70.     INFO "CONNECTED..."
  71.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  72.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  73.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  74.     SEND "<CixPassword>"
  75. tryAgain:
  76.     WAIT 100 (
  77.     ON REPLY "Main:" GOTO gotMain
  78.     ON REPLY "More" GOTO gotMore )
  79.     ALERT "SOMETHING STRANGE"
  80. gotMain:
  81.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y01
  82.     SEND "OPTION DOWNLOAD C Q"
  83.     GOTO misy01
  84. y01::
  85.     SEND "OPTION DOWNLOAD Y Q"
  86. misy01::
  87.     SEND "OPTION UPLOAD C Q"
  88.         SEND "OPTION SCRATCHNAME cix.txt QUIT"
  89.         SEND "OPTION REFERENCE YES QUIT"
  90.         SEND "Q"
  91.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup
  92.         INFO "Starting Upload"
  93.         SEND "UPLOAD"
  94.         WAIT 5
  95.     TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  96.         SEND "SCPUT SCRIPT"
  97.         WAIT 5
  98.         INFO "Running Script"
  99.         SEND "SCRIPT"
  100. noup:
  101.     WAIT 5
  102.         INFO "Getting Mail"
  103.         SEND "MAIL"
  104.         WAIT 50 (ON REPLY "Mail:" goto mcont)
  105. mcont:
  106.         SEND "File All"
  107. retry1:
  108.         WAIT 100 (ON REPLY "Mail:" GOTO read
  109.                   ON REPLY "ail:" GOTO read 
  110.                   ON REPLY "Scratchpad is 0 bytes." GOTO swoff)
  111.         GOTO retry1
  112. read:
  113.         SEND "q"
  114.         WAIT 50 (ON REPLY "Main:" GOTO file)
  115. file:
  116.         INFO "Starting Download"
  117.         SEND "Down"
  118.         WAIT 5
  119.     EXISTS "m:\cix\rhsc_opt.007" GOTO T007
  120.     EXISTS "m:\cix\rhsc_opt.008" GOTO T008
  121.     EXISTS "m:\cix\rhsc_opt.009" GOTO T009
  122. T007::
  123.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y02
  124.         RECEIVE "a:\cix\cix.txt","XM1K"
  125.         GOTO missdown
  126. y02:: 
  127.         RECEIVE "a:\cix\cix.txt","YM1K"
  128.         GOTO missdown
  129. T008::
  130.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y03
  131.         RECEIVE "m:\cix\cix.txt","XM1K"
  132.         GOTO missdown
  133. y03:: 
  134.         RECEIVE "m:\cix\cix.txt","YM1K"
  135.         GOTO missdown 
  136. T009::
  137.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y04
  138.         RECEIVE "b:\cix\cix.txt","XM1K"
  139.         GOTO missdown
  140. y04:: 
  141.         RECEIVE "b:\cix\cix.txt","YM1K"
  142. missdown::
  143.         WAIT 50 (ON REPLY "Main:" GOTO swoff
  144.                   ON REPLY "y/n"   GOTO yorn)
  145.         INFO "Problem! Disconecting"
  146. swoff:
  147.         INFO "Sending LOGOFF"
  148.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  149.         SEND "Y"
  150. cont1:
  151.         INFO "Hanging UP!!"
  152.         HANGUP
  153.     INFO "Finished"
  154.     EXIT
  155. gotMore:
  156.     WAIT 1
  157.     SEND "n"
  158.     GOTO tryAgain
  159. yorn:
  160.         SEND "Y<$d>"
  161.         GOTO swoff
  162. black:
  163.     ALERT "Number dialled too many times" : EXIT
  164. nocar:
  165.     ALERT "No connection made" : EXIT
  166. tele:
  167.     ALERT "Check connected to telephone" : EXIT
  168. merror:
  169.     ALERT "Check modem connected" : EXIT
  170. bad:
  171.     ALERT "Check RS232 lead connected" : EXIT
  172. noLog:
  173.     ALERT "No Login received" : EXIT
  174. noUser:
  175.     ALERT "No user name" : EXIT
  176. noPass:
  177.     ALERT "No password" : EXIT
  178. noMain:
  179.     ALERT "No main"
  180.     EXIT
  181.