function   main ()
     local  f  =   io.open (file,  "a+" )
     for  i  =   1 ,  100   do 
      f:write(s .. i .. "\n")
      f:flush()
       sleep ( 1 )
     end 
    f:close()
 end   

    f = io.open(file,"+a");
   i = 0;
   while(f == nil) do
       i = i + 1;
      if i == 2000 then
         message("Не могу открыть для записи файл "..file);
            sleep(5000);
            error("");
      end;            
            f = io.open(file,"+a");
       sleep(1);
   end;

function main()
    local f = io.open(file, "a+")
    for i = 1, 100 do
      f:write(s..i.."\n")
      f:flush()
      sleep(1)
    end
    f:close()
end