;*********************************************************************
; CompuServe Account Balance Script
;
; Demonstrates connecting to and capturing account balance information
; from CompuServe.  This file contains both verbose and shorthand
; commands to illustrate the various usages.
;
; When the script has completed, the capture file BILLING.DAT will
; contain the textual information about your account balance.
;
; Change this script as necessary for your own environment.
;*********************************************************************

;
; Delete the current billing data capture file.  Ensure both the 
; path and filename are valid.
;
KILL C:\DASST\BILLING.DAT

;
; Set capture to the BILLING.DAT file, then turn capture off since we
; don't want to capture the entire session.
;
CAPTURE C:\DASST\BILLING.DAT
C N

;
; Display the script's description to the Terminal display
;
ECHO ******************************
ECHO * CompuServe Account Balance *
ECHO ******************************

;
; Establish port settings.  Change these as necessary. By default this
; command is commented out.
;
; Syntax is: baud,parity,data bits,stop bits
;
;PORT  19200,E,7,1

;
; Execute the CompuServe login commands for direct node access.
;
; You must first change all occurrences of "7777" information to the
; appropriate values.
;
; Enter the phone number for CompuServe access. (Remember ^M)
;
Send ATDT 777-7777^M

;
; Wait for the modem's CONNECT string, wait 2 seconds, issue Control+C,
; then wait for the user ID prompt.
;
Wait  CONNECT
Pause 2
Out   ^C
Wait  ID:

;
; Send your User ID. (Remember ^M)
;
Send 77777,7777^M

;
; Wait for the password prompt, then send your password.  We use the
; OUT command instead of the SEND command because CompuServe WILL NOT
; echo the password characters - so we can't wait for any data.
; (Remember ^M)
;
Wait  Password:
Out   7777777:7777777^M

;
; Wait for the CompuServe prompt character...
;
W !

;
; Go to the CompuServe billing section. (Remember ^M)
;
S GO BILLING^M

;
; This is what the prompt should look like at this point...
;
;ASSISTANCE(FREE)         BILLING
;
;BILLING INFORMATION
;
; 1 Current Rates
; 2 Review Your Charges
; 3 Direct Debit Status
; 4 Billing Options Explained
; 5 Pricing Plans Explained
; 6 Changing Your Billing Address
; 7 Changing Your Billing Information
; 8 Executive Service Option
; 9 General Billing Information
;
;Enter choice !

Wait choice !
Send 2^M

;
; This is what the prompt should look like at this point...
;
;CompuServe (FREE) CHARGES
;
; 1 Explanation
; 2 Account Balance
; 3 Billing History
;
;USAGE DETAILS
; 4 Current activity
; 5 Previous activity
; 6 Mail Hardcopy ($)
;
;Enter Choice !

W hoice !
S 2^M
C Y
W !
C N

;
; Log off CompuServe
;
SEND OFF^M
WAIT RIER
Pause 2

ECHO ******************************
ECHO *      End of Script         *
ECHO ******************************