IMPLICIT INTEGER*2 (A-Z)
C
C	PROGRAM TO ZERO STATISTICS COMMON AREA 'STATCM'
C
C	*** HOW TO BUILD ZERO ***
C	$FOR ZERO
C	$LINK/OPT ZERO
C	LIBR=SYSRES:RO
C	COMMON=STATCM:RW
C	/
C
	INTEGER*2 ARRAY(10)
	COMMON/STATCM/ARRAY
C
	DO 10 I=1,10
10	ARRAY(I)=0
	CALL EXIT
C
C	THAT WAS EASY ENUF
C
	END