// script to auto save MIN files
// search first 2 lines only

if global1<2 then
begin
 s:=getioline;
 if pos('$',s)=1 then
  begin
   filename:=s;
   delete(filename,1,1);
   delete(filename,length(filename),1);
   if filename>'' then
    begin
     Path:=DefaultSaveDir;
     triggerautosave(Path+filename);
    end;
  end;
 global1:=global1+1
end;