#
# nus.dip      Modified from 'sample.dip' Thu Jan 26 19:57:15 SST 1995
#               
# sample.dip	Dialup IP connection support program.
#		This file (should show) shows how to use the DIP
#		scripting commands to establish a link to a host.
#		This host runs the 386bsd operating system, and
#		thus can only be used for the "static" addresses.
#
# NOTE:		We also need an examnple of a script used to connect
#		to a "dynamic" SLIP server, like an Annex terminal
#		server...
#
# Version:	@(#)sample.dip	1.40	07/20/93
#
# Author:	Fred N. van Kempen, <waltje@uWalt.NL.Mugnet.ORG>
#

main:
  # First of all, set up our name for this connection.
  # I am called "uwalt.hacktic.nl"  (== 193.78.33.238)
  get $local ghimmoh

  # Next, set up the other side's name and address.
  # My dialin machine is called 'xs4all.hacktic.nl' (== 193.78.33.42)
  get $remote sunsite.nus.sg

  # Set the desired serial port and speed.
  port /dev/modem
  speed 2400

  # Reset the modem and terminal line.
  # This seems to cause trouble for some people!
  # reset

  # Prepare for dialing.
  send ATQ0V1E1X4\r
  wait OK 2
  if $errlvl != 0 goto modem_trouble
  send ATDT18007780255\r
  wait CONNECT 90
  if $errlvl != 0 goto modem_trouble

  # We are connected.  Login to the system.
login:
  # do a manual login
  term
loggedin:

  # We are now logged in.
  if $errlvl != 0 goto prompt_error

  # Set up the SLIP operating parameters.
  get $mtu 296
  default

  # Say hello and fire up!
done:
  print CONNECTED $locip ---> $rmtip
  mode SLIP
  goto exit

prompt_error:
  print TIME-OUT waiting for SLIPlogin to fire up...
  goto error

login_trouble:
  print Trouble waiting for the Login: prompt...
  goto error

password:error:
  print Trouble waiting for the Password: prompt...
  goto error

modem_trouble:
  print Trouble ocurred with the modem...
error:
  print CONNECT FAILED to $remote

exit: