-- File: convert.ads	(Unix wants all lower)
-- Conversion Package Definitions
-- Written by Prof. Spiegel

Package convert is

  Procedure Sec2MinSec(Seconds: IN OUT Integer; Minutes: OUT Integer);
  Procedure Min2HrMin(Minutes: IN OUT Integer; Hours: OUT Integer);
  Procedure Inches2FtIn(Inches: IN OUT Integer; Feet: OUT Integer);

  Function  MetersSq2FeetSq(Meters: IN Float) return Float;

private

  Procedure IntegerConvert
	(OldUnits: IN OUT Integer; NewUnits: OUT Integer;Factor: IN Integer);

end convert;