[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m
[01;34mpackage[m [01;34mbody[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer [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 Arp_Seq_Plugin_Record[31m)[m [01;34mis[m
      File [31m:[m File_Type[31m;[m
   [01;34mbegin[m
      [01;30mPut_Line[m[31m([m[31m"Arp_Sequencer 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 Plug[31m.[mNetwork[31m.[m[01;34mall[m[31m);[m      
      [01;30mPut_Line[m[31m([mFile[31m,[m [32mboolean[m'[01;30mImage[m[31m([mPlug[31m.[mReuse[31m));[m	    
      [01;30mPut_Line[m[31m([mFile[31m,[m real'[01;30mImage[m[31m([mPlug[31m.[mconverged[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mMax_epoch[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Positive'[01;30mImage[m[31m([mPlug[31m.[mLast_Step[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m Value_Type'[01;30mImage[m[31m([mPlug[31m.[mtranspose[31m));[m
      [01;30mPut_Line[m[31m([mFile[31m,[m T_Figure'[01;30mImage[m[31m([mPlug[31m.[mresolution[31m));[m
      
      [01;34mfor[m I [01;34min[m Plug[31m.[mStep_Table'[01;34mRange[m [01;34mloop[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m [32mboolean[m'[01;30mImage[m[31m([mPlug[31m.[m[01;30mStep_Table[m[31m([mI[31m).[mSet[31m));[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      [01;34mfor[m I [01;34min[m Plug[31m.[mStart_Chord'[01;34mRange[m [01;34mloop[m
	 
	 [01;30mPut_Line[m[31m([mFile[31m,[m Value_Type'[01;30mImage[m[31m([mPlug[31m.[m[01;30mStart_Chord[m[31m([mI[31m).[mkey[31m));[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m Value_Type'[01;30mImage[m[31m([mPlug[31m.[m[01;30mStart_Chord[m[31m([mI[31m).[mvel[31m));[m
	 [01;30mPut_Line[m[31m([mFile[31m,[m Value_Type'[01;30mImage[m[31m([mPlug[31m.[m[01;30mStart_Chord[m[31m([mI[31m).[mlen[31m));[m
	 
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mClose[m[31m([mFile[31m);[m
      
   [01;34mend[m Print[31m;[m   
   
      
   [01;34mprocedure[m Initialize
      [31m([mStep [31m:[m [01;34min[m [01;34mout[m Step_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Step [31m:=[m [01;34mnew[m Type_Step[31m;[m             
   [01;34mend[m Initialize[31m;[m

      

[01;34mend[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer[31m;[m
