home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 139 / cis.ap < prev    next >
Encoding:
Text File  |  1988-03-02  |  1.5 KB  |  38 lines
  1. | Sample AutoPilot script for logging onto Compuserve with St-talk Pro
  2. |___________________________________________________________________________
  3. clear                       |
  4. trace off                   |
  5. prompt1="User ID: "         | the prompt for account number 
  6. prompt2="Password: "        | the prompt for password 
  7. account="70000,000~"        | put your account number here
  8. password="pass-word~"       | dummy password 
  9.                             |
  10. termtype 2                  |
  11.                             |
  12. IF connect                  |   see if connected
  13.     Print "Logging on at "  |
  14.     Print gettime           |
  15.     Print "~"               |
  16.     Flush 120               |
  17.     Printm "^C"             |
  18.     ok=Wait 10 prompt1      |   wait for the username prompt
  19.     IF not ok               |
  20.         GOTO nologin        |
  21.     ENDIF                   |
  22.     Printm account          |   send the account number
  23.     ok=Wait 10 prompt2      |   wait for the password prompt
  24.     IF not ok               |
  25.         GOTO nologin        |
  26.     ENDIF                   |
  27.     Printm password         |   send the password
  28.     Flush 60                |
  29.     Print "~Connected to Compuserve!~"
  30. ELSE                        | tried too many times
  31. _nologin                    |
  32.     Print "~Could not connect to Compuserve!~"
  33.     QUIT                    |   quit the program
  34. ENDIF                       |
  35.                             |
  36.                             | continue with other things here
  37. QUIT
  38.