-- File: test.adb
-- Test the convert package

With Convert; use Convert;

With Text_IO; use Text_IO;

Procedure test is

 package Number is new Integer_IO (Integer);  -- pkg for reading int
 use Number;
 package RealNumber is new Float_IO (Float);  -- pkg for reading float
 use RealNumber;

 Seconds,Minutes,Hours,Inches,Feet: Integer;
 MetersSQ,FeetSQ: Float;

 Begin
	Seconds:=4321;
	-- Using pkg, so don't need Convert. to call
	Put(Seconds);
	Put(" Seconds is ");
	Sec2MinSec(Seconds,Minutes);
	Min2HrMin(Minutes,Hours);
	Put(Hours,0); Put(" Hours, ");
	Put(Minutes,0); Put(" Minutes and ");
	Put(Seconds,0); Put(" Seconds"); New_Line;
 End test;