[comp.sys.apple2] TIC Automatic redial script

dpalermo@aludra.usc.edu (Dan Palermo) (12/16/90)

Hello,

  Here is a different version of the redial script for Talk is Cheap to
redial (repeatedly) the last number until a connection is established.
The last script had the number to be dialed hard coded and is useful for
commonly dialed numbers, but this one can be used for those spur of the
moment..."Hmmm, I think I'll try calling this system today".  Install this
in the tic directory as tic.key.r (I use r for redial) and add a line
to tic.macros:
		rAutomatic Redial

Note that this script uses the Hayes command a/ (redo last command), so
whatever was last given to the modem will be repeated (AT is kind of
boring...OK OK OK OK ;-)

Have fun,
  Dan

------- cut here -------
#
# Automatic redial script for TIC
#
#   Will automatically redial the last dialed number (see a/)
#   until a connection is made.  Delay value for retry 
#   should be changed if you have an accelerated system and
#   are using a version of TIC < 3.00
#   (no time constant in manual settings for TIC 2.X)
#
# Author: Dan Palermo, dpalermo@usc.edu
#
goto dial
 
# retry
pause 2                 # delay before dialing again
  
# dial
set timer 0             # wait for modem status
xmit a/
pause
# don't read echoed outgoing dial command
waitfor string

set timer 1             # timeout quick if no match
waitfor string CONNECT
if failed goto retry    # if we didn't connect try again