!*! Updated on 23-May-90 at 4:22 PM by Matt Badger; edit time: 3:59:31
!*! Created on 06-Dec-89 at 2:05 PM by Matt Badger; edit time: 0:14:18
! calculate stats from combined log files, just like status



       map1    filename,s,10
       map1    count,b,2
       map1    precent,f,6
       map1    inline,s,80
       map1    acount,b,2
       map1    pcount,b,2
       map1    phone(7),b,2
       map1    day(9),b,2
       map1    totday,b,2

       print tab(-1,0)
       open #2,"total.log",input
       print "Working"
       oldday=0
loop:
       input #2,inline
       if eof(2) then goto done
       if mid$(inline,43,1)="A" then acount=acount+1 else pcount=pcount+1
       if mid$(inline,62,1)=" " then goto over
       phone(val(mid$(inline,62,1)))=phone(val(mid$(inline,62,1)))+1
       newday=val(mid$(inline,72,1))
       if newday#oldday then oldday=newday:totday=totday+1
over:   day(val(mid$(inline,72,1)))=day(val(mid$(inline,72,1)))+1
       count=count+1
       goto loop

done:
       print tab(-1,0)
       print
       print "Total calls =>";count
       print using "Projected total=>####",(count*30.42)/totday
       print using "Total AM calls =>####   ##%",acount,(acount/count)*100
       print using "Total PM calls =>####   ##%",pcount,(pcount/count)*100
       print
       print "use per day"
       print "Mon     Tue     Wed     Thur    Fri      Sat     Sun"
       print using "##.##%  ##.##%  ##.##%  ##.##%  ##.##%  ##.##%  ##.##%",100*(day(1)/count),100*(day(2)/count),100*(day(3)/count),100*(day(4)/count),100*(day(5)/count),100*(day(6)/count),100*(day(7)/count)
       print
       print "use per phone"
       print "1       2       3        4"
       print using "##.##%  ##.##%  ##.##%  ##.##%",100*(phone(1)/count),100*(phone(2)/count),100*(phone(3)/count),100*(phone(4)/count)
       end

aadd:
       acount=acount+1