-- File: convert.adb		(Unix looks for all lower case)
-- Conversion Package Body
-- Written by Prof. Spiegel

Package Body convert is

  Procedure Sec2MinSec(Seconds: IN OUT Integer; Minutes: OUT Integer) is
  Begin
	IntegerConvert(Seconds,Minutes,60);
  End Sec2MinSec;

  Procedure Min2HrMin(Minutes: IN OUT Integer; Hours: OUT Integer) is
  Begin
	IntegerConvert(Minutes,Hours,60);
  End Min2HrMin;

  Procedure Inches2FtIn(Inches: IN OUT Integer; Feet: OUT Integer) is
  Begin
	IntegerConvert(Inches,Feet,12);
  End Inches2FtIn;

  Function  MetersSq2FeetSq(Meters: IN Float) return Float is
  Begin
	return(Meters * 10.764);
  End MetersSq2FeetSq;
  

  Procedure IntegerConvert
	(OldUnits: IN OUT Integer; NewUnits: OUT Integer;Factor: IN Integer) is
  Begin
	NewUnits:=OldUnits/Factor;
	OldUnits:=OldUnits MOD Factor;
  End IntegerConvert;

end convert;