C:MINUS	REAL DATE	J:K0DE