function [XX,map]=im(in1,in2)
if nargin==2;
    if erranrgn(mfilename,nargin,[2],nargout,[0:2]),error('*');
    end
    g=in1;type=in2;
    if errargt(mfilename,g,'str'),error('*');
    end
    if errargt(mfilename,type,'str'),error('*');
    end
    f=imread(g,type);
    if strcmp(type,'bmp')|strcmp(type,'jpg'),[XX,map]=rgb2ind(f);
    end
end