home *** CD-ROM | disk | FTP | other *** search
/ CyberStratege 7 / CyberStratege_CD_07.iso / infonie / dscript / slipmenu.scp < prev    next >
Text File  |  1986-01-08  |  1KB  |  55 lines
  1. ;
  2. ; This is a script file that demonstrates how
  3. ; to establish a SLIP connection with a host
  4. ; that uses a menu system.
  5. ;
  6. ; A script file must have a 'main' procedure.
  7. ; All script execution starts with this 'main'
  8. ; procedure.
  9. ;
  10.  
  11.  
  12. ; Main entry point to script
  13. ;
  14. proc main
  15.  
  16.    ; Delay for 3 seconds first to allow host time
  17.    ; to send initial characters.
  18.  
  19.    delay 3
  20.    transmit "^M"
  21.  
  22.    ; Wait for the login prompt before entering
  23.    ; the user ID
  24.  
  25.    waitfor "username:"
  26.    transmit $USERID
  27.    transmit "^M"
  28.  
  29.    ; Enter the password
  30.  
  31.    waitfor "password:"
  32.    transmit $PASSWORD
  33.    transmit "^M"
  34.  
  35.    ;
  36.    ; This provider has a menu list like this:
  37.    ;
  38.    ;   1              : Our special GUI
  39.    ;   2              : Establish slip connection
  40.    ;   3              : Establish PPP connection
  41.    ;   4              : Establish shell access
  42.    ;   5              : Download our software
  43.    ;   6              : Exit
  44.    ;
  45.    ;   annex:
  46.    ;
  47.  
  48.    waitfor "annex:"
  49.  
  50.    transmit "2^M"       ; Choose SLIP connection
  51.  
  52.    set ipaddr getip 2   ; Get the second IP address and use it
  53.  
  54. endproc
  55.