home *** CD-ROM | disk | FTP | other *** search
- NAME:CompuServe (New York)
- TNUM:+1 212 7662080
- DNS1:149.174.211.5
- DNS2:165.121.1.2
- PORT:7E1
- LSCR:
- start:
- LOOP 3
- {
- SEND "."+<0x0d>
- WAIT 4
- {
- "ame:" CIS
- }
- }
- EXIT KErrTimeOut$
-
- CIS:
- SEND "CIS"+<0x0d>
- WAIT 10
- {
- "ID:" login
- }
- EXIT KErrTimeOut$
-
- login:
- SEND login_name$+"/go:pppconnect"+<0x0d>
- WAIT 10
- {
- "word:" password
- }
- EXIT KErrTimeOut$
-
- password:
- SEND login_pass$+<0x0d>
- EXIT
- failure:
- EXIT KErrLoginFail$
-
-
-
-
-
-