---------------------------------------------------------------------------
--
-- Filename:
--
--   demo.adb
--
-- Description:
--
--   XGC Ada demo main program.
--
-- Credits:
--
--   Copyright (C) 1997, ESTEC - ESA
--   Copyright (c) 1999, Chris Nettleton Software
--
-- License:
--
--   Permission to use copy, modify, and distribute this software for any
--   purpose without fee is hereby granted. This software is provided
--   "as is", without any express or implied warranty. 
--
-- Revision:
--
--   $Id: $
--
---------------------------------------------------------------------------

with Interfaces;
with Text_IO;

with Controllers;
with Telemetry;
with Command_Interpreter;

procedure Demo is
   use Text_IO;

   pragma Priority (0);

   procedure Power_Down;
   pragma Import (C, Power_Down, "_set_pwdn");

begin

   Put_Line ("Thermal Control Demo");
   Put_Line ("M. Martignano - ESA/ESTEC/WME");
   Put_Line ("Copyright (C) 1997, ESTEC - ESA");
   Put_Line ("Ada version by Chris Nettleton, March 1999");
   Put_Line ("");
   Put_Line ("Strike '~' to exit...");

   loop
      Power_Down;
   end loop;

end Demo;