home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / dailyrun.zip / BILLING.SCR < prev    next >
Text File  |  1993-07-31  |  952b  |  79 lines
  1.    ONERROR ErrorDrop
  2.    Timeout 90
  3.  
  4.    Delay 54
  5.  
  6.    SendLn %SLASH "GO CIS:BILL"
  7.    ; Clear screen and begin processing
  8.    CLS
  9.  
  10.    LWrite " "
  11.    LWrite "********************************************************"
  12.    LWrite "        CompuServe Billing Information                  "
  13.    LWrite "********************************************************"
  14.    LWrite " "
  15.  
  16.  
  17.    Wait "!"
  18.    ; select "current info"
  19.    SendLn "2"
  20.    Wait "!"
  21.  
  22.    ; select "current charges"
  23.    SendLn "2"
  24.  
  25.    Capture ON CISMAIL.MSG
  26.    WMH
  27.    Wait "!"
  28.    Capture OFF
  29.    Send %CR
  30.  
  31.    ; select billing history
  32.    Wait "Choice !"
  33.    SendLn "3"
  34.  
  35.    Capture ON CISMAIL.MSG
  36.    Wait "!"
  37.    Capture OFF
  38.    Send %CR
  39.  
  40.    ; select Activity
  41.    Wait "Choice !"
  42.    SendLn "4"
  43.  
  44.    Capture ON CISMAIL.MSG
  45.    Wait "!"
  46.    Capture OFF
  47.  
  48.    Send %CR
  49.    Wait "!"
  50.  
  51.    Finish:
  52.    End
  53.  
  54.    ErrorDrop:
  55.    Fail
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.