[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m
[01;34mpackage[m [01;34mbody[m Libsens[31m.[mVirtual[31m.[mGen_Plugin [01;34mis[m
   [01;34mprocedure[m [01;30mPrint[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Gen_Drums_Plugin_Record[31m)[m [01;34mis[m
      
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      
      [01;30mPut_Line[m[31m([m[31m"Genetic Drums plugin : "[m[31m);[m
      [01;30mPrint[m[31m([mFilename[31m,[m [01;30mPlugin_Class[m[31m([mPlug[31m));[m
      
      
      [01;30mOpen[m[31m([mFile[31m,[m Append_File[31m,[m Filename[31m);[m      
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Inf[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Sup[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Data_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Data_Id[31m));[m
      [01;30mClose[m[31m([mFile[31m);[m
      
      
   [01;34mend[m Print[31m;[m
   
   [01;34mprocedure[m [01;30mPrint[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Gen_Synth_Plugin_Record[31m)[m [01;34mis[m
      
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      
      [01;30mPut_Line[m[31m([m[31m"Genetic synth plugin : "[m[31m);[m
      [01;30mPrint[m[31m([mFilename[31m,[m [01;30mPlugin_Class[m[31m([mPlug[31m));[m
      
      [01;30mOpen[m[31m([mFile[31m,[m Append_File[31m,[m Filename[31m);[m      
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Inf[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Sup[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Data_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Data_Id[31m));[m
      [01;30mClose[m[31m([mFile[31m);[m
      
      
      
   [01;34mend[m Print[31m;[m
   
   [01;34mprocedure[m [01;30mPrint[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Plug [31m:[m [01;34min[m Gen_Bass_Plugin_Record[31m)[m [01;34mis[m
      
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      
      [01;30mPut_Line[m[31m([m[31m"Genetic bass plugin : "[m[31m);[m
      [01;30mPrint[m[31m([mFilename[31m,[m [01;30mPlugin_Class[m[31m([mPlug[31m));[m
      
      [01;30mOpen[m[31m([mFile[31m,[m Append_File[31m,[m Filename[31m);[m      
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Inf[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_B_Sup[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMin_Data_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Class_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Value_Id[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_Data_Id[31m));[m
      [01;30mClose[m[31m([mFile[31m);[m
      
      
   [01;34mend[m Print[31m;[m
[01;34mend[m Libsens[31m.[mVirtual[31m.[mGen_Plugin[31m;[m
