home *** CD-ROM | disk | FTP | other *** search
/ Cardinal Internet Access Solutions / Cardinal_Internet_Access_Solutions(1996-08-19).iso / intergo / intergo.z / SLIP.SCP < prev    next >
Text File  |  1995-07-11  |  932b  |  49 lines
  1. ;
  2. ; This is a script file that demonstrates how
  3. ; to establish a slip connection with a host.
  4. ;
  5. ; A script file must have a 'main' procedure.
  6. ; All script execution starts with this 'main'
  7. ; procedure.
  8. ;
  9.  
  10.  
  11. ; Main entry point to script
  12. ;
  13. proc main
  14.  
  15.    ; Delay for 2 seconds first to make sure the
  16.    ; host doesn't get confused when we send the
  17.    ; two carriage-returns.
  18.  
  19.    delay 2
  20.    transmit "^M^M"
  21.  
  22.    ; Wait for the login prompt before entering
  23.    ; the user ID
  24.  
  25.    waitfor "serid:"
  26.    transmit $USERID
  27.    transmit "^M"
  28.  
  29.    ; Enter the password
  30.  
  31.    waitfor "assword?"
  32.    transmit $PASSWORD
  33.    transmit "^M"
  34.  
  35.    waitfor "InternetLR/E>"
  36.    transmit "slip"
  37.    transmit "^M"
  38.  
  39.    ; An alternative to the following two lines is
  40.    ;
  41.    ;    set ipaddr getip 2
  42.    ;
  43.    ; since we know that my address is the second one given.
  44.  
  45.    waitfor "Your address is "
  46.    set ipaddr getip
  47.  
  48. endproc
  49.