NAME:CompuServe
TNUM:+44 845 0795020
DPTA:
LSCR:
start:
       LOOP 3
                {
                 SEND <0x0d>
                 WAIT 4
                          {
                           ":" CIS
                          }
                }
               EXIT KErrTimeOut$

CIS:
     SEND "CIS"+<0x0d>
     WAIT 10
                {
                  ":" login
                }
                EXIT KErrTimeOut$

login:
       SEND login_name$+"/go:pppconnect"+<0x0d>
       WAIT 10
                 {
                  ":" password
                  }
                  EXIT KErrTimeOut$

password:
             SEND login_pass$+<0x0d>
             EXIT

failure:
         EXIT KErrLoginFail$