home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 002 / read35a_zi / UPLOAD.SCR < prev    next >
Text File  |  1994-07-11  |  2KB  |  101 lines
  1. !
  2. ! Logon script for ReadCIX upload
  3. !
  4.     INFO "CIX Logon"
  5.     SETUP (
  6.      Baud=19200:
  7.      Stop=1 :
  8.      Parity=none :
  9.      Handshake=xonxoff,rtscts
  10.      Fail=None :
  11.      Timeout=20 :
  12.      Echo=off :
  13.      Data=8 )
  14.     ON send fail goto bad
  15.     SET c1=4
  16. rAlive:
  17.         SEND "ATZ"
  18.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  19.     ON c1 GOTO rAlive
  20.     GOTO merror
  21. alive:
  22.     SET C1=3
  23.     GOTO reDial   
  24. wait100:
  25.     INFO "Waiting to redial"
  26.     WAIT 60
  27. reDial:
  28.     SEND "ATDT<CixNumber>"
  29.     WAIT 120 (
  30.     ON reply "CONNECT" GOTO letsgo
  31.     ON reply "NO DIALTONE" GOTO tele
  32.     ON reply "NO CARRIER" GOTO nocar
  33.     ON reply "ERROR" GOTO black
  34.     ON reply "BUSY" GOTO again )
  35.     GOTO merror
  36. again:
  37.     ON c1 GOTO wait100
  38.     ALERT "Line busy" : EXIT
  39. letsGo:
  40.     INFO "CONNECTED..."
  41.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  42.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  43.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  44.     SEND "<CixPassword>"
  45. tryAgain:
  46.     WAIT 40 (
  47.     ON REPLY "Main:" GOTO gotMain
  48.     ON REPLY "More" GOTO gotMore )
  49.     ALERT "SOMETHING STRANGE"
  50. gotMain:
  51.         SEND "OPTION DOWNLOAD X Q"
  52.         SEND "OPTION UPLOAD X Q"
  53.         INFO "Starting Upload"
  54.         SEND "UPLOAD"
  55.         WAIT 5
  56.         TRANSMIT "loc::m:\cix\reply.txt","XMDM"
  57.         SEND "SCPUT SCRIPT"
  58.         WAIT 1
  59.         INFO "Running Script"
  60.         SEND "SCRIPT"
  61.         WAIT 1
  62.         WAIT 10 (ON REPLY "Main:" GOTO swoff
  63.                  ON REPLY "y/n"   GOTO yorn)
  64.         INFO "Problem! Disconecting"
  65. swoff:
  66.         INFO "Sending LOGOFF"
  67.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  68.         SEND "Y"
  69. cont1:
  70.         INFO "Hanging UP!!"
  71.         HANGUP
  72.     INFO "Finished"
  73.     EXIT
  74. gotMore:
  75.     WAIT 1
  76.     SEND "n"
  77.     GOTO tryAgain
  78. yorn:
  79.         SEND "Y<$d>"
  80.         GOTO swoff
  81. black:
  82.     ALERT "Number dialled too many times" : EXIT
  83. nocar:
  84.     ALERT "No connection made" : EXIT
  85. tele:
  86.     ALERT "Check connected to telephone" : EXIT
  87. merror:
  88.     ALERT "Check modem connected" : EXIT
  89. bad:
  90.     ALERT "Check RS232 lead connected" : EXIT
  91. noLog:
  92.     ALERT "No Login received" : EXIT
  93. noUser:
  94.     ALERT "No user name" : EXIT
  95. noPass:
  96.     ALERT "No password" : EXIT
  97. noMain:
  98.     ALERT "No main"
  99.     EXIT
  100.  
  101.