www.pudn.com > commutil.zip > ZIFFNET.BDS

; Dial up Ziffnet and log in. 
 
; This script is designed to work with a modem using an AT-command set. 
 
O 2400 8N1 7BIT B+ NOCASE 
 
; Init the modem 
T 5 ReInit 
 
:Init 
S ATZ^M 
W 3 
S ATE0V1^M 
R OK 
G Dial 
 
; Only reaches here if first init fails 
:ReInit 
T 5 FailInit 
G Init 
 
; Die gracefully if modem does not respond 
:FailInit 
N Modem did not respond^M 
G End 
 
; Dial ZiffNet 
:Dial 
N ^MDialing .. 
T 60 NoAnswer 
W 1 
; Replace "9,555-1234" with your local Compuserve telephone number 
S ATDT9,555-1234^M 
R CONNECT 
W 1 
N ^MConnected^m 
W 2 
 
; Send userid 
 
S ^C 
R User ID: 
; Replace "77777,8888" with your account number 
S 77777,8888^M 
 
; Send Password 
 
R Password: 
; Replace "Your:Password:Here" with your password 
S Your:Password:Here^M 
 
N ^M^G --- Login Complete --- ^G^M 
G End 
 
: NoAnswer - Hangup and tell operator 
H 
N ^G -- Line busy or your modem isn't working -- ^G^M 
 
: End 
 
; Recompile this script with the command BD /C ZIFFNET