procedure eve_time
message(fao("!%D",0));
endprocedure;