home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / READ45A / SCRIPTS.ZIP / BILLING.SCR < prev    next >
Encoding:
Text File  |  1995-04-29  |  3.5 KB  |  155 lines
  1.     QUERY "Enter Billing details required" (
  2.     "Year (eg 95):",s2
  3.     "Month (eg feb):",s3)
  4.   INFO "CIX Logon"
  5.      SETUP (
  6.      Stop=1 :
  7.      Parity=none :
  8.      Fail=None :
  9.      Timeout=20 :
  10.      Echo=off :
  11.      Data=8 )
  12.     EXISTS "m:\cix\rhsc_opt.001" GOTO T001
  13.     EXISTS "m:\cix\rhsc_opt.002" GOTO T002
  14.     EXISTS "m:\cix\rhsc_opt.003" GOTO T003
  15.     GOTO misrate
  16. T001::
  17.     SETUP (BAUD=2400)
  18.     INFO "Baud Rate set to 2400"
  19.     WAIT 3
  20.     GOTO misrate
  21. T002::
  22.     SETUP (BAUD=9600)
  23.     INFO "Baud Rate set to 9600"
  24.     WAIT 3
  25.     GOTO misrate
  26. T003::
  27.     SETUP (BAUD=19200)
  28.     INFO "Baud Rate set to 19200"
  29.     WAIT 3
  30. misrate::
  31.     EXISTS "m:\cix\rhsc_opt.004" GOTO T004
  32.     EXISTS "m:\cix\rhsc_opt.005" GOTO T005
  33.     EXISTS "m:\cix\rhsc_opt.006" GOTO T006
  34.     GOTO misshake
  35. T004::
  36.     SETUP (HANDSHAKE=rtscts,xonxoff)
  37.     INFO "Handshaking set to Both"
  38.     GOTO misshake
  39. T005::
  40.     SETUP (HANDSHAKE=rtscts)
  41.     INFO "Handshaking set to RTSCTS"
  42.     GOTO misshake
  43. T006::
  44.     SETUP (HANDSHAKE=xonxoff)
  45.     INFO "Handshaking set to XonXoff"
  46. misshake::
  47.     ON send fail goto bad
  48.     SET c1=4
  49. rAlive:
  50.         SEND "<initialise>"
  51.     WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
  52.     ON c1 GOTO rAlive
  53.     GOTO merror
  54. alive:
  55.     SET C1=9
  56.     GOTO reDial   
  57. wait100:
  58.     INFO "Waiting to redial"
  59.     WAIT 10
  60. reDial:
  61.     SEND "<prefix><CixNumber>"
  62.     WAIT 120 (
  63.     ON reply "CONNECT" GOTO letsgo
  64.     ON reply "NO DIALTONE" GOTO tele
  65.     ON reply "NO CARRIER" GOTO nocar
  66.     ON reply "ERROR" GOTO black
  67.     ON reply "BUSY" GOTO again )
  68.     GOTO merror
  69. again:
  70.     ON c1 GOTO wait100
  71.     ALERT "Line busy" : EXIT
  72. letsGo:
  73.     INFO "CONNECTED..."
  74.     SENDWAIT 160 "<$d>";,"login:" GOTO noLog
  75.     SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
  76.     SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
  77.     SEND "<CixPassword>"
  78. tryAgain:
  79.     WAIT 100 (
  80.     ON REPLY "Main:" GOTO gotMain
  81.     ON REPLY "More" GOTO gotMore )
  82.   ALERT "SOMETHING STRANGE"
  83. gotMain:
  84.     EXISTS "m:\cix\rhsc_opt.010" GOTO Y01
  85.     SEND "OPTION DOWNLOAD C Q"
  86.     GOTO misy01
  87. y01::
  88.     SEND "OPTION DOWNLOAD Y Q"
  89. misy01::
  90.         SEND "OPTION SCRATCHNAME bil.txt QUIT"
  91.       WAIT 5
  92.       SEND "QUIT"
  93.         SEND "FILEBILLING"
  94.         WAIT 100  (ON REPLY "for this month....." GOTO maint 
  95.                   )
  96.     GOTO maint
  97. maint:
  98.         SEND "<s3>"
  99.         WAIT 100  (ON REPLY "for this year....." GOTO maint1 
  100.                   )
  101.     GOTO maint1
  102. maint1:
  103.         SEND "<s2>"
  104.         WAIT 100  (ON REPLY "Main:" GOTO maint2
  105.                   )
  106.     GOTO maint2
  107. maint2:
  108.         INFO "Starting Download"
  109.         SEND "Down"
  110.         WAIT 5
  111.         EXISTS "m:\cix\rhsc_opt.010" GOTO Y02
  112.     RECEIVE "\cix\text\bil.txt","XM1K"
  113.     GOTO missdown
  114. y02:: 
  115.     RECEIVE "\cix\text\bil.txt","YM1K"
  116. missdown::
  117.         WAIT 100 (ON REPLY "Main:" GOTO swoff
  118.                   ON REPLY "y/n"   GOTO yorn)
  119.         INFO "Problem! Disconecting"
  120. swoff:
  121.         INFO "Sending LOGOFF"
  122.         SENDWAIT 20 "BYE","y/n" GOTO cont1
  123.         SEND "Y"
  124. cont1:
  125.         INFO "Hanging UP!!"
  126.         HANGUP
  127.     INFO "Finished"
  128.     EXIT
  129. gotMore:
  130.     WAIT 1
  131.     SEND "n"
  132.     GOTO tryAgain
  133. yorn:
  134.         SEND "Y"
  135.         GOTO swoff
  136. black:
  137.     ALERT "Number dialled too many times" : EXIT
  138. nocar:
  139.     ALERT "No connection made" : EXIT
  140. tele:
  141.     ALERT "Check connected to telephone" : EXIT
  142. merror:
  143.     ALERT "Check modem connected" : EXIT
  144. bad:
  145.     ALERT "Check RS232 lead connected" : EXIT
  146. noLog:
  147.     ALERT "No Login received" : EXIT
  148. noUser:
  149.     ALERT "No user name" : EXIT
  150. noPass:
  151.     ALERT "No password" : EXIT
  152. noMain:
  153.     ALERT "No main"
  154.     EXIT
  155.