with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
--, Ada.Direct_IO; 
use  Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
--, Ada.Direct_IO;

procedure Test_GetLine is


   Pos                  : INTEGER;
   FIle_Scrit           : FILE_TYPE;

   begin

         Open(File => File_Scrit,
              Mode => in_file,
              Name => "1.txt");

                            
                             set_col(File_Scrit, 60);
			     Pos := Index(File_Scrit);
			     Put(pos);
                            
                
         close(File_Scrit);

end Test_GetLine;