home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / comm / st.lzh / EXAMPLE.SCL < prev    next >
Text File  |  1986-05-05  |  2KB  |  61 lines
  1. :**    This is an example of an SCL file to call a given number
  2. :**    at a given time and redial if busy until a connection (up to
  3. :**    a given number of attempts and report the results.
  4.  
  5.  
  6.     clear                |:** Start with all variables clear
  7.  
  8.     xreg 4                |:** if USRobotics Courier 2400
  9.                     |:** or Hayes 2400
  10.  
  11.     set d "555-1212"        |:** Number to call
  12.  
  13.     set t "23:01:00"        |:** Time of Day to call (11:01 pm)
  14.     set w "00:00:10            |:** Time to wait between redials
  15.  
  16.     let r = 10            |:** Number of tries on busy
  17.     let s = %r
  18.  
  19.     let f = 1            |:** redial count
  20.  
  21.     print
  22.     if "$t" == "" goto nowait    |:** if a wait time is given, wait
  23.     print "Waiting until $t"
  24.     wait until $t
  25.  
  26. :nowait
  27.     on error goto dial_error    |:** goto 'REDIAL' if an error. ie busy
  28.     print "Dialing '$d'"
  29.  
  30. :dial_again
  31.     dial $d                |:** dial the number given above
  32.     print
  33.     print "Connect at $time"    |:** print the time of connect
  34.  
  35. |:**    This is where you would place your
  36. |:**    logon info.  For example:
  37. |:**
  38. |:**    wait "00:00:01"            wait 1 sec
  39. |:**    mprint "^m^m";            send 2 carriage returns
  40. |:**    match "name?"            match the string "name?"
  41. |:**    mprint "Devon Maxwell"        send your name
  42.  
  43.     page                |:** and alert the foreground task
  44.     end
  45.  
  46. :redial
  47.     if "$w" != "" wait $w        |:** time to wait before redialing
  48.     if %f == 1 print "Redialing 1";    |:** if 1st redial print "Redialing"
  49.     if %f != 1 print ", %f";    |:** else just print number of attempt
  50.     let f = %f+1            |:** redial count
  51.     loop r dial_again        |:** loop until R is zero
  52.  
  53.     print
  54.     print "No answers at $d at $t after %s attempts."
  55.     end
  56.  
  57. :dial_error
  58.     if %err == 32 resume redial    |:** if a BUSY error then redial
  59.     on error goto            |:** else report error message
  60.  
  61.