procedure s2clnk(VAR clunka:clunk_type;
		 VAR clunkb:clunk_type;
		 VAR sign:integer;
		 VAR diff_days:integer;
		 VAR diff_hours:integer;
		 VAR diff_minutes:integer;
		 VAR diff_seconds:integer;
		 VAR ids:integer); NONPASCAL;


{ LAST EDIT: 3-JUN-1987 16:10:11 

  This is the external declaration for the Pascal callable routine to return
  the difference in time between two clunk values. This external declaration
  expects that the file 'CLUNK.TYP' has been included at some point before
  this.

  How it works:
  You need to supply the two clunk values ( which are preserved ). The 
  procedure set the value in the "sign" field positive if "clunka" is greater
  then or equal to "clunkb" and negitive if vise versa.

  The values "diff_days", "diff_hours", "diff_minutes" and "diff_seconds" are
  returned as unsigned integers. The are validated so that "diff_hours" is
  never greater then 23 and "diff_minutes" and "diff_seconds" are never 
  greater then 59.  "Diff_days" can go as high as 65,535 days or -1 signed
  days. If there are more days difference then this an overflow status it
  returned and non of the values returned can be trusted.

  The parameters "clunka" and "clunkb" are preserved.

  Two valid "ids" status is possible:
   1 = success
  -3 = overflow
}