function simsavesys
global pathname sys

[filename,pathname,error]=savefile(1,pathname);

if error==0
   eval(['save ',pathname,filename,' sys'])
end

