{
  STR - returns an alphanumeric equal of integer (tval)
  EXAMPLE:
    date := STR( idate );
  REQUIRES THE FOLLOWING GLOBAL DEFINITIONS:
     CONST
	DEFAULT = 80;	{ or whatever }
     TYPE
       DSTRING = STRING DEFAULT;
}
FUNCTION STR(tval: INTEGER): DSTRING;
const	size = 10;	{ Max number of digits in the number }
	ZERO = 48;	{ ORDinal value of '0' }
var	cix : char;
	S : DSTRING;
	i,		{ length of number }
	d,t,j: INTEGER;
begin
  t := ABS(tval);
  setlength(S,0);	{ * S := ''; * }
  i := 0;
  repeat {generate digits}
    i := i + 1;
    d := t MOD 10;
    append( S, chr(d + zero) );
    t := t DIV 10;
  until (t=0) or (i>=size);
  If (tval<0) AND (i<size) then begin { sign }
    i := i + 1;
    append(S,'-')
  end;
  { number is now formed in string S but in reverse order }
  j := 1;
  while j<i do begin { reverse }
    cix := S[i]; S[i] := S[j]; S[j] := cix;
    i := i - 1;
    j := j + 1;
  end;
  STR := S
end { of STR };

verse }
    cix := S[i]; S[i] := S[j];