	PROGRAM BACDAT
	BYTE DAT(9),TIM(8)
	CALL DATE(DAT)
	CALL TIME(TIM)
	OPEN(UNIT=1,NAME='BACDAT.DAT',TYPE='NEW')
	WRITE(1,100) DAT,TIM
100	FORMAT(' LAST BACKUP MADE : ',9A1,X,8A1)
	CALL EXIT
	END
