date.cr

the source code from the book "UNIX Network Programming" by W. Richard Stevens. i hope it is useful

Date : PROGRAM 876 VERSION 1 =

BEGIN
	-- Define the two remote procedures.

	BinDate : PROCEDURE []
		  RETURNS [bindate : LONG INTEGER]
		  = 0;

	StrDate : PROCEDURE [bindate: LONG INTEGER]
		  RETURNS [strdate : STRING]
		  = 1;
END.