Code covered by the BSD License  

Highlights from
ReadPIC

from ReadPIC by Phil Larimer
Read and write Biorad PIC image files

ispic(filename)
function tf = ispic(filename)
%ISPIC Returns true for a Biorad PIC file.
%   TF = ISPIC(FILENAME)

fid = fopen(filename, 'r');
if (fid < 0)
    tf = false;
else
    fseek(fid, 54)
    sig = fread(fid, 1, 'uint16');
    fclose(fid);
    tf = isequal(sig, 12345);
end

Contact us at files@mathworks.com