home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 002 / read35a_zi / READALL.SCR < prev    next >
Text File  |  1994-07-11  |  14KB  |  617 lines
  1. !
  2. ! Logon script for ReadCIX all 
  3. !
  4. QUERY "Downloaded File Details" (
  5.         "Full Path and Name",s1)
  6. NEXISTS "m:\cix\file.swt" GOTO nofile
  7. MENU "Choose File Option" (
  8.      "Download File" GOTO dftag
  9.      "Upload File" GOTO uftag
  10.      "Download Binmail" GOTO dmtag
  11.      "Upload Binmail" GOTO umtag
  12.      "No File Action" GOTO nofile)
  13. nofile:
  14.     INFO "CIX Logon"
  15.     SETUP (
  16.      Baud=19200:
  17.      Stop=1 :
  18.      Parity=none :
  19.      Handshake=xonxoff,rtscts
  20.      Fail=None :
  21.      Timeout=20 :
  22.      Echo=off :
  23.      Data=8 )
  24.     ON send fail goto bad
  25.     SET c1=4
  26. rAlive:
  27.         SEND "ATZ"
  28.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  29.     ON c1 GOTO rAlive
  30.     GOTO merror
  31. alive:
  32.     SET C1=3
  33.     GOTO reDial   
  34. wait100:
  35.     INFO "Waiting to redial"
  36.     WAIT 60
  37. reDial:
  38.     SEND "ATDT<CixNumber>"
  39.     WAIT 120 (
  40.     ON reply "CONNECT" GOTO letsgo
  41.     ON reply "NO DIALTONE" GOTO tele
  42.     ON reply "NO CARRIER" GOTO nocar
  43.     ON reply "ERROR" GOTO black
  44.     ON reply "BUSY" GOTO again )
  45.     GOTO merror
  46. again:
  47.     ON c1 GOTO wait100
  48.     ALERT "Line busy" : EXIT
  49. letsGo:
  50.     INFO "CONNECTED..."
  51.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  52.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  53.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  54.     SEND "<CixPassword>"
  55. tryAgain:
  56.     WAIT 40 (
  57.     ON REPLY "Main:" GOTO gotMain
  58.     ON REPLY "More" GOTO gotMore )
  59.     ALERT "SOMETHING STRANGE"
  60. gotMain:
  61.         SEND "OPTION DOWNLOAD X Q"
  62.         SEND "OPTION UPLOAD X Q"
  63.         INFO "Starting Upload"
  64.         SEND "UPLOAD"
  65.         WAIT 5
  66.         TRANSMIT "loc::m:\cix\reply.txt","XMDM"
  67.         SEND "SCPUT SCRIPT"
  68.         WAIT 1
  69.         INFO "Running Script"
  70.         SEND "SCRIPT"
  71.         WAIT 1
  72.         INFO "Getting Mail"
  73.         SEND "MAIL"
  74.         WAIT 20 (ON REPLY "Mail:" goto mcont)
  75. mcont:
  76.         SEND "File All"
  77. retry1:
  78.         WAIT 10 (ON REPLY "Mail:" GOTO read)
  79.         GOTO retry1
  80. read:
  81.         SEND "q"
  82.         WAIT 20 (ON REPLY "Main:" GOTO file)
  83. file:
  84.         SEND "File read all"
  85. retry2:
  86.         WAIT 10 (ON REPLY "Main:" GOTO cont)
  87.         GOTO retry2
  88. cont:
  89.         INFO "Starting Download"
  90.         SEND "Down"
  91.         WAIT 5
  92.         RECEIVE s1,"XMDM"
  93.         WAIT 10 (ON REPLY "Main:" GOTO swoff
  94.                  ON REPLY "y/n"   GOTO yorn)
  95.         INFO "Problem! Disconecting"
  96. swoff:
  97.         INFO "Sending LOGOFF"
  98.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  99.         SEND "Y"
  100. cont1:
  101.         INFO "Hanging UP!!"
  102.         HANGUP
  103.     INFO "Finished"
  104.     EXIT
  105. gotMore:
  106.     WAIT 1
  107.     SEND "n"
  108.     GOTO tryAgain
  109. yorn:
  110.         SEND "Y<$d>"
  111.         GOTO swoff
  112.  
  113. dftag:
  114.     QUERY "File Download" (
  115.     "Conference:",s2
  116.         "Topic:",s3
  117.         "File to Download:",s4
  118.         "To (Path and Name):",s5)
  119.     INFO "CIX Logon"
  120.     SETUP (
  121.      Baud=19200:
  122.      Stop=1 :
  123.      Parity=none :
  124.      Handshake=xonxoff,rtscts
  125.      Fail=None :
  126.      Timeout=20 :
  127.      Echo=off :
  128.      Data=8 )
  129.     ON send fail goto bad
  130.     SET c1=4
  131. dfrAlive:
  132.         SEND "ATZ"
  133.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO dfalive )
  134.     ON c1 GOTO dfrAlive
  135.     GOTO merror
  136. dfalive:
  137.     SET C1=3
  138.     GOTO dfreDial   
  139. dfwait100:
  140.     INFO "Waiting to redial"
  141.     WAIT 60
  142. dfreDial:
  143.     SEND "ATDT<CixNumber>"
  144.     WAIT 120 (
  145.     ON reply "CONNECT" GOTO dfletsgo
  146.     ON reply "NO DIALTONE" GOTO tele
  147.     ON reply "NO CARRIER" GOTO nocar
  148.     ON reply "ERROR" GOTO black
  149.     ON reply "BUSY" GOTO dfagain )
  150.     GOTO merror
  151. dfagain:
  152.     ON c1 GOTO dfwait100
  153.     ALERT "Line busy" : EXIT
  154. dfletsGo:
  155.     INFO "CONNECTED..."
  156.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  157.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  158.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  159.     SEND "<CixPassword>"
  160. dftryAgain:
  161.     WAIT 40 (
  162.     ON REPLY "Main:" GOTO dfgotMain
  163.     ON REPLY "More" GOTO dfgotMore )
  164.     ALERT "SOMETHING STRANGE"
  165. dfgotMain:
  166.         SEND "OPTION DOWNLOAD X Q"
  167.         SEND "OPTION UPLOAD X Q"
  168.         INFO "Starting Upload"
  169.         SEND "UPLOAD"
  170.         WAIT 5
  171.         TRANSMIT "loc::m:\cix\reply.txt","XMDM"
  172.         SEND "SCPUT SCRIPT"
  173.         WAIT 1
  174.         INFO "Running Script"
  175.         SEND "SCRIPT"
  176.         WAIT 1
  177.         INFO "Getting Mail"
  178.         SEND "MAIL"
  179.         WAIT 20 (ON REPLY "Mail:" goto dfmcont)
  180. dfmcont:
  181.         SEND "File All"
  182. dfretry1:
  183.         WAIT 10 (ON REPLY "Mail:" GOTO dfread)
  184.         GOTO dfretry1
  185. dfread:
  186.         SEND "q"
  187.         WAIT 20 (ON REPLY "Main:" GOTO dffile)
  188. dffile:
  189.         SEND "File read all"
  190. dfretry2:
  191.         WAIT 10 (ON REPLY "Main:" GOTO dfcont)
  192.         GOTO dfretry2
  193. dfcont:
  194.         INFO "Starting Download"
  195.         SEND "Down"
  196.         WAIT 5
  197.         RECEIVE s1,"XMDM"
  198.         WAIT 10 (ON REPLY "Main:" GOTO dfswoff
  199.                  ON REPLY "y/n"   GOTO dfyorn)
  200.         INFO "Problem! Disconecting"
  201.         GOTO dfnofile2
  202. dfswoff:
  203.         NEXISTS "m:\cix\file.swt" GOTO dfnofile2
  204.         SEND "JOIN <s2>/<s3>"
  205.         WAIT 10 (ON REPLY "Read:" GOTO dfred
  206.                  ON REPLY "y/n"   GOTO dfjoi)
  207.         INFO "Problem! Download Aborted"
  208.         GOTO dfnofile2
  209. dfjoi:
  210.         SEND "N"
  211.         INFO "Problem! You are not joined to this Conference"
  212.         WAIT 5
  213.     GOTO dfnofile2 
  214. dfred:
  215.         SEND "FDL <s4>"
  216.         WAIT 30 (ON REPLY "(Mis-spelled?)" GOTO dfnofile2 )
  217.         RECEIVE s5,"XMDM" 
  218.         SENDWAIT 5 "QUIT","Main:" GOTO dfnofile2
  219. dfnofile2:
  220.         INFO "Sending LOGOFF"
  221.         SENDWAIT 20 "BYE","y/n" GOTO dfcont1
  222.         SEND "Y"
  223. dfcont1:
  224.         INFO "Hanging UP!!"
  225.         HANGUP
  226.     INFO "Finished"
  227.     EXIT
  228. dfgotMore:
  229.     WAIT 1
  230.     SEND "n"
  231.     GOTO dftryAgain
  232. dfyorn:
  233.         SEND "Y<$d>"
  234.         GOTO dfswoff
  235.  
  236. dmtag:
  237.     QUERY "Binmail Download" (
  238.         "File to Download:",s4
  239.         "To (Path and Name):",s5)
  240.     INFO "CIX Logon"
  241.     SETUP (
  242.      Baud=19200:
  243.      Stop=1 :
  244.      Parity=none :
  245.      Handshake=xonxoff,rtscts
  246.      Fail=None :
  247.      Timeout=20 :
  248.      Echo=off :
  249.      Data=8 )
  250.     ON send fail goto bad
  251.     SET c1=4
  252. dmrAlive:
  253.         SEND "ATZ"
  254.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO dmalive )
  255.     ON c1 GOTO dmrAlive
  256.     GOTO merror
  257. dmalive:
  258.     SET C1=3
  259.     GOTO dmreDial   
  260. dmwait100:
  261.     INFO "Waiting to redial"
  262.     WAIT 60
  263. dmreDial:
  264.     SEND "ATDT<CixNumber>"
  265.     WAIT 120 (
  266.     ON reply "CONNECT" GOTO dmletsgo
  267.     ON reply "NO DIALTONE" GOTO tele
  268.     ON reply "NO CARRIER" GOTO nocar
  269.     ON reply "ERROR" GOTO black
  270.     ON reply "BUSY" GOTO dmagain )
  271.     GOTO merror
  272. dmagain:
  273.     ON c1 GOTO dmwait100
  274.     ALERT "Line busy" : EXIT
  275. dmletsGo:
  276.     INFO "CONNECTED..."
  277.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  278.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  279.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  280.     SEND "<CixPassword>"
  281. dmtryAgain:
  282.     WAIT 40 (
  283.     ON REPLY "Main:" GOTO dmgotMain
  284.     ON REPLY "More" GOTO dmgotMore )
  285.     ALERT "SOMETHING STRANGE"
  286. dmgotMain:
  287.         SEND "OPTION DOWNLOAD X Q"
  288.         SEND "OPTION UPLOAD X Q"
  289.         INFO "Starting Upload"
  290.         SEND "UPLOAD"
  291.         WAIT 5
  292.         TRANSMIT "loc::m:\cix\reply.txt","XMDM"
  293.         SEND "SCPUT SCRIPT"
  294.         WAIT 1
  295.         INFO "Running Script"
  296.         SEND "SCRIPT"
  297.         WAIT 1
  298.         INFO "Getting Mail"
  299.         SEND "MAIL"
  300.         WAIT 20 (ON REPLY "Mail:" goto dmmcont)
  301. dmmcont:
  302.         SEND "File All"
  303. dmretry1:
  304.         WAIT 10 (ON REPLY "Mail:" GOTO dmread)
  305.         GOTO dmretry1
  306. dmread:
  307.         SEND "q"
  308.         WAIT 20 (ON REPLY "Main:" GOTO dmfile)
  309. dmfile:
  310.         SEND "File read all"
  311. dmretry2:
  312.         WAIT 10 (ON REPLY "Main:" GOTO dmcont)
  313.         GOTO dmretry2
  314. dmcont:
  315.         INFO "Starting Download"
  316.         SEND "Down"
  317.         WAIT 5
  318.         RECEIVE s1,"XMDM"
  319.         WAIT 10 (ON REPLY "Main:" GOTO dmswoff
  320.                  ON REPLY "y/n"   GOTO dmyorn)
  321.         INFO "Problem! Disconecting"
  322.         GOTO dmnofile2
  323. dmswoff:
  324.         NEXISTS "m:\cix\file.swt" GOTO dmnofile2
  325.         SEND "MAIL"
  326.         WAIT 10 (ON REPLY "Mail:" GOTO dmred)
  327.         INFO "Problem! Download Aborted"
  328.         GOTO dmnofile2
  329. dmred:
  330.         SEND "FDL <s4>"
  331.         WAIT 30 (ON REPLY "(Mis-spelled?)" GOTO dmnofile2 )
  332.         RECEIVE s5,"XMDM" 
  333.         SENDWAIT 5 "QUIT","Main:" GOTO dmnofile2
  334. dmnofile2:
  335.         INFO "Sending LOGOFF"
  336.         SENDWAIT 20 "BYE","y/n" GOTO dmcont1
  337.         SEND "Y"
  338. dmcont1:
  339.         INFO "Hanging UP!!"
  340.         HANGUP
  341.     INFO "Finished"
  342.     EXIT
  343. dmgotMore:
  344.     WAIT 1
  345.     SEND "n"
  346.     GOTO dmtryAgain
  347. dmyorn:
  348.         SEND "Y<$d>"
  349.         GOTO dmswoff
  350.  
  351. uftag:
  352.     QUERY "File Upload" (
  353.     "Conference:",s2
  354.         "Topic:",s3
  355.         "File Path and Name:",s4
  356.         "Upload as:",s5
  357.         "Description/Size:",s6
  358.         )
  359.     INFO "CIX Logon"
  360.     SETUP (
  361.      Baud=19200:
  362.      Stop=1 :
  363.      Parity=none :
  364.      Handshake=xonxoff,rtscts
  365.      Fail=None :
  366.      Timeout=20 :
  367.      Echo=off :
  368.      Data=8 )
  369.     ON send fail goto bad
  370.     SET c1=4
  371. ufrAlive: