[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2025 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := "2025-06-04 11:53:09"[m
[31m-- Version := "0.0.0r"[m
[01;34mpackage[m M[31m.[mParameters [01;34mis[m
   
      [01;34mtype[m [01;30mParameter_Record[m [31m([mRequiered_Parameter [31m:[m [32mBoolean[m[31m)[m [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
	 Switch   [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 	 
	 Num_Iter [31m:[m Natural [31m:=[m [35m0[m[31m;[m	 	 
	 Is_Setted [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
	 Parameter_Flag [31m:[m Flag_Enum [31m:=[m None[31m;[m	 
	 Descr [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 
	 [01;34mcase[m Requiered_Parameter [01;34mis[m
	    [01;34mwhen[m False [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m True [31m=>[m
	       
	       param [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	       Value [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Parameters_Kit [01;34mis[m 
     [01;34marray[m [31m([mFlag_Enum[31m)[m [01;34mof[m 
     [01;34maccess[m Parameter_Record[31m;[m
   
   
   Line_Parameters [31m:[m [01;34mconstant[m Parameters_Kit [31m:=[m 
     [31m([m
      
      None [31m=>[m [01;34mnull[m[31m,[m
      Config_Filename [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Help [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
      Quiet [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"q"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Quiet[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"quiet option"[m[31m)),[m
      Version [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the version"[m[31m)),[m
      Initialize [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Initialize[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"initiaize total value"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Total [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"t"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Total[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print fixed from -999999.99 to 999999.99"[m[31m)),[m
      Geometry [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m geometry[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Descibe the term geometry ; (eg : 67x240)"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      style [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m style[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"style"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string : Black_And_White, Black_And_Color, Color_And_White"[m [31m&[m
				       Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m&[m
				       [31m"                       White_And_Color, Color_And_Color, White_And_White"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Samples_Filename [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"f"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m  Samples_filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Samples filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Max_epochs [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"m"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Max_Epochs[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Max_Epochs"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Converged [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Converged[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Converged"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Real number"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Reuse [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"r"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Reuse[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Reuse"[m[31m)),[m	 
      Train [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Train[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Train"[m[31m)),[m
      Num_samples [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Num_Samples[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Num_Samples"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m      
      Line_Width [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Line_Width[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line_Width"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Char_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Char_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Char_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m

      Words_Max [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"L"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Words_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Words_Max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Num_hidden [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"H"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Num_hidden[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Num_hidden"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Update [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Update[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"update"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      As_server [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m As_server[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"As server"[m[31m)),[m
      Term_Name [31m=>[m [01;34mnew[m Parameter_Record '
      	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"N"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
      	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Term_Name[31m,[m 
      	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Terminal name"[m[31m),[m
      	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
      	 Value [31m=>[m [01;34mnull[m[31m),[m

      Self_Programming [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"p"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Programming[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self programming"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Executed [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Executed[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self Executed"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Wait [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"w"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Username [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Username[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"user name"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Address [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"A"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Address[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"remote address"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Input_Text [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Input_Text[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"input text"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Name_Length [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Name_Length[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Unit_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Unit_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Units max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Unit_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Object_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"o"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Object_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object_index_type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m

      User_wait [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m User_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"User wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Human_Lang [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Human_Lang[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human Language I18 abrev"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human_Lang_Enum"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Gtk [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Gtk[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with GtkAda"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Ada [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Ada[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with Ada"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Aws [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Aws[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with AWS"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m)[m

	
     [31m);[m
   
   File_Parameters [31m:[m [01;34mconstant[m Parameters_Kit [31m:=[m 
     [31m([m
      
            None [31m=>[m [01;34mnull[m[31m,[m
      Config_Filename [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Help [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
      Quiet [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"q"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Quiet[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"quiet option"[m[31m)),[m
      Version [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the version"[m[31m)),[m
      Initialize [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Initialize[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"initiaize total value"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"fixed from -999999.99 to 999999.99"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Total [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"t"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Total[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print fixed from -999999.99 to 999999.99"[m[31m)),[m
      Geometry [31m=>[m [01;34mnew[m Parameter_Record '	
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m geometry[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Descibe the term geometry ; (eg : 67x240)"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      style [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m style[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"style"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string : Black_And_White, Black_And_Color, Color_And_White"[m [31m&[m
				       Wide_Character'[01;30mVal[m[31m([m[35m10[m[31m)[m [31m&[m
				       [31m"                       White_And_Color, Color_And_Color, White_And_White"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Samples_Filename [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"f"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m  Samples_filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Samples filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Max_epochs [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"m"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Max_Epochs[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Max_Epochs"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Converged [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Converged[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Converged"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Real number"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Reuse [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"r"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Reuse[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Reuse"[m[31m)),[m	 
      Train [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Train[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Train"[m[31m)),[m
      Num_samples [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Num_Samples[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Num_Samples"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m      
      Line_Width [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Line_Width[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line_Width"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Char_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Char_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Char_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m

      Words_Max [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"L"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Words_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Words_Max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Num_hidden [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"H"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Num_hidden[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Num_hidden"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"integer"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Update [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Update[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"update"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"string"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      As_server [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m As_server[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"As server"[m[31m)),[m
      Term_Name [31m=>[m [01;34mnew[m Parameter_Record '
      	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"N"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
      	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Term_Name[31m,[m 
      	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Terminal name"[m[31m),[m
      	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
      	 Value [31m=>[m [01;34mnull[m[31m),[m

      Self_Programming [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"p"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Programming[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self programming"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Executed [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Executed[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self Executed"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Wait [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"w"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
            Username [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Username[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"user name"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Address [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"A"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Address[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"remote address"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Input_Text [31m=>[m [01;34mnew[m Parameter_Record '
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"i"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Input_Text[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"input text"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Name_Length [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Name_Length[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Unit_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Unit_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Units max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Unit_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Object_Max [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"o"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Object_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object_index_type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m

      User_wait [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m User_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"User wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Human_Lang [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Human_Lang[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human Language I18 abrev"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human_Lang_Enum"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Gtk [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Gtk[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with GtkAda"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Ada [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Ada[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with Ada"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Aws [31m=>[m [01;34mnew[m Parameter_Record ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Aws[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with AWS"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m)[m

	

     [31m);[m


   [01;34mtype[m Parameters_Kit_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Kit [31m:[m Parameters_kit[31m;[m
	 Name_Length [31m:[m Name_Index_Type [31m:=[m [35m1024[m[31m;[m
	 Unit_Max    [31m:[m Unit_Index_Type [31m:=[m [35m1024[m[31m;[m
	 With_Gtk [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 With_Ada [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 With_Aws [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Char_Max	[31m:[m char_index_type [31m:=[m [35m256[m[31m;[m
	 Version        [31m:[m version_index_type [31m:=[m [35m2016[m[31m;[m
	 Objects_Max [31m:[m Object_Index_Type [31m:=[m [35m65536[m[31m;[m	 
	 Self_Programming	[31m:[m [32mboolean[m [31m:=[m False[31m;[m
	 Self_Executed		[31m:[m [32mboolean[m [31m:=[m False[31m;[m	 
	 Self_Wait [31m:[m [32mDuration[m [31m:=[m [35m0.00005[m[31m;[m
	 User_Wait [31m:[m [32mDuration[m [31m:=[m [35m86400.0[m[31m;[m
	 Human_Lang [31m:[m Human_Lang_Enum [31m:=[m Human_Lang_Enum'First[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
[01;34mend[m M[31m.[mParameters [31m;[m 
