{This program file may be used with Object
Pascal code generated from pascar.omt.
Run the script pascal1.sct with the file
extension pas. Then compile
the following generated unit files:
VehicleU.pas, MotorUn.pas, CellulaU.pas,
PassengU.pas, TireUnit.pas, CarUnit.pas,
and pasuser.pas.
}

Program Pasuser;

uses CarUnit;

Var
  Number : Integer;
  Car1 : Car;
  Car2 : Car;
begin
  Car1.DefaultInit;
  Number := Car1.GetGasQuantity;
  WriteLn ('The gas quantity is ', Number);
  Car2.Init (15, 20);
  Number := Car2.GetGasQuantity;
  WriteLn ('The gas quantity is ', Number);
  Car1.Copy (Car2);
  Car1.Operate (55, 15, Number);
end.
