C	PRINT YEARLY RECORD ROUTINE	1/84
	WRITE (1,10)
10	FORMAT('GREETINGS FROM PRINT YEARLY RECORD ROUTINE')
	CALL CHAIN('ACCMEN')
	ENDENDTHLY RECORD')
60	FORMAT ('5: PRINT YEARLY RECORD')
100	FORMAT ('9: EXIT')
200	FORMAT (' ')
300	FORMAT (10HCOMMAND = ,I1)
	END
(K-4)1040,2030,1040
1040	IF(K-5)1050,2040,1050
1050	IF(K-9)900,2050,900
C	CHAIN UPDATE MONTHLY ROUTINE