[01;34mwith[m Libsens[31m.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[31m;[m

[01;34mwith[m Ada[31m.[mUnchecked_Deallocation[31m;[m
[01;34mpackage[m Libsens[31m.[mProcessing[31m.[mCommon [01;34mis[m
      [01;34mtype[m Printed_Message_Type [01;34mis[m
      [01;34mrecord[m
	 Source      [31m:[m String_Access[31m;[m
	 Destination [31m:[m String_Access[31m;[m
	 Data_Type   [31m:[m String_Access[31m;[m
	 Channel     [31m:[m String_Access[31m;[m
	 Data1       [31m:[m String_Access[31m;[m
	 Data2       [31m:[m String_Access[31m;[m
	 Hour        [31m:[m String_Access[31m;[m
	 Hexa_Sum    [31m:[m String_Access[31m;[m
	 Long_Sum    [31m:[m String_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Printed_Message_Access [01;34mis[m [01;34maccess[m Printed_Message_Type[31m;[m
   
   [01;34mprocedure[m Free [01;34mis[m [01;34mnew[m Ada[31m.[m[01;30mUnchecked_Deallocation[m[31m([mPrinted_Message_Type[31m,[m Printed_Message_Access[31m);[m
   
   [01;34msubtype[m Printed_Message_Index_Type [01;34mis[m Positive[31m;[m

   
   [01;34mtask[m [01;34mtype[m Messages_Box [01;34mis[m
      [01;34mentry[m [01;30mReceive[m[31m([mMessage [31m:[m [01;34min[m Printed_Message_Access[31m);[m
      [01;34mentry[m [01;30mSend[m[31m([mMessage [31m:[m [01;34mout[m Printed_Message_Access[31m);[m
      [01;34mentry[m Halt[31m;[m
   [01;34mend[m Messages_Box[31m;[m

[01;34mend[m Libsens[31m.[mProcessing[31m.[mCommon[31m;[m
