with Ada.Text_IO; use Ada.Text_IO; package ReadToken is procedure ReadNextToken (Line_Number : in out Integer;fFile : in File_Type; Token : out String; Status : out Boolean); end ReadToken;