ok="y"
ok=$inkey "Modemtest? (y/n): ;"
if ok="y"
   print
   print "********************************************************
   print "SLIP_ITs internal terminal is running now!" 
   print "Type some at-commands and check for the proper response
   print "from your modem. Quit the terminalprogram with ALT-X.
   opencom
   terminal
   closecom
end if
ok="y"
ok=$inkey"Tcpip socket test? (y/n): ;"
if ok="y"
   print
   openslip packetdriver
   ok=$inkey"Press any key to continue... ;"
   shell "tcpinfo all"
   closeslip
   ok=$inkey"Press any key to continue... ;"
end if
print "********************************
print "We are clear for taking off ;-)"
print "Start a slipsession now."
print "To break a session: first try ESC.
print "If this doesn't help, hit CTRL-C.
print "If nothing happens, hit CTRL-BREAK."
ok="y"
ok=$inkey"Start a slipsession? (y/n): ;"
if ok="y" 
   call "dial"
   ok=$inkey"pingtest?(y,n): ;"
   if ok="y" and $carrier=on
   print "Hit any key to stop the tests!" 
     if nameserver > "0.0"
        print "pinging the nameserver..."
        shell "ping "+nameserver+" 10"
     end if
     if news_server > "0.0"
        print "pinging the newsserver..."
        shell "ping "+news_server+" 10"
     end if
     if smtp_server > "0.0"
        print "pingig the mailserver"
        shell "ping "+smtp_server+" 10"
     end if
     if pop_server > "0.0"
        print "pinging the popserver..."
        shell "ping "+pop_server+" 10"
     end if
     if time_server > "0.0"
        print "pinging the timeserver..."
        shell "ping "+time_server+" 10" 
     end if
   end if
end if
if $carrier=on
   print "**********************************************
   print "{7}You are still online. If you don't hangup,"
   print "a news/mail/smtp session is started."
   ok="y"
   ok=$inkey"hangup?(y/n): ;"
   if ok=y
      hangup
   else
     closeslip
     call x_script.cfg 
   end if
endif
end   
