fFileName := get_file_name();
fFile := Text_IO.Fopen(fFileName, 'r');
  Loop
  		Begin
  				Text_IO.Get_Line(fFile, fBuffer);
  				x := x + 1;
  				Insert Into File_Lines (Line, Buffer) Values (x, fBuffer);  				
  		Exception When Others Then
  			  Exit;
  		End;
	End Loop;
	Text_IO.Fclose(fFile);