[01;34mwith[m Gmface[31m.[mGm_Common[31m;[m                    [01;34muse[m Gmface[31m.[mGm_Common[31m;[m
[01;34mwith[m Gmface[31m.[mGm_Virtual[31m;[m                   [01;34muse[m Gmface[31m.[mGm_Virtual[31m;[m
[01;34mwith[m Gmface[31m.[mGm_MIDI[31m.[mMessages[31m;[m             [01;34muse[m Gmface[31m.[mGm_MIDI[31m.[mMessages[31m;[m
[01;34mwith[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Plugins[31m;[m
[01;34muse[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mGmface_Plugins[31m;[m
[01;34mpackage[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mPrgm_Change [01;34mis[m
   
   [01;34mtype[m Prgm_Change_Type [01;34mis[m
      [01;34mrecord[m
	 MSB_Select   [31m:[m Value_Type [31m:=[m [35m0[m[31m;[m
	 LSB_Select   [31m:[m Value_Type [31m:=[m [35m0[m[31m;[m
	 Prgm_Num     [31m:[m Program_Type [31m:=[m [35m0[m[31m;[m
	 
	 
	 Id      [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 Bar     [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 Number  [31m:[m Time_Number_Type [31m:=[m [35m1[m[31m;[m
	 Step    [31m:[m Time_Unit_Type [31m:=[m [35m1[m[31m;[m
	 Played  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Note    [31m:[m String_Access [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m
	 In_Loop [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m PC_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Prgm_Change_Type[31m;[m
   
   
   [01;34mtype[m Prgm_Change_Plugin_Record [01;34mis[m
     [01;34mnew[m [01;30mGmface_Plugin_Class[m[31m([mPC_List[31m)[m [01;34mwith[m
      [01;34mrecord[m
	 Sequencer [31m:[m [01;30mPc_Array[m[31m([m[35m1[m[31m..[m[35m128[m[31m);[m
	 Bars_Max  [31m:[m Positive [31m:=[m [35m128[m[31m;[m	 	 
      [01;34mend[m [01;34mrecord[m[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 Prgm_Change_Plugin_Record[31m);[m
[01;34mend[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mPrgm_Change[31m;[m
