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

if global1<3 then
begin
 s:=getioline;
 
 if pos('$',s)=1 then
  begin
   //filename:=s;
   delete(s,1,1);
   delete(s,length(s),1);
   global2:=s;
   global4:=1;
  end; 

 if (pos('(G*',s)=1) or
  (pos('(A*',s)=1) or
  (pos('(X*',s)=1) or
  (pos('(S*',s)=1) or
  (pos('(X*',s)=1) 
  then
  begin
   global3:=1;
  end;  
  
if (global1>=2)and(global3=0)and(global4=1) then
begin
  // if past filename
  // and didnt hit command
  filename:=global2;
     if filename>'' then
    begin
     found:=true;
     Path:=DefaultSaveDir;
     triggerautosave(Path+filename);
    end;
end;
global1:=global1+1
end;