! 8-bit CompuServe script - MGMcC Nov 2001
start:
    LOOP 3
      {
      SEND <0x0d>
      WAIT 10

      {":" cis}
              }
      EXIT KErrTimeOut$

cis:
      SEND "CIS"+<0x0d>
      WAIT 10

      {":" login}

      EXIT KErrTimeOut$

login:
      SEND login_name$+"/NOINT/PPP:CISPPP"+<0x0d>
      WAIT 10

       {":" password}

      EXIT KErrTimeOut$

password:
      SEND login_pass$+<0x0d>
      EXIT

failure:
      EXIT KErrLoginFail$