	INCLUDE 'WEEKLY.PRM'
	INTEGER FN,EOF
	DOUBLE PRECISION FILE
	KTOT = 0 ; KLOG = 0 ; KCMD = 0 ; KLST = 0
	KNUL = 0 ; KOVH = 0 ; KUSR = 0 ; KUUO = 0
	KSWP = 0 ; KRSP = 0
	CALL INIT
	CALL WEKNAM(FILE,IX)
30	FORMAT(O6)
	DECODE(6,30,FILE) FN
	FN = FN-(IX-1)
	DO 50 I = 1,IX
40	FORMAT(O6)
	ENCODE(6,40,FILE) FN
	CALL RDATA(FILE,EOF)
	FN = FN+1
	IF (EOF .EQ. 1) GOTO 50
	K0 = K0+1
	CALL OUTAVE
50	CONTINUE
	CALL TOTPER
	CALL CALLI("12,0)
	STOP
	END

