{
.STOP

File		: SC:[22,310]QDIV.PAS
Author		: Peter Stadick
Origin Date	: July 2,1988
Edit History	:

       Last Edit: 2-JUL-1988 15:08:53 

Description:
	This routine will divide two numbers represented arrays of char
	and return a result as an array of char. Calculations are
	done to specified number of decimal places and it can handle
	negitive numbers. The total number of digits in the number
	can not exceed 18.

}

procedure qdiv(divdend	: packed array [ln1..hn1:integer] of char;
	       divisor	: packed array [ln2..hn2:integer] of char;
	       var quo	: packed array [ls..lh:integer] of char;
	       places	: integer;
	       var ids	: integer); external;