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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,794c64d1f9164710
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-21 00:25:56 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!jfk3-feed1.news.digex.net!dca6-feed2.news.digex.net!intermedia!newsfeed1.cidera.com!Cidera!portc03.blue.aol.com!audrey04.news.aol.com!not-for-mail
X-Admin: news@aol.com
From: unversedangel@aol.com (Unversed Angel)
Newsgroups: comp.lang.ada
Date: 21 Feb 2002 08:25:25 GMT
References: <hiZc8.39576$1u6.539844780@newssvr14.news.prodigy.com>
Organization: AOL, http://www.aol.co.uk
Subject: Re: functions, packages & characters
Message-ID: <20020221032525.25608.00002542@mb-mc.aol.com>
Xref: archiver1.google.com comp.lang.ada:20200
Date: 2002-02-21T08:25:25+00:00
List-Id: <comp.lang.ada>

I have been looking at my program and wondered if this woul work

package obtain is
function Get_Line;
end obtain;

with Text_io;
use Text_io;
package body obtain is
begin
function Get_Line (Text :String)
       return Unbounded_String;
  Get_Line;  
end;

With Text_IO;
use Text_IO;
with obtain
procedure main is
  ---
  ---pre: tags are in the text
  ---post:tags have been correctly reformatted
  ---
  Text: File;

function Find_Dblslash (//)
         return Single Slash(/)procedure main is
begin 
Put_Line ("Please enter text: ");
use obtain;