[01;34mwith[m Text_Io[31m;[m
[01;34muse[m Text_Io[31m;[m
[01;34mpackage[m [01;34mbody[m Gmface[31m.[mGm_Case [01;34mis[m
   
   [01;34mfunction[m [01;30mFiletype[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m)[m
		     [01;34mreturn[m Work_Enum [01;34mis[m
      
      File [31m:[m File_Type[31m;[m
      
   [01;34mbegin[m
      
      [01;30mOpen[m[31m([mFile[31m,[m In_File[31m,[m Filename[31m);[m
      [01;34mdeclare[m
	 Line [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_Line[m[31m([mFile[31m);[m
      [01;34mbegin[m
	 [01;34mif[m Line'Length [31m>=[m [35m4[m [01;34mthen[m
	    [01;34mif[m [01;30mLine[m[31m([m[35m1[m[31m..[m[35m4[m[31m)[m [31m=[m Gmidi_Header [01;34mthen[m
	       [01;30mClose[m[31m([mFile[31m);[m
	       [01;34mreturn[m Gmidi_Work[31m;[m
	    [01;34melsif[m [01;30mLine[m[31m([m[35m1[m[31m..[m[35m4[m[31m)[m [31m=[m Gmface_Header [01;34mthen[m
	       [01;30mClose[m[31m([mFile[31m);[m
	       [01;34mreturn[m Gmface_Work[31m;[m
	    [01;34melse[m
	       [01;30mClose[m[31m([mFile[31m);[m
	       [01;34mraise[m Program_Error[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34melse[m
	    [01;30mClose[m[31m([mFile[31m);[m
	    [01;34mraise[m Program_Error[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m Filetype[31m;[m
	             
[01;34mend[m Gmface[31m.[mGm_Case[31m;[m
