PROGRAM	QPTest;		{Test software for Quick Pascal v1.0}

USES	QPUnit;	   	{Appropriate Unit}

TYPE
	number = double;

	PointPtr = ^Point;
	Point = RECORD
		x,y,z,w  : number;
	END;

	MatPtr = ^Matrix;
	Matrix = RECORD
		a : ARRAY[1..4,1..4] OF number;
	END;


CONST
	p : Point = (
		x : -213.4256733;
		y : 0.008976327;
		z : 10.0;
		w : 15.23011674
	);

	m : Matrix = (
		a : (
			(-0.2341, 	1.7653421,	197.2341,	-0.654321),
			(-1.110765,	3.4571,		-0.006543,	10.2416798),
			(5.43,		1.0,		26.342,		-19.5432),
			(21.654321,	123.9987,	1.111111,	7123.465123)
		)
	);

VAR
	p1 : Point;

BEGIN
	IF IITCoPro THEN
		BEGIN
			writeln('IITCoPro Found ....');
			F4X4(@p, @m, @p1);
			writeln('Values are : ',p1.x, p1.y, p1.z, p1.w);
		END
	ELSE
		writeln('IITCoPro Not Found ....');
END.

