home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / READ45A / SCRIPTS.ZIP / READALL.SCR < prev    next >
Encoding:
Text File  |  1995-04-24  |  22.4 KB  |  956 lines
  1. NEXISTS "m:\cix\file.swt" GOTO nofile
  2. MENU "Choose File Option" (
  3.      "Download File" GOTO dftag
  4.      "Upload File" GOTO uftag
  5.      "Download Binmail" GOTO dmtag
  6.      "Upload Binmail" GOTO umtag
  7.      "No File Action" GOTO nofile)
  8. nofile:
  9.   INFO "CIX Logon"
  10.      SETUP (
  11.      Stop=1 :
  12.      Parity=none :
  13.      Fail=None :
  14.      Timeout=20 :
  15.      Echo=off :
  16.      Data=8 )
  17.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  18.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  19.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  20.     GOTO misrate
  21. T001::
  22.     SETUP (BAUD=2400)
  23.     INFO "Baud Rate set to 2400"
  24.     WAIT 3
  25.     GOTO misrate
  26. T002::
  27.     SETUP (BAUD=9600)
  28.     INFO "Baud Rate set to 9600"
  29.     WAIT 3
  30.     GOTO misrate
  31. T003::
  32.     SETUP (BAUD=19200)
  33.     INFO "Baud Rate set to 19200"
  34.     WAIT 3
  35. misrate::
  36.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  37.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  38.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  39.     GOTO misshake
  40. T004::
  41.     SETUP (HANDSHAKE=rtscts,xonxoff)
  42.     INFO "Handshaking set to Both"
  43.     GOTO misshake
  44. T005::
  45.     SETUP (HANDSHAKE=rtscts)
  46.     INFO "Handshaking set to RTSCTS"
  47.     GOTO misshake
  48. T006::
  49.     SETUP (HANDSHAKE=xonxoff)
  50.     INFO "Handshaking set to XonXoff"
  51. misshake::
  52.     ON send fail goto bad
  53.     SET c1=4
  54. rAlive:
  55.         SEND "<initialise>"
  56.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  57.     ON c1 GOTO rAlive
  58.     GOTO merror
  59. alive:
  60.     SET C1=9
  61.     GOTO reDial   
  62. wait100:
  63.     INFO "Waiting to redial"
  64.     WAIT 10
  65. reDial:
  66.     SEND "<prefix><CixNumber>"
  67.     WAIT 120 (
  68.     ON reply "CONNECT" GOTO letsgo
  69.     ON reply "NO DIALTONE" GOTO tele
  70.     ON reply "NO CARRIER" GOTO nocar
  71.     ON reply "ERROR" GOTO black
  72.     ON reply "BUSY" GOTO again )
  73.     GOTO merror
  74. again:
  75.     ON c1 GOTO wait100
  76.     ALERT "Line busy" : EXIT
  77. letsGo:
  78.     INFO "CONNECTED..."
  79.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  80.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  81.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  82.     SEND "<CixPassword>"
  83. tryAgain:
  84.     WAIT 100 (
  85.     ON REPLY "Main:" GOTO gotMain
  86.     ON REPLY "More" GOTO gotMore )
  87.     ALERT "SOMETHING STRANGE"
  88. gotMain:
  89.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y01
  90.     SEND "OPTION DOWNLOAD C Q"
  91.     GOTO misy01
  92. y01::
  93.     SEND "OPTION DOWNLOAD Y Q"
  94. misy01::
  95.         SEND "OPTION UPLOAD C Q"
  96.         SEND "OPTION SCRATCHNAME cix.txt QUIT"
  97.         SEND "OPTION REFERENCE YES QUIT"
  98.     SEND "Q"
  99.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup
  100.         INFO "Starting Upload"
  101.         WAIT 5
  102.         SEND "UPLOAD"
  103.         WAIT 10
  104.         TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  105.         WAIT 5
  106.         SEND "SCPUT SCRIPT"
  107.         WAIT 5
  108.         INFO "Running Script"
  109.         SEND "SCRIPT"
  110. noup:
  111.         WAIT 5
  112.         INFO "Getting Mail"
  113.         SEND "MAIL"
  114.         WAIT 50 (ON REPLY "Mail:" goto mcont)
  115. mcont:
  116.         SEND "File All"
  117. retry1:
  118.         WAIT 100 (ON REPLY "Mail:" GOTO read
  119.                   ON REPLY "ail:" GOTO read)
  120.         GOTO retry1
  121. read:
  122.         SEND "q"
  123.         WAIT 50 (ON REPLY "Main:" GOTO file)
  124. file:
  125.         SEND "File read all"
  126. retry2:
  127.         WAIT 100 (ON REPLY "Main:" GOTO cont
  128.                   ON REPLY "ain:" GOTO cont)
  129.         GOTO retry2
  130. cont:
  131.         INFO "Starting Download"
  132.         SEND "Down"
  133.         WAIT 5
  134.     EXISTS "m:\cix\rhsc_opt.007" GOTO T007
  135.     EXISTS "m:\cix\rhsc_opt.008" GOTO T008
  136.     EXISTS "m:\cix\rhsc_opt.009" GOTO T009
  137. T007::
  138.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y02
  139.         RECEIVE "a:\cix\cix.txt","XM1K"
  140.         GOTO missdown
  141. y02:: 
  142.         RECEIVE "a:\cix\cix.txt","YM1K"
  143.         GOTO missdown
  144. T008::
  145.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y03
  146.         RECEIVE "m:\cix\cix.txt","XM1K"
  147.         GOTO missdown
  148. y03:: 
  149.         RECEIVE "m:\cix\cix.txt","YM1K"
  150.         GOTO missdown 
  151. T009::
  152.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y04
  153.         RECEIVE "b:\cix\cix.txt","XM1K"
  154.         GOTO missdown
  155. y04:: 
  156.         RECEIVE "b:\cix\cix.txt","YM1K"
  157. missdown::
  158.         WAIT 50 (ON REPLY "Main:" GOTO swoff
  159.                  ON REPLY "y/n"   GOTO yorn)
  160.         INFO "Problem! Disconecting"
  161. swoff:
  162.         INFO "Sending LOGOFF"
  163.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  164.         SEND "Y"
  165. cont1:
  166.         INFO "Hanging UP!!"
  167.         HANGUP
  168.     INFO "Finished"
  169.     EXIT
  170. gotMore:
  171.     WAIT 1
  172.     SEND "n"
  173.     GOTO tryAgain
  174. yorn:
  175.         SEND "Y<$d>"
  176.         GOTO swoff
  177.  
  178. dftag:
  179.     QUERY "File Download" (
  180.     "Conference:",s2
  181.         "Topic:",s3
  182.         "File to Download:",s4
  183.         "To (Path and Name):",s5)
  184.     INFO "CIX Logon"
  185.      SETUP (
  186.      Stop=1 :
  187.      Parity=none :
  188.      Fail=None :
  189.      Timeout=20 :
  190.      Echo=off :
  191.      Data=8 )
  192.     EXISTS "m:\cix\rhsc_opt.001" GOTO T1001
  193.     EXISTS "m:\cix\rhsc_opt.002" GOTO T1002
  194.     EXISTS "m:\cix\rhsc_opt.003" GOTO T1003
  195.     GOTO misrate1
  196. T1001::
  197.     SETUP (BAUD=2400)
  198.     INFO "Baud Rate set to 2400"
  199.     WAIT 3
  200.     GOTO misrate1
  201. T1002::
  202.     SETUP (BAUD=9600)
  203.     INFO "Baud Rate set to 9600"
  204.     WAIT 3
  205.     GOTO misrate1
  206. T1003::
  207.     SETUP (BAUD=19200)
  208.     INFO "Baud Rate set to 19200"
  209.     WAIT 3
  210. misrate1::
  211.     EXISTS "m:\cix\rhsc_opt.004" GOTO T1004
  212.     EXISTS "m:\cix\rhsc_opt.005" GOTO T1005
  213.     EXISTS "m:\cix\rhsc_opt.006" GOTO T1006
  214.     GOTO misshake1
  215. T1004::
  216.     SETUP (HANDSHAKE=rtscts,xonxoff)
  217.     INFO "Handshaking set to Both"
  218.     GOTO misshake1
  219. T1005::
  220.     SETUP (HANDSHAKE=rtscts)
  221.     INFO "Handshaking set to RTSCTS"
  222.     GOTO misshake1
  223. T1006::
  224.     SETUP (HANDSHAKE=xonxoff)
  225.     INFO "Handshaking set to XonXoff"
  226. misshake1::
  227.     ON send fail goto bad
  228.     SET c1=4
  229. dfrAlive:
  230.         SEND "<initialise>"
  231.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO dfalive )
  232.     ON c1 GOTO dfrAlive
  233.     GOTO merror
  234. dfalive:
  235.     SET C1=9
  236.     GOTO dfreDial   
  237. dfwait100:
  238.     INFO "Waiting to redial"
  239.     WAIT 10
  240. dfreDial:
  241.     SEND "<prefix><CixNumber>"
  242.     WAIT 120 (
  243.     ON reply "CONNECT" GOTO dfletsgo
  244.     ON reply "NO DIALTONE" GOTO tele
  245.     ON reply "NO CARRIER" GOTO nocar
  246.     ON reply "ERROR" GOTO black
  247.     ON reply "BUSY" GOTO dfagain )
  248.     GOTO merror
  249. dfagain:
  250.     ON c1 GOTO dfwait100
  251.     ALERT "Line busy" : EXIT
  252. dfletsGo:
  253.     INFO "CONNECTED..."
  254.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  255.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  256.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  257.     SEND "<CixPassword>"
  258. dftryAgain:
  259.     WAIT 100 (
  260.     ON REPLY "Main:" GOTO dfgotMain
  261.     ON REPLY "More" GOTO dfgotMore )
  262.     ALERT "SOMETHING STRANGE"
  263. dfgotMain:
  264.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y20
  265.     SEND "OPTION DOWNLOAD C Q"
  266.     GOTO misy20
  267. y20::
  268.     SEND "OPTION DOWNLOAD Y Q"
  269. misy20::
  270.     SEND "OPTION UPLOAD C Q"
  271.         SEND "OPTION SCRATCHNAME cix.txt QUIT"
  272.         SEND "OPTION REFERENCE YES QUIT"
  273.         SEND "Q"
  274.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup1
  275.         INFO "Starting Upload"
  276.         SEND "UPLOAD"
  277.         WAIT 5
  278.         TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  279.         SEND "SCPUT SCRIPT"
  280.         WAIT 5
  281.         INFO "Running Script"
  282.         SEND "SCRIPT"
  283. noup1:
  284.     WAIT 5
  285.         INFO "Getting Mail"
  286.         SEND "MAIL"
  287.         WAIT 50 (ON REPLY "Mail:" goto dfmcont)
  288. dfmcont:
  289.         SEND "File All"
  290. dfretry1:
  291.         WAIT 100 (ON REPLY "Mail:" GOTO dfread
  292.                   ON REPLY "ail:" GOTO dfread)
  293.         GOTO dfretry1
  294. dfread:
  295.         SEND "q"
  296.         WAIT 50 (ON REPLY "Main:" GOTO dffile)
  297. dffile:
  298.         SEND "File read all"
  299. dfretry2:
  300.         WAIT 100 (ON REPLY "Main:" GOTO dfcont
  301.                   ON REPLY "ain:" GOTO dfcont)
  302.         GOTO dfretry2
  303. dfcont:
  304.         INFO "Starting Download"
  305.         SEND "Down"
  306.         WAIT 5
  307.     EXISTS "m:\cix\rhsc_opt.007" GOTO T1007
  308.     EXISTS "m:\cix\rhsc_opt.008" GOTO T1008
  309.     EXISTS "m:\cix\rhsc_opt.009" GOTO T1009
  310. T1007::
  311.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y05
  312.         RECEIVE "a:\cix\cix.txt","XM1K"
  313.         GOTO missdown1
  314. y05:: 
  315.         RECEIVE "a:\cix\cix.txt","YM1K"
  316.         GOTO missdown1 
  317. T1008::
  318.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y06
  319.         RECEIVE "m:\cix\cix.txt","XM1K"
  320.         GOTO missdown1
  321. y06:: 
  322.         RECEIVE "m:\cix\cix.txt","YM1K"
  323.         GOTO missdown1 
  324. T1009::
  325.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y07
  326.         RECEIVE "b:\cix\cix.txt","XM1K"
  327.         GOTO missdown1
  328. y07:: 
  329.         RECEIVE "b:\cix\cix.txt","YM1K"
  330. missdown1::
  331.         WAIT 50 (ON REPLY "Main:" GOTO dfswoff
  332.                  ON REPLY "y/n"   GOTO dfyorn)
  333.         INFO "Problem! Disconecting"
  334.         GOTO dfnofile2
  335. dfswoff:
  336.     SEND "OPTION DOWNLOAD C Q"
  337.         NEXISTS "m:\cix\file.swt" GOTO dfnofile2
  338.         SEND "JOIN <s2>/<s3>"
  339.         WAIT 50 (ON REPLY "Read Ref:" GOTO dfred
  340.                  ON REPLY "y/n"   GOTO dfjoi)
  341.         INFO "Problem! Download Aborted"
  342.         GOTO dfnofile2
  343. dfjoi:
  344.         SEND "N"
  345.         INFO "Problem! You are not joined to this Conference"
  346.         WAIT 5
  347.     GOTO dfnofile2 
  348. dfred:
  349.         SEND "FDL <s4>"
  350.         WAIT 50 (ON REPLY "(Mis-spelled?)" GOTO dfnofile2 )
  351.         RECEIVE s5,"XM1K" 
  352.         SENDWAIT 50 "QUIT","Main:" GOTO dfnofile2
  353. dfnofile2:
  354.         INFO "Sending LOGOFF"
  355.         SENDWAIT 20 "BYE","y/n" GOTO dfcont1
  356.         SEND "Y"
  357. dfcont1:
  358.         INFO "Hanging UP!!"
  359.         HANGUP
  360.     INFO "Finished"
  361.     EXIT
  362. dfgotMore:
  363.     WAIT 1
  364.     SEND "n"
  365.     GOTO dftryAgain
  366. dfyorn:
  367.         SEND "Y<$d>"
  368.         GOTO dfswoff
  369.  
  370. dmtag:
  371.     QUERY "Binmail Download" (
  372.         "File to Download:",s4
  373.         "To (Path and Name):",s5)
  374.     INFO "CIX Logon"
  375.      SETUP (
  376.      Stop=1 :
  377.      Parity=none :
  378.      Fail=None :
  379.      Timeout=20 :
  380.      Echo=off :
  381.      Data=8 )
  382.     EXISTS "m:\cix\rhsc_opt.001" GOTO T2001
  383.     EXISTS "m:\cix\rhsc_opt.002" GOTO T2002
  384.     EXISTS "m:\cix\rhsc_opt.003" GOTO T2003
  385.     GOTO misrate2
  386. T2001::
  387.     SETUP (BAUD=2400)
  388.     INFO "Baud Rate set to 2400"
  389.     WAIT 3
  390.     GOTO misrate2
  391. T2002::
  392.     SETUP (BAUD=9600)
  393.     INFO "Baud Rate set to 9600"
  394.     WAIT 3
  395.     GOTO misrate2
  396. T2003::
  397.     SETUP (BAUD=19200)
  398.     INFO "Baud Rate set to 19200"
  399.     WAIT 3
  400. misrate2::
  401.     EXISTS "m:\cix\rhsc_opt.004" GOTO T2004
  402.     EXISTS "m:\cix\rhsc_opt.005" GOTO T2005
  403.     EXISTS "m:\cix\rhsc_opt.006" GOTO T2006
  404.     GOTO misshake2
  405. T2004::
  406.     SETUP (HANDSHAKE=rtscts,xonxoff)
  407.     INFO "Handshaking set to Both"
  408.     GOTO misshake2
  409. T2005::
  410.     SETUP (HANDSHAKE=rtscts)
  411.     INFO "Handshaking set to RTSCTS"
  412.     GOTO misshake2
  413. T2006::
  414.     SETUP (HANDSHAKE=xonxoff)
  415.     INFO "Handshaking set to XonXoff"
  416. misshake2::
  417.     ON send fail goto bad
  418.     SET c1=4
  419. dmrAlive:
  420.         SEND "<initialise>"
  421.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO dmalive )
  422.     ON c1 GOTO dmrAlive
  423.     GOTO merror
  424. dmalive:
  425.     SET C1=9
  426.     GOTO dmreDial   
  427. dmwait100:
  428.     INFO "Waiting to redial"
  429.     WAIT 10
  430. dmreDial:
  431.     SEND "<prefix><CixNumber>"
  432.     WAIT 120 (
  433.     ON reply "CONNECT" GOTO dmletsgo
  434.     ON reply "NO DIALTONE" GOTO tele
  435.     ON reply "NO CARRIER" GOTO nocar
  436.     ON reply "ERROR" GOTO black
  437.     ON reply "BUSY" GOTO dmagain )
  438.     GOTO merror
  439. dmagain:
  440.     ON c1 GOTO dmwait100
  441.     ALERT "Line busy" : EXIT
  442. dmletsGo:
  443.     INFO "CONNECTED..."
  444.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  445.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  446.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  447.     SEND "<CixPassword>"
  448. dmtryAgain:
  449.     WAIT 100 (
  450.     ON REPLY "Main:" GOTO dmgotMain
  451.     ON REPLY "More" GOTO dmgotMore )
  452.     ALERT "SOMETHING STRANGE"
  453. dmgotMain:
  454.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y30
  455.     SEND "OPTION DOWNLOAD C Q"
  456.     GOTO misy30
  457. y30::    
  458.     SEND "OPTION DOWNLOAD Y Q"
  459. misy30::
  460.         SEND "OPTION UPLOAD C Q"
  461.         SEND "OPTION SCRATCHNAME cix.txt QUIT"
  462.         SEND "OPTION REFERENCE YES QUIT"
  463.         SEND "Q"
  464.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup2
  465.         INFO "Starting Upload"
  466.         SEND "UPLOAD"
  467.         WAIT 5
  468.         TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  469.         SEND "SCPUT SCRIPT"
  470.         WAIT 5
  471.         INFO "Running Script"
  472.         SEND "SCRIPT"
  473. noup2:
  474.     WAIT 5
  475.         INFO "Getting Mail"
  476.         SEND "MAIL"
  477.         WAIT 50 (ON REPLY "Mail:" goto dmmcont)
  478. dmmcont:
  479.         SEND "File All"
  480. dmretry1:
  481.         WAIT 100 (ON REPLY "Mail:" GOTO dmread
  482.                   ON REPLY "ail:" GOTO dmread)
  483.         GOTO dmretry1
  484. dmread:
  485.         SEND "q"
  486.         WAIT 50 (ON REPLY "Main:" GOTO dmfile)
  487. dmfile:
  488.         SEND "File read all"
  489. dmretry2:
  490.         WAIT 100 (ON REPLY "Main:" GOTO dmcont
  491.                   ON REPLY "ain:" GOTO dmcont)
  492.         GOTO dmretry2
  493. dmcont:
  494.         INFO "Starting Download"
  495.         SEND "Down"
  496.         WAIT 5
  497.     EXISTS "m:\cix\rhsc_opt.007" GOTO T2007
  498.     EXISTS "m:\cix\rhsc_opt.008" GOTO T2008
  499.     EXISTS "m:\cix\rhsc_opt.009" GOTO T2009
  500. T2007::
  501.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y08
  502.         RECEIVE "a:\cix\cix.txt","XM1K"
  503.         GOTO missdown2
  504. y08:: 
  505.         RECEIVE "a:\cix\cix.txt","YM1K"
  506.         GOTO missdown2
  507. T2008::
  508.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y09
  509.         RECEIVE "m:\cix\cix.txt","XM1K"
  510.         GOTO missdown2
  511. y09:: 
  512.         RECEIVE "m:\cix\cix.txt","YM1K"
  513.         GOTO missdown2
  514. T2009::
  515.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y10
  516.         RECEIVE "b:\cix\cix.txt","XM1K"
  517.         GOTO missdown2
  518. y10:: 
  519.         RECEIVE "b:\cix\cix.txt","YM1K"
  520. missdown2::
  521.         WAIT 50 (ON REPLY "Main:" GOTO dmswoff
  522.                  ON REPLY "y/n"   GOTO dmyorn)
  523.         INFO "Problem! Disconecting"
  524.         GOTO dmnofile2
  525. dmswoff:
  526.         NEXISTS "m:\cix\file.swt" GOTO dmnofile2
  527.         SEND "OPTION DOWNLOAD C Q"
  528.         SEND "MAIL"
  529.         WAIT 50 (ON REPLY "Mail:" GOTO dmred)
  530.         INFO "Problem! Download Aborted"
  531.         GOTO dmnofile2
  532. dmred:
  533.         SEND "FDL <s4>"
  534.         WAIT 50 (ON REPLY "(Mis-spelled?)" GOTO dmnofile2 )
  535.         RECEIVE s5,"XM1K" 
  536.         SENDWAIT 50 "QUIT","Main:" GOTO dmnofile2
  537. dmnofile2:
  538.         INFO "Sending LOGOFF"
  539.         SENDWAIT 20 "BYE","y/n" GOTO dmcont1
  540.         SEND "Y"
  541. dmcont1:
  542.         INFO "Hanging UP!!"
  543.         HANGUP
  544.     INFO "Finished"
  545.     EXIT
  546. dmgotMore:
  547.     WAIT 1
  548.     SEND "n"
  549.     GOTO dmtryAgain
  550. dmyorn:
  551.         SEND "Y<$d>"
  552.         GOTO dmswoff
  553.  
  554. uftag:
  555.     QUERY "File Upload" (
  556.     "Conference:",s2
  557.         "Topic:",s3
  558.         "File Path and Name:",s4
  559.         "Upload as:",s5
  560.         "Description/Size:",s6
  561.         )
  562.     INFO "CIX Logon"
  563.      SETUP (
  564.      Stop=1 :
  565.      Parity=none :
  566.      Fail=None :
  567.      Timeout=20 :
  568.      Echo=off :
  569.      Data=8 )
  570.     EXISTS "m:\cix\rhsc_opt.001" GOTO T3001
  571.     EXISTS "m:\cix\rhsc_opt.002" GOTO T3002
  572.     EXISTS "m:\cix\rhsc_opt.003" GOTO T3003
  573.     GOTO misrate3
  574. T3001::
  575.     SETUP (BAUD=2400)
  576.     INFO "Baud Rate set to 2400"
  577.     WAIT 3
  578.     GOTO misrate3
  579. T3002::
  580.     SETUP (BAUD=9600)
  581.     INFO "Baud Rate set to 9600"
  582.     WAIT 3
  583.     GOTO misrate3
  584. T3003::
  585.     SETUP (BAUD=19200)
  586.     INFO "Baud Rate set to 19200"
  587.     WAIT 3
  588. misrate3::
  589.     EXISTS "m:\cix\rhsc_opt.004" GOTO T3004
  590.     EXISTS "m:\cix\rhsc_opt.005" GOTO T3005
  591.     EXISTS "m:\cix\rhsc_opt.006" GOTO T3006
  592.     GOTO misshake3
  593. T3004::
  594.     SETUP (HANDSHAKE=rtscts,xonxoff)
  595.     INFO "Handshaking set to Both"
  596.     GOTO misshake3
  597. T3005::
  598.     SETUP (HANDSHAKE=rtscts)
  599.     INFO "Handshaking set to RTSCTS"
  600.     GOTO misshake3
  601. T3006::
  602.     SETUP (HANDSHAKE=xonxoff)
  603.     INFO "Handshaking set to XonXoff"
  604. misshake3::
  605.        ON send fail goto bad
  606.     SET c1=4
  607. ufrAlive:
  608.         SEND "<initialise>"
  609.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO ufalive )
  610.     ON c1 GOTO ufrAlive
  611.     GOTO merror
  612. ufalive:
  613.     SET C1=9
  614.     GOTO ufreDial   
  615. ufwait100:
  616.     INFO "Waiting to redial"
  617.     WAIT 10
  618. ufreDial:
  619.     SEND "<prefix><CixNumber>"
  620.     WAIT 120 (
  621.     ON reply "CONNECT" GOTO ufletsgo
  622.     ON reply "NO DIALTONE" GOTO tele
  623.     ON reply "NO CARRIER" GOTO nocar
  624.     ON reply "ERROR" GOTO black
  625.     ON reply "BUSY" GOTO ufagain )
  626.     GOTO merror
  627. ufagain:
  628.     ON c1 GOTO ufwait100
  629.     ALERT "Line busy" : EXIT
  630. ufletsGo:
  631.     INFO "CONNECTED..."
  632.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  633.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  634.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  635.     SEND "<CixPassword>"
  636. uftryAgain:
  637.     WAIT 100 (
  638.     ON REPLY "Main:" GOTO ufgotMain
  639.     ON REPLY "More" GOTO ufgotMore )
  640.     ALERT "SOMETHING STRANGE"
  641. ufgotMain:
  642.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y40
  643.     SEND "OPTION DOWNLOAD C Q"
  644.     GOTO misy40
  645. y40::
  646.     SEND "OPTION DOWNLOAD Y Q"
  647. misy40::
  648.       SEND "OPTION UPLOAD C Q"
  649.       SEND "OPTION SCRATCHNAME cix.txt QUIT"
  650.         SEND "OPTION REFERENCE YES QUIT"
  651.         SEND "Q"
  652.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup3
  653.         INFO "Starting Upload"
  654.         SEND "UPLOAD"
  655.         WAIT 5
  656.         TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  657.         SEND "SCPUT SCRIPT"
  658.         WAIT 5
  659.         INFO "Running Script"
  660.         SEND "SCRIPT"
  661. noup3:
  662.     WAIT 5
  663.         INFO "Getting Mail"
  664.         SEND "MAIL"
  665.         WAIT 50 (ON REPLY "Mail:" goto ufmcont)
  666. ufmcont:
  667.         SEND "File All"
  668. ufretry1:
  669.         WAIT 100 (ON REPLY "Mail:" GOTO ufread
  670.                   ON REPLY "ail:" GOTO ufread)
  671.         GOTO ufretry1
  672. ufread:
  673.         SEND "q"
  674.         WAIT 50 (ON REPLY "Main:" GOTO uffile)
  675. uffile:
  676.         SEND "File read all"
  677. ufretry2:
  678.         WAIT 100 (ON REPLY "Main:" GOTO ufcont
  679.                   ON REPLY "ain:" GOTO ufcont)
  680.         GOTO ufretry2
  681. ufcont:
  682.         INFO "Starting Download"
  683.         SEND "Down"
  684.         WAIT 5
  685.     EXISTS "m:\cix\rhsc_opt.007" GOTO T3007
  686.     EXISTS "m:\cix\rhsc_opt.008" GOTO T3008
  687.     EXISTS "m:\cix\rhsc_opt.009" GOTO T3009
  688. T3007::
  689.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y11
  690.         RECEIVE "a:\cix\cix.txt","XM1K"
  691.         GOTO missdown3
  692. y11:: 
  693.         RECEIVE "a:\cix\cix.txt","YM1K"
  694.         GOTO missdown3
  695. T3008::
  696.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y12
  697.         RECEIVE "m:\cix\cix.txt","XM1K"
  698.         GOTO missdown3
  699. y12:: 
  700.         RECEIVE "m:\cix\cix.txt","YM1K"
  701.         GOTO missdown3
  702. T3009::
  703.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y13
  704.         RECEIVE "b:\cix\cix.txt","XM1K"
  705.         GOTO missdown3
  706. y13:: 
  707.         RECEIVE "b:\cix\cix.txt","YM1K"
  708. missdown3::
  709.         WAIT 50 (ON REPLY "Main:" GOTO ufswoff
  710.                  ON REPLY "y/n"   GOTO ufyorn)
  711.         INFO "Problem! Disconecting"
  712.         GOTO ufnofile2
  713. ufswoff:
  714.         NEXISTS "m:\cix\file.swt" GOTO ufnofile2
  715.         SEND "JOIN <s2>/<s3>"
  716.         WAIT 50 (ON REPLY "Read Ref:" GOTO ufred
  717.                  ON REPLY "y/n"   GOTO ufjoi)
  718.         INFO "Problem! Upload Aborted"
  719.         GOTO ufnofile2
  720. ufjoi:
  721.         SEND "N"
  722.         INFO "Problem! You are not joined to this Conference"
  723.         WAIT 5
  724.     GOTO ufnofile2 
  725. ufred:
  726.         SEND "FUL <s5>"
  727.         WAIT 5
  728.         TRANSMIT s4,"XM1K"
  729.         WAIT 5
  730.         SEND "File <s5>"
  731.         WAIT 2
  732.         SEND "<s6>"
  733.         WAIT 2
  734.         SEND "."
  735.         WAIT 2
  736.         SEND "SEND" 
  737.         SENDWAIT 50 "QUIT","Main:" GOTO ufnofile2
  738. ufnofile2:
  739.         INFO "Sending LOGOFF"
  740.         SENDWAIT 50 "BYE","y/n" GOTO ufcont1
  741.         SEND "Y"
  742. ufcont1:
  743.         INFO "Hanging UP!!"
  744.         HANGUP
  745.     INFO "Finished"
  746.     EXIT
  747. ufgotMore:
  748.     WAIT 1
  749.     SEND "n"
  750.     GOTO uftryAgain
  751. ufyorn:
  752.         SEND "Y<$d>"
  753.         GOTO ufswoff
  754.  
  755. umtag:
  756.     QUERY "Binmail Upload" (
  757.         "Upload as:",s4
  758.         "From Path and Name:",s5)
  759.     INFO "CIX Logon"
  760.      SETUP (
  761.      Stop=1 :
  762.      Parity=none :
  763.      Fail=None :
  764.      Timeout=20 :
  765.      Echo=off :
  766.      Data=8 )
  767.     EXISTS "m:\cix\rhsc_opt.001" GOTO T4001
  768.     EXISTS "m:\cix\rhsc_opt.002" GOTO T4002
  769.     EXISTS "m:\cix\rhsc_opt.003" GOTO T4003
  770.     GOTO misrate4
  771. T4001::
  772.     SETUP (BAUD=2400)
  773.     INFO "Baud Rate set to 2400"
  774.     WAIT 3
  775.     GOTO misrate4
  776. T4002::
  777.     SETUP (BAUD=9600)
  778.     INFO "Baud Rate set to 9600"
  779.     WAIT 3
  780.     GOTO misrate4
  781. T4003::
  782.     SETUP (BAUD=19200)
  783.     INFO "Baud Rate set to 19200"
  784.     WAIT 3
  785. misrate4::
  786.     EXISTS "m:\cix\rhsc_opt.004" GOTO T4004
  787.     EXISTS "m:\cix\rhsc_opt.005" GOTO T4005
  788.     EXISTS "m:\cix\rhsc_opt.006" GOTO T4006
  789.     GOTO misshake4
  790. T4004::
  791.     SETUP (HANDSHAKE=rtscts,xonxoff)
  792.     INFO "Handshaking set to Both"
  793.     GOTO misshake4
  794. T4005::
  795.     SETUP (HANDSHAKE=rtscts)
  796.     INFO "Handshaking set to RTSCTS"
  797.     GOTO misshake4
  798. T4006::
  799.     SETUP (HANDSHAKE=xonxoff)
  800.     INFO "Handshaking set to XonXoff"
  801. misshake4::
  802.     ON send fail goto bad
  803.     SET c1=4
  804. umrAlive:
  805.         SEND "<initialise>"
  806.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO umalive )
  807.     ON c1 GOTO umrAlive
  808.     GOTO merror
  809. umalive:
  810.     SET C1=9
  811.     GOTO umreDial   
  812. umwait100:
  813.     INFO "Waiting to redial"
  814.     WAIT 10
  815. umreDial:
  816.     SEND "<prefix><CixNumber>"
  817.     WAIT 120 (
  818.     ON reply "CONNECT" GOTO umletsgo
  819.     ON reply "NO DIALTONE" GOTO tele
  820.     ON reply "NO CARRIER" GOTO nocar
  821.     ON reply "ERROR" GOTO black
  822.     ON reply "BUSY" GOTO umagain )
  823.     GOTO merror
  824. umagain:
  825.     ON c1 GOTO umwait100
  826.     ALERT "Line busy" : EXIT
  827. umletsGo:
  828.     INFO "CONNECTED..."
  829.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  830.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  831.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  832.     SEND "<CixPassword>"
  833. umtryAgain:
  834.     WAIT 100 (
  835.     ON REPLY "Main:" GOTO umgotMain
  836.     ON REPLY "More" GOTO umgotMore )
  837.     ALERT "SOMETHING STRANGE"
  838. umgotMain:
  839.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y50
  840.     SEND "OPTION DOWNLOAD C Q"
  841.     GOTO misy50
  842. y50::
  843.     SEND "OPTION DOWNLOAD Y Q"
  844. misy50::
  845.         SEND "OPTION UPLOAD C Q"
  846.         SEND "OPTION SCRATCHNAME cix.txt QUIT"
  847.         SEND "OPTION REFERENCE YES QUIT"
  848.         SEND "Q"
  849.     NEXISTS "loc::m:\cix\reply.txt" GOTO noup4
  850.         INFO "Starting Upload"
  851.         SEND "UPLOAD"
  852.         WAIT 5
  853.         TRANSMIT "loc::m:\cix\reply.txt","XM1K"
  854.         SEND "SCPUT SCRIPT"
  855.         WAIT 5
  856.         INFO "Running Script"
  857.         SEND "SCRIPT"
  858. noup4:
  859.     WAIT 5
  860.         INFO "Getting Mail"
  861.         SEND "MAIL"
  862.         WAIT 50 (ON REPLY "Mail:" goto ummcont)
  863. ummcont:
  864.         SEND "File All"
  865. umretry1:
  866.         WAIT 100 (ON REPLY "Mail:" GOTO umread
  867.                   ON REPLY "ail:" GOTO umread)
  868.         GOTO umretry1
  869. umread:
  870.         SEND "q"
  871.         WAIT 50 (ON REPLY "Main:" GOTO umfile)
  872. umfile:
  873.         SEND "File read all"
  874. umretry2:
  875.         WAIT 100 (ON REPLY "Main:" GOTO umcont
  876.                   ON REPLY "ain:" GOTO umcont)
  877.         GOTO umretry2
  878. umcont:
  879.         INFO "Starting Download"
  880.         SEND "Down"
  881.         WAIT 5
  882.     EXISTS "m:\cix\rhsc_opt.007" GOTO T4007
  883.     EXISTS "m:\cix\rhsc_opt.008" GOTO T4008
  884.     EXISTS "m:\cix\rhsc_opt.009" GOTO T4009
  885. T4007::
  886.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y15
  887.         RECEIVE "a:\cix\cix.txt","XM1K"
  888.         GOTO missdown4
  889. y15:: 
  890.         RECEIVE "a:\cix\cix.txt","YM1K"
  891.         GOTO missdown4
  892. T4008::
  893.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y16
  894.         RECEIVE "m:\cix\cix.txt","XM1K"
  895.         GOTO missdown4
  896. y16:: 
  897.         RECEIVE "m:\cix\cix.txt","YM1K"
  898.         GOTO missdown4
  899. T4009::
  900.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y17
  901.         RECEIVE "b:\cix\cix.txt","XM1K"
  902.         GOTO missdown4
  903. y17:: 
  904.         RECEIVE "b:\cix\cix.txt","YM1K"
  905. missdown4::
  906.         WAIT 50 (ON REPLY "Main:" GOTO umswoff
  907.                  ON REPLY "y/n"   GOTO umyorn)
  908.         INFO "Problem! Disconecting"
  909.         GOTO umnofile2
  910. umswoff:
  911.         NEXISTS "m:\cix\file.swt" GOTO umnofile2
  912.         SEND "MAIL"
  913.         WAIT 50 (ON REPLY "Mail:" GOTO umred)
  914.         INFO "Problem! Upload Aborted"
  915.         GOTO umnofile2
  916. umred:
  917.         SEND "FUL <s4>"
  918.         WAIT 5 
  919.         TRANSMIT s5,"XM1K" 
  920.         SENDWAIT 50 "QUIT","Main:" GOTO umnofile2
  921. umnofile2:
  922.         INFO "Sending LOGOFF"
  923.         SENDWAIT 50 "BYE","y/n" GOTO umcont1
  924.         SEND "Y"
  925. umcont1:
  926.         INFO "Hanging UP!!"
  927.         HANGUP
  928.     INFO "Finished"
  929.     EXIT
  930. umgotMore:
  931.     WAIT 1
  932.     SEND "n"
  933.     GOTO umtryAgain
  934. umyorn:
  935.         SEND "Y<$d>"
  936.         GOTO umswoff
  937. black:
  938.     ALERT "Number dialled too many times" : EXIT
  939. nocar:
  940.     ALERT "No connection made" : EXIT
  941. tele:
  942.     ALERT "Check connected to telephone" : EXIT
  943. merror:
  944.     ALERT "Check modem connected" : EXIT
  945. bad:
  946.     ALERT "Check RS232 lead connected" : EXIT
  947. noLog:
  948.     ALERT "No Login received" : EXIT
  949. noUser:
  950.     ALERT "No user name" : EXIT
  951. noPass:
  952.     ALERT "No password" : EXIT
  953. noMain:
  954.     ALERT "No main"
  955.     EXIT
  956.