#########  script which logs you to a TIA server  ###########
$PORT=2f0                                  # Number of Comport (or Portadress)
$IRQ=5                                     # IRQ (only needed if Port is ADRESS)
$VEC=60                                    # Packetdriver vector
opencom                                    # open the serial port
initstring="at&f&d0"
Packetdriver="slipper.exe port="+$port+" irq="+$IRQ+" vec="+$vec
my_ip=192.0.2.1                          # Default (static) IP's
gateway=192.0.2.2
nameserver=129.13.64.5
dialstring="atdp0622149071"
print "Manual dialin with at-commands!"
print "Hit RETURN to start the miniterminal or wait 10 sec;"
$1=$inkey "...;"
$2="j"
$2=$inkey dialstring+" ok?(j,n)...;"
if $carrier=off
   send initstring+{13}
   wait 2 ok{13,10}
   if $0<>ok{13,10}
      print "Modem not responding!"
      exit
   else
      if $2="j"
         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
         while $carrier=off    
      end if
   end if 
endif
ring
terminal                                   # start terminalprogram
maxwait=0                                  # switch off timelimit in $inkey
if $CARRIER=ON
   print"Hit ENTER if you want the default IP's"
   my_ip=$inkey "My_IP("+my_ip+")= ;"                
   gateway=$inkey "Gateway("+gateway+")= ;"         
   print gateway
   modify "wattcp.cfg", "my_ip=", my_ip
   modify "wattcp.cfg", "gateway=", gateway
   modify "wattcp.cfg", "nameserver=", nameserver
   shell packetdriver
end if
end                                        # THAT's IT