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=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b6f13b7fb626a805
X-Google-Attributes: gid103376,public
From: "DuckE" <nospam_steved94@home.com>
Subject: Re: output something on the right side
Date: 2000/10/21
Message-ID: <5OoI5.5432$E85.90720@news1.sttls1.wa.home.com>#1/1
X-Deja-AN: 684271200
References: <39ee03b7@alijku02.edvz.uni-linz.ac.at> <u3dhsu26i.fsf@wanadoo.fr>
 <8ss997$6je$1@nnrp1.deja.com>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700
X-Complaints-To: abuse@home.net
X-Trace: news1.sttls1.wa.home.com 972167425 24.6.221.63 (Sat,
 21 Oct 2000 15:30:25 PDT)
Organization: @Home Network
X-MSMail-Priority: Normal
Reply-To: "DuckE" <nospam_steved94@home.com>
NNTP-Posting-Date: Sat, 21 Oct 2000 15:30:25 PDT
Newsgroups: comp.lang.ada
Date: 2000-10-21T00:00:00+00:00
List-Id: <comp.lang.ada>


"Robert Dewar" <robert_dewar@my-deja.com> wrote in message news:8ss997
[snip]
> Pascal had a smiley there, but in fact his answer is reasonable
> if you rewrite it slightly as
>
>    Put (((80-s'Length)*' ') & s);
>
> Not enough people are familiar with the useful routines
> in the Ada.Strings.xxx packages :-)
>

I get a compile error with the above code.  I have a lot better luck with:

  Put (String'(1..(80-s'Length)=>' ') & s);

SteveD