home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 1999 August / PCpro_1999_08.ISO / compusrv / Clients / Cs304d / scripts.lib / cis_combi.SCP < prev    next >
Encoding:
Text File  |  1999-02-02  |  617 b   |  37 lines
  1. ; Sample script for establishing a PPP-Connection 
  2. ; to CompuServe or CompuServe II
  3. ;
  4. ; Main entry point to script
  5. ;
  6. proc main
  7. set port databits 8
  8. set port parity none
  9. delay 2
  10. transmit"^M"
  11. waitfor
  12.       "e:"then CISPPP,
  13.       "n:"then CISUUNET
  14. until 10
  15.  
  16. ERROR:
  17.   halt
  18.  
  19. CISUUNET:
  20.  transmit"cisv1^M"
  21.  waitfor"Password:"
  22.  transmit"classic^M"
  23.  waitfor "ID:"
  24.  transmit "/HOST^M"
  25.  
  26. CISPPP:
  27.  transmit "+CIS^M"
  28.  waitfor "User ID:"
  29.  transmit $USERID,raw
  30.  transmit "+/NOINT/GO:PPPCONNECT^M"
  31.  waitfor "Password:"
  32.  transmit $PASSWORD,raw
  33.  transmit "^M"
  34.  waitfor "One moment please..."
  35.  
  36. endproc
  37.