%
%	\f(HDvar\fP parameters
%
% Note: file is a \f(BIglobal\fP variable.
%
var file:   int;                                        % file number

type matrix:
	array 0..3, 0..3 of real

var xmatrix, ymatrix, zmatrix: matrix

%
% A procedure to get a 4x4 matrix from standard input.
%
procedure GetMatrix(var mat: matrix)
	for i: 0..3
		for j: 0..3
			get :file, mat(i,j)
		end for
	end for
end GetMatrix

%
% A function to get a 4x4 matrix from standard input.
%
function GetMatrixF: matrix
	var mat: matrix
	for i: 0..3
		for j: 0..3
			get :file, mat(i,j)
		end for
	end for
	result mat
end GetMatrix1


var matrix1, matrix2: matrix

GetMatrix(matrix1)
matrix2 := GetMatrixF