---------------------------------------------------------------------------
-- Frustrated Inhibitive Synapse Learning (FISL) Demonstration
-- procedure
-- Copyright 1994 David W. Croft.  All rights reserved.
-- CompuServe [76600, 102]
-- Internet   CroftDW@Portia.Caltech.Edu
---------------------------------------------------------------------------

with FISL   ; use FISL;
with FISL_IO; use FISL_IO;
with Text_IO;

procedure FISLDemo is
---------------------------------------------------------------------------
---------------------------------------------------------------------------
  Setup : Setup_Type;
begin
  Text_IO.Put_Line ( "FISLDemo v1.0 (C) 1994 David W. Croft." );
  Text_IO.Put_Line ( "" );
  Get ( Setup );
  declare
    Network : Network_Type ( Neuron_Count => Setup.Total_Count );
  begin
    Initialize ( Network, Setup );
    loop
      Get ( Network.Phases );
      Put ( Network );
      Update ( Network );
    end loop;
  end;
end FISLDemo;