067.向多个文件中写入内容

with Ada.Text_IO,Ada.Integer_Text_IO;
use Ada.Text_IO,Ada.Integer_Text_IO;

procedure MultOut is
   
   Numbers,Some_Text,More_Text:File_Type;
   
   Index:Integer;
   
begin
   
   Create(Numbers,Out_File,"C:\Users\dosdiosas\Desktop\INTDATA.TXT");
   Create(Some_Text,Out_File,"C:\Users\dosdiosas\Desktop\TEST.TXT");
   Create(More_Text,Out_File,"C:\Users\dosdiosas\Desktop\CHARACTERS.TXT");
   
   for Count in 3..5 loop
      Put(Some_Text,"This line goes to the TEST.TXT file");
      Put(More_Text,"This line goes to the Character.TXT file");
      for Count2 in 12..16 loop
         Put(Numbers,Count+Count2);
      end loop;
      New_Line(More_Text);
      New_Line(Numbers,2);
      New_Line(Some_Text);
   end loop;
   
   Put_Line("INTDATA.TXT TEST>TXT and CHARACTERS.TXT are ready.");
   
   Close(Numbers);
   Close(Some_Text);
   Close(More_Text);
   
end MultOut;