#!/usr/sbin/dip
# Sound Internet Sample DIP script for Linux users.
# Last updated 11.25.96
main:
  get $mtu 1500
	# Ip number of the slip router
	# Used for the point to point type connection
  get $remote 199.199.195.254
        # Set the desired serial port and speed.
	# Port config: cua0 = Com 1, cua1 = Com 2, cua2 = Com 3, cua3 = Com 4
  port cua2
	# If you have a 28.8k modem 115200 should work.
	# If you have a 14.4k modem use 57600
  speed 115200
  parity N
  databits 8
  stopbits 1
        # Reset the modem and terminal line.
  flush
  send \r\n\r\n
	# Basic initialization string... you may need to customize this.
  send ATZ\r
  wait OK 2
  if $errlvl != 0 goto error
	# Niffty redial when busy
redial:
# Dial SCC SLIP server from local phone
  # Uncomenet the sleep line if you are having problems with dial speed 
  # sleep 3 
  print Dialing...
  send atdt6515566556\r
  wait BUSY 14
  if $errlvl == 0 goto redial
  	flush
  	wait CONNECT 60
  if $errlvl != 0 goto error

        # We are connected.  Login to the system.
login:
   sleep 3
   wait sername: 10
   if $errlvl != 0 goto error

        # REPLACE YOURLOGINNAME with your login name.

        print Loggin in...
        send YOURLOGINNAME\r
	wait ord: 5
   if $errlvl != 0 goto error

        # REPLACE YOURPASSWORD with your password.

        send YOURPASSWORD\r
	sleep 3
        print Starting SLIP connection...
	send SLIP\r 
	wait ) 30
	get $local remote
   if $errlvl != 0 goto error
done:
   default
   print CSLIP to $remote with address $local 
   mode CSLIP
   goto exit
error:
   print SLIP to $remote failed.
exit: