{

File			: SC:[22,310]CRETAS.PAS
Author			: Peter Stadick
Origin Date		: Nov 16,1987
Edit History		:

	       Last edit: 16-NOV-1987 14:24:59 



Description:

	This callable routine will convert a real number into the ascii
	conforment array parameter given it. If the real number is negitive 
	it will add a hyphine to the beginning of the number. The last 
	parameter is the number of digits behind the decimal point to be 
	displayed. If this value is zero no decimal point is included.
	The ascii number value is always left justified in the array. If 
	for some reason the array given is not big enough to hold the
	number value an array of spaces is returned.

}

procedure cretas(var asc : packed array [lo..hi:integer] of char;
		     rea : real;
		     dec : integer); external;