
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m
[01;34muse[m Libsens[31m.[mMIDI[31m;[m

[01;34mwith[m Libsens[31m.[mMIDI[31m.[mPortmidi[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mPortmidi[31m;[m
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mDrivers[31m;[m              [01;34muse[m Libsens[31m.[mMIDI[31m.[mDrivers[31m;[m

[01;34mwith[m Libsens[31m.[mVirtual[31m.[mNn_Plugin[31m;[m         [01;34muse[m Libsens[31m.[mVirtual[31m.[mNn_Plugin[31m;[m
[01;34mwith[m Libsens[31m.[mProcessing[31m.[mCommon[31m;[m         [01;34muse[m Libsens[31m.[mProcessing[31m.[mCommon[31m;[m
[01;34mwith[m Libsens[31m.[mMonophonic_Generator[31m;[m

[01;34mwith[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m          [01;34muse[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m

[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m

[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m

[01;34mwith[m Interfaces[31m.[mC[31m;[m                      [01;34muse[m Interfaces[31m.[mC[31m;[m

[01;34mpackage[m [01;34mbody[m Libsens[31m.[mProcessing[31m.[mNeural_Mono [01;34mis[m
   
   [01;34mprocedure[m [01;30mInitialize[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Mono_Processing[31m;[mOptions [31m:[m [01;34min[m Work_Options_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[m[01;30mInitialize[m[31m([mOptions[31m);[m
   [01;34mend[m Initialize[31m;[m   
   
   
   [01;34mprocedure[m [01;30mStart[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Mono_Processing[31m;[mStart_Time [31m:[m [01;34min[m Time[31m;[m Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[m[01;30mStart[m[31m([mStart_Time[31m,[m Tempo[31m,[m Signature[31m);[m
   [01;34mend[m Start[31m;[m
   
   [01;34mprocedure[m [01;30mStop[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Mono_Processing[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[mStop[31m;[m
   [01;34mend[m Stop[31m;[m
   
   [01;34mprocedure[m [01;30mHalt[m[31m([mPlugin_Process [31m:[m [01;34min[m Neural_Mono_Processing[31m)[m [01;34mis[m
   [01;34mbegin[m
      Plugin_Process[31m.[mProcess[31m.[mHalt[31m;[m
   [01;34mend[m Halt[31m;[m
   
   [01;34mtask[m [01;34mbody[m Neural_Mono_Process [01;34mis[m      
      
      
      Start_Time  [31m:[m Time [31m:=[m Clock[31m;[m
      Quantum     [31m:[m [32mDuration[m [31m:=[m [35m0.0[m[31m;[m
      
      Tempo [31m:[m Tempo_Type [31m:=[m [35m120.0[m[31m;[m	 
      Date      [31m:[m Time [31m:=[m Clock[31m;[m
      
      End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Bar_Beat [31m:[m Bar_Beat_Type[31m;[m
      Signature [31m:[m Time_Signature_Type [31m:=[m [31m([m[35m4[m[31m,[m [35m4[m[31m);[m
      
      Current_Form [31m:[m Form_Index_Type [31m:=[m [35m1[m[31m;[m
      Current_Break    [31m:[m Break_Type [31m:=[m Down_Break[31m;[m
      Prev_Break       [31m:[m Break_Type [31m:=[m Null_Break[31m;[m	 
      Next_Break       [31m:[m Break_Type [31m:=[m Down_Break[31m;[m
      


      
      Options [31m:[m [01;34maccess[m Work_Options_Record[31m;[m
      [01;34mpackage[m Monophonic [01;34mis[m 
	 [01;34mnew[m Libsens[31m.[mMonophonic_Generator
	[31m([mFilename [31m=>[m [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mNetwork_Name[31m.[m[01;34mall[m [31m&[m Plugin_Num'[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mId[31m),[m
	 Width [31m=>[m [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mWidth [31m*[m [35m21[m[31m,[m
	 Hidden_Num [31m=>[m [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mWidth[31m,[m
	 Samples_Max [31m=>[m [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mSample_Max[31m);[m   
      [01;34muse[m Monophonic[31m;[m [01;34muse[m Monophonic[31m.[mNeural2chord[31m;[m
   [01;34mbegin[m
      
      [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m [01;30mInitialize[m[31m([mOptions [31m:[m [01;34min[m Work_Options_Access[31m)[m [01;34mdo[m
		  Monophonic[31m.[m[01;30mInitialize[m[31m([m[01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m,[m [32mFloat[m[31m([m[01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m),[m [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mMax_epoch[31m);[m		  		  
		  [01;30mNn_Mono_Plugin_Record[m[31m([mNeural_Mono[31m.[mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m True[31m;[m
		  [01;30mPut_Line[m[31m([m[31m"Plugin id : "[m [31m&[m
			     Plugin_Num'[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mId[31m)[m [31m&[m
			     [31m" ready for process "[m [31m&[m
			     Plugin_Enum'[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mClass[31m));[m
		  Neural_Mono_Process[31m.[mOptions [31m:=[m Options[31m;[m
	       [01;34mend[m Initialize[31m;[m
	    [01;34mor[m
	       
	       [01;34maccept[m [01;30mStart[m[31m([mStart_Time [31m:[m [01;34min[m Time[31m;[m Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mdo[m
		  Quantum [31m:=[m  [32mDuration[m[31m([m[35m60000.0[m[31m/[m[32mFloat[m[31m([mTempo[31m))/[mSignature[31m.[mUnit[31m/[m[35m1000.0[m[31m;[m
		  Neural_Mono_Process[31m.[mTempo [31m:=[m Tempo[31m;[m
		  Neural_Mono_Process[31m.[mSignature [31m:=[m Signature[31m;[m
		  
		  Bar_Beat [31m:=[m [31m([m[35m1[m[31m,[m [35m1[m[31m,[m [35m1[m[31m);[m
		  Neural_Mono_Process[31m.[mStart_Time [31m:=[m Start_Time[31m;[m		  

		  
	       [01;34mend[m Start[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m  Stop[31m;[m
	    [01;34mor[m
	       [01;34maccept[m Halt[31m;[m
	       End_Of_Task [31m:=[m True[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [31m--Put_Line("Neural mono started ::= MIMI 0.1.0");[m
	 
	 
	 [01;34mdeclare[m
	 
	    Response [31m:[m [01;30mNode_Set[m[31m([m[35m1[m[31m..[m[35m21[m [31m*[m [35m4[m[31m)[m [31m:=[m Monophonic[31m.[mGenerator[31m.[mProblem_Rand[31m;[m
	 [01;34mbegin[m
	    
	    [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	       [01;34mselect[m
		  [01;34maccept[m [01;30mInitialize[m[31m([mOptions [31m:[m [01;34min[m Work_Options_Access[31m);[m
	       [01;34mor[m
		  [01;34maccept[m [01;30mStart[m[31m([mStart_Time [31m:[m [01;34min[m Time[31m;[m Tempo [31m:[m [01;34min[m Tempo_Type[31m;[m Signature [31m:[m [01;34min[m Time_Signature_Type[31m)[m [01;34mdo[m
		     Quantum [31m:=[m  [32mDuration[m[31m([m[35m60000.0[m[31m/[m[32mFloat[m[31m([mTempo[31m))/[mSignature[31m.[mUnit[31m/[m[35m1000.0[m[31m;[m
		     Neural_Mono_Process[31m.[mTempo [31m:=[m Tempo[31m;[m
		     Neural_Mono_Process[31m.[mSignature [31m:=[m Signature[31m;[m		  
		     Neural_Mono_Process[31m.[mOptions [31m:=[m Options[31m;[m
		     Neural_Mono_Process[31m.[mStart_Time [31m:=[m Start_Time[31m;[m
		  [01;34mend[m Start[31m;[m
	       [01;34mor[m
		  [01;34maccept[m  Stop[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34maccept[m Halt[31m;[m
		  End_Of_Task [31m:=[m True[31m;[m
		  [01;34mexit[m[31m;[m
	       [01;34mor[m
		  [01;34mdelay[m [01;34muntil[m Start_Time[31m;[m
		  [31m--Put_Line("step_seq started ::= MIMI 0.1.1");[m
		  [31m--if current_form = Neural_Mono.plugin.played_form then[m
		  [31m--  if Neural_Mono.Plugin.Algo = Null_Algo then[m
		  [01;34mif[m [31m([m[01;34mnot[m Neural_Mono[31m.[mplugin[31m.[mmutted[31m)[m 
		    [01;34mand[m [01;30mis_formed[m[31m([mOptions[31m.[mtrue_table[31m,[m			       
				  Neural_Mono[31m.[mPlugin[31m.[mCat_id[31m,[m 
				  Options[31m.[mPrev_Break[31m,[m 
				  Options[31m.[mNext_Break[31m)[m [01;34mthen[m
		     [31m--Put_Line("Neural mono started ::= MIMI 0.1.2");[m
		     
		     
		     Start_Time [31m:=[m Start_Time [31m+[m [31m([mQuantum[31m*[mSignature[31m.[mUnit[31m);[m
		     
		     [01;34mdeclare[m
			
			
			
			Notes_Set [31m:[m Notes_Set_Access[31m;[m
			
			
			Date [31m:[m Time [31m:=[m Clock[31m;[m
		     [01;34mbegin[m
			[31m--  Text_Io.Put_Line("**********************************************");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***             NEW MONOPHONIC              ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("**********************************************");			   [m

			[31m--  Text_Io.Put_Line("**********************************************");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***               RESPOND                  ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");			   [m
			[31m--  Text_Io.Put_Line("**********************************************");[m
			Monophonic_Lock[31m.[mSeize[31m;[m
			Response [31m:=[m Monophonic[31m.[m[01;30mRespond[m[31m([mMonophonic[31m.[mGenerator[31m.[mProblem_Rand[31m);[m
			Response [31m:=[m Monophonic[31m.[m[01;30mRespond[m[31m([mresponse[31m);[m
			Monophonic_Lock[31m.[mRelease[31m;[m
			[31m--  Text_Io.Put_Line("**********************************************");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***           NEURAL TO CHORD              ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("**********************************************");			   [m
			
			Notes_Set [31m:=[m Neural2chord[31m.[m[01;30mTo_Chord[m[31m([mResponse[31m);[m
			
			[31m--  Text_Io.Put_Line("**********************************************");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***             PLAYING NOTES              ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("***                                        ***");[m
			[31m--  Text_Io.Put_Line("**********************************************");			   [m

			
			[01;34mfor[m Note_Id [01;34min[m Notes_Set'[01;34mrange[m [01;34mloop[m
			   
			   
			   [31m-- Text_Io.Put_Line("********************* Step 1 ***********************");[m
			   [01;34mdeclare[m
			      Note_On  [31m:[m Long [31m:=[m Messages[31m.[m[01;30mTo_Long[m[31m([mMessages[31m.[m[01;30mNote_On[m[31m([m[01;30mLong[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mCh_Id[31m-[m[35m1[m[31m),[m 
										   [01;30mLong[m[31m(([m[01;30mNotes_Set[m[31m([mNote_Id[31m).[mKey [01;34mmod[m [35m36[m[31m)[m [31m+[m [35m24[m[31m),[m 
										   [01;30mLong[m[31m([m[01;30mNotes_Set[m[31m([mNote_Id[31m).[mSens[31m)));[m 
			      
			      
			      
			      
			      Note_Off [31m:[m Long [31m:=[m Messages[31m.[m[01;30mTo_Long[m[31m([mMessages[31m.[m[01;30mNote_Off[m[31m([m[01;30mLong[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mCh_Id[31m-[m[35m1[m[31m),[m 
										    [01;30mLong[m[31m(([m[01;30mNotes_Set[m[31m([mNote_Id[31m).[mKey [01;34mmod[m [35m36[m[31m)[m [31m+[m [35m24[m[31m)));[m
			      
			      
			      [31m--  Note_On  : Long := To_Long(Messages.Note_On(Neural_Mono.Plugin.Channel, [m
			      [31m--  						   Long(Notes_Set(Note_Id).Key), [m
			      [31m--  						   Long(Notes_Set(Note_Id).Sens))); [m
			      
			      [31m--  Note_Off : Long := To_Long(Messages.Note_Off(Neural_Mono.Plugin.Channel, [m
			      [31m--  						    Long(Notes_Set(Note_Id).Key)));[m
			      
			      
			      Length   [31m:[m [32mDuration[m [31m:=[m [31m([mQuantum[31m)[m [31m*[m [01;30mNatural[m[31m(([m[01;30mLong[m[31m([m[01;30mNotes_Set[m[31m([mNote_Id[31m).[mLength[31m)));[m
			      
			   [01;34mbegin[m
			      [31m-- Text_Io.Put_Line("********************* Step 1.0 *********************");[m
			      Date [31m:=[m Clock[31m;[m				    
			      Neural_Mono[31m.[mEvent_Process[31m.[m[01;30mReceive[m[31m([mNeural_Mono[31m.[mplugin[31m.[mDevice_Id[31m,[m Date[31m,[m Note_On[31m,[m [35m0.0[m[31m,[m Tempo[31m);[m
			      Neural_Mono[31m.[mEvent_Process[31m.[m[01;30mReceive[m[31m([mNeural_Mono[31m.[mplugin[31m.[mDevice_Id[31m,[m Date[31m,[m Note_Off[31m,[m Length[31m,[m Tempo[31m);[m

			      [31m-- Text_Io.Put_Line("********************* Step 1.1 *********************");[m
			      [01;34mif[m Neural_Mono[31m.[mPlugin[31m.[mPrinted [01;34mthen[m
				 
				 [01;34mdeclare[m				       
				    Printed_Message [31m:[m [01;34mconstant[m Printed_Message_Access [31m:=[m [01;34mnew[m Printed_Message_Type '
				      [31m([mSource [31m=>[m [01;34mnew[m [32mString[m [31m' (Plugin_num'[m[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mId[31m)),[m
				       Destination [31m=>[m [01;34mnew[m [32mString[m [31m' (Device_num'[m[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mDevice_id[31m)),[m
				       Data_Type [31m=>[m [01;34mnew[m [32mString[m [31m' (Control_Type'[m[01;30mImage[m[31m([m[01;30mControl_Of[m[31m([mNote_On[31m))),[m
				       Channel [31m=>[m [01;34mnew[m [32mString[m [31m' (Channel_Type'[m[01;30mImage[m[31m([m[01;30mChannel_Of[m[31m([mNote_On[31m))),[m
				       Data1 [31m=>[m [01;34mnew[m [32mString[m [31m' (Interfaces.C.Long'[m[01;30mImage[m[31m([mPortmidi[31m.[m[01;30mData1[m[31m([mNote_On[31m))),[m
				       Data2 [31m=>[m [01;34mnew[m [32mString[m [31m' (Interfaces.C.Long'[m[01;30mImage[m[31m([mPortmidi[31m.[m[01;30mData2[m[31m([mNote_On[31m))),[m
				       Hour [31m=>[m [01;34mnew[m [32mString[m ' [31m([mFormatting[31m.[m[01;30mImage[m[31m([mDate[31m,[m True[31m)),[m
				       Hexa_Sum [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[01;30mHex_Image[m[31m([mNote_On[31m)),[m
				       Long_Sum [31m=>[m [01;34mnew[m [32mString[m [31m' (Long'[m[01;30mImage[m[31m([mNote_On[31m)));[m
				 [01;34mbegin[m
				    
				    [31m--Print(Printed_Message);[m
				    
				    Neural_Mono[31m.[mBox[31m.[m[01;30mReceive[m[31m([mPrinted_Message[31m);[m
				    [31m--Text_Io.Put_Line("Messages sended to Message box");[m
				    
				 [01;34mend[m[31m;[m
				 
				 [01;34mdeclare[m				       
				    Printed_Message [31m:[m [01;34mconstant[m Printed_Message_Access [31m:=[m [01;34mnew[m Printed_Message_Type '
				      [31m([mSource [31m=>[m [01;34mnew[m [32mString[m [31m' (Plugin_Num'[m[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mId[31m)),[m
				       Destination [31m=>[m [01;34mnew[m [32mString[m [31m' (Device_Num'[m[01;30mImage[m[31m([mNeural_Mono[31m.[mPlugin[31m.[mDevice_id[31m)),[m
				       Data_Type [31m=>[m [01;34mnew[m [32mString[m [31m' (Control_Type'[m[01;30mImage[m[31m([m[01;30mControl_Of[m[31m([mNote_Off[31m))),[m
				       Channel [31m=>[m [01;34mnew[m [32mString[m [31m' (Channel_Type'[m[01;30mImage[m[31m([m[01;30mChannel_Of[m[31m([mNote_Off[31m))),[m
				       Data1 [31m=>[m [01;34mnew[m [32mString[m [31m' (Interfaces.C.Long'[m[01;30mImage[m[31m([mPortmidi[31m.[m[01;30mData1[m[31m([mNote_Off[31m))),[m
				       Data2 [31m=>[m [01;34mnew[m [32mString[m [31m' (Interfaces.C.Long'[m[01;30mImage[m[31m([mPortmidi[31m.[m[01;30mData2[m[31m([mNote_Off[31m))),[m
				       Hour [31m=>[m [01;34mnew[m [32mString[m ' [31m([mFormatting[31m.[m[01;30mImage[m[31m([mDate[31m+[mlength[31m,[m True[31m)),[m
				       Hexa_Sum [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[01;30mHex_Image[m[31m([mNote_Off[31m)),[m
				       Long_Sum [31m=>[m [01;34mnew[m [32mString[m [31m' (Long'[m[01;30mImage[m[31m([mNote_Off[31m)));[m
				 [01;34mbegin[m
				    
				    [31m--Print(Printed_Message);[m
				    
				    Neural_Mono[31m.[mBox[31m.[m[01;30mReceive[m[31m([mPrinted_Message[31m);[m
				    [31m--Text_Io.Put_Line("Messages sended to Message box");[m
				    
				 [01;34mend[m[31m;[m
			      [01;34mend[m [01;34mif[m[31m;[m
			      
			      [31m--Text_Io.Put_Line("********************* Step 1.2 *********************");[m
			      
			   [01;34mend[m[31m;[m
			   
			   [01;34mdelay[m Quantum[31m;[m
			   start_time [31m:=[m start_time [31m+[m Quantum[31m;[m
			[01;34mend[m [01;34mloop[m[31m;[m
			[01;30mFree[m[31m([mNotes_Set[31m);[m
			Response [31m:=[m Monophonic[31m.[mGenerator[31m.[mProblem_Rand[31m;[m
		     [01;34mend[m[31m;[m
		     
		  [01;34melse[m
		     start_time [31m:=[m start_time [31m+[m Quantum[31m;[m
		     [31m--Put_Line("tatata 3");		     		     [m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [31m-- end if;[m
		  [31m--   end if;[m
		  [31m--Put_Line("step_seq started ::= MIMI 0.1.275");[m
	       [01;34mend[m [01;34mselect[m[31m;[m	    
	       [01;30mNext[m[31m([mbar_beat[31m,[m Options[31m.[mTrack_length[31m,[m signature[31m.[mnumber[31m,[m signature[31m.[munit[31m);[m		  
	       
	       [31m--Put_Line("step_seq started ::= MIMI 0.1.276");[m
	    [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mend[m[31m;[m
	 [01;30mPut_Line[m[31m([m[31m"Neural mono stopped::= MIMI 0.1.276"[m[31m);[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mPut_Line[m[31m([m[31m"Neural mono halted::= MIMI 0.1.276"[m[31m);[m
   [01;34mend[m Neural_Mono_Process[31m;[m
   
[01;34mend[m Libsens[31m.[mProcessing[31m.[mNeural_Mono[31m;[m
