..
     ----------------------------------
     Script for use with CompuServe and
      the "Transpac" network in France
     ----------------------------------

start:
       LOOP 3
                {
                 SEND <0x0d>
                 WAIT 4
                          {
                           "ogin:" TRANSPAC1
                          }
                }
               EXIT KErrTimeOut$

TRANSPAC1:
     SEND "cis"+<0x0d>
     WAIT 10
                {
                  "word:" TRANSPAC2
                }
                EXIT KErrTimeOut$
            
TRANSPAC2:
     SEND "cis"+<0x0d>
     WAIT 10
                {
                  "Name:" 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$


--------------
Mike McConnell
November 2001
--------------