home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / CHIPCD_3_98.iso / software / share / topten / tpsa / tp_sa.scp
Text File  |  1997-05-12  |  700b  |  43 lines

  1. ;
  2. ; This is a script file that demonstrates how
  3. ; to establish a PPP connection with Compuserve,
  4. ; which requires changing the port settings to
  5. ; log in.
  6. ;
  7.  
  8.  
  9. ; Main entry point to script
  10. ;
  11. proc main
  12.  
  13.    ; Set the port settings so we can wait for
  14.    ; non-gibberish text.
  15.  
  16.    ;set port databits 7
  17.    ;set port parity even
  18.  
  19.    ;transmit "^M"
  20.    
  21.    transmit "^M^M"
  22.    delay 1
  23.    waitfor "Username:"
  24.    transmit "ppp^M"
  25.  
  26.    waitfor "Password:"
  27.    transmit "ppp^M"
  28.  
  29. ;   waitfor "Password: "
  30.  ;  transmit $PASSWORD, raw
  31.   ; transmit "^M"
  32.  
  33. ;   waitfor "One moment please..."
  34.  
  35.    ; Set the port settings back to allow successful
  36.    ; negotiation.
  37.  
  38. ;   set port databits 8
  39.  ;  set port parity none
  40.  
  41. endproc
  42.  
  43.