!*! Updated on 22-Aug-90 at 2:04 PM by Matt Badger; edit time: 0:58:52
!*! Created on 06-Dec-89 at 2:05 PM by Matt Badger; edit time: 0:14:18




	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,"phones.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 tab(-1,12)
	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