100 '------------------------------------------------------------------------
110 '                               COUNT.BAS
120 '                                   by
130 '                           Wayne M. Hammerly
140 '                           Laurel  RCPM/SBBS
150 '                             (301) 953-3753
160 '                              May 25, 1982
170 '
180 '  COUNT.BAS is a utility for use by Sysops running OXGATE, RBBS, or my
190 '  SBBS.   I like to keep a daily record of the system's use,  and have
200 '  gotten tired of jotting down the  contents of 'COUNTERS' before I go
210 '  to bed each night. This program (assumed to run on a utility disk in
220 '  the B drive) looks at COUNTERS (on A) and puts the three values plus
230 '  the date in a file on the B drive called "COUNT.ARC". This way I can
240 '  easily see the daily activity and trends.  For those who want to get
250 '  even more involved and chart the system useage, this would be a good
260 '  start.  I pass the torch.
270 '
280 '    Please pass on any improvements or suggetions to my system at the
290 '    above number.  I'd be interested to see what people come up with.
300 '                                                     Wayne M. Hammerly
310 '
320 PRINT
330 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
340 PRINT "                     COUNT version 1.1"
350 PRINT "                     Wayne M. Hammerly"
360 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
370 PRINT
380 '
390 '------------------------- get date from lastcalr -----------------------
400 '
410 ' note->  this is set up for SBBS & OXGATE.  Those  running RBBS will
420 '         have to change this routine to fit the format of your LASTCALR
430 '         file.  The only variable wanted is the date (DATE$).
440 '
450 OPEN "I",1,"A:LASTCALR"
460 INPUT #1,N$,O$,TON$,LM$,UP$,MF$,DATE$:CLOSE
470 PRINT DATE$:PRINT "Counting....."
480 '
490 '------------------------- get count from counters -----