From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,965ec819ff0a0ec8
X-Google-Attributes: gid103376,public
From: "rvr@Networx.net.au" (Bexley)
Subject: Help regarding Help File
Date: 1998/05/28
Message-ID: <356cec31.0@cactus>#1/1
X-Deja-AN: 357196843
Organization: Customer of Connect.com.au P/L, Perth, Australia
Newsgroups: comp.lang.ada
Date: 1998-05-28T00:00:00+00:00
List-Id: <comp.lang.ada>


Howdie

I'm writing a program that needs to read in from a file, one full page of help

at the moment it looks like this:
   procedure Help is
      Help_char:character ;
   begin
      Open(Help_File,In_File,"tax.hlp");
      while not End_Of_File (Help_File) loop
         Get(Help_File,Help_Char);
         Put(Help_Char);
      end loop; --end_of_file loop
      Close(Help_File);
   end Help;

the problem is that this code isn't moving to the next line when the text in 
the file is..
The result is a page of information being squashed into only a few lines
any Idea's would be apreciated
thanx