#########  script for manual login to the slipserver  ###########
$PORT = $entry x_tcp.cfg, "$PORT:"                                 
$IRQ = $entry x_tcp.cfg, "$IRQ:"            
$VEC = $entry x_tcp.cfg, "$VEC:"            
initstring = $entry x_tcp.cfg, "initstring:"     
dialstring=  $entry x_tcp.cfg, "dialstring:"     
packetdriver = $entry x_tcp.cfg, "packetdriver:"
my_ip = $entry wattcp.cfg, "my_ip="        
maxwait = 0 
opencom
if $carrier = off
   dialstring = $inkey "Enter the dialstring or 'ESC' to abort ("+dialstring+") ;"
      send initstring+{13}
      wait 2 ok{13,10} 
      do
        send dialstring+{13}
        wait 120 $carrier=on BUSY NO
        if $CARRIER=OFF 
           wait 2 {10}  
           countdown=on
              print
              print "Redial Wait ...;"
              wait 30
           countdown=off
        end if
      while $carrier=off    
endif
print "The terminal will start now."
print "If you are logged, quit with ALT-X!"
print "Hit any key ...;"
ring 3                  # wake up ;-)
terminal                # start the terminal
closecom                # close comport, slipdriver will access it now
if $CARRIER=ON
   print"Hit ENTER if you want the default IP"
   my_ip = $inkey "My_IP("+my_ip+")= ;"                
   modify "wattcp.cfg", "my_ip=", my_ip
   shell packetdriver +" port="+$port+" irq="+$irq+" vec="+$vec
end if
end                                        # THAT's IT