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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,343551ac8a3d0216,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1993-03-04 11:22:13 PST
Path: sparky!uunet!news.claremont.edu!ucivax!gateway
From: kanderso@mabillon.ICS.UCI.EDU (Kenneth Anderson)
Subject: How do I "Get" just 4 characters?
Message-ID: <9303041121.aa12530@Paris.ics.uci.edu>
Newsgroups: comp.lang.ada
Date: 4 Mar 93 19:22:13 GMT
Date: 1993-03-04T19:22:13+00:00
List-Id: <comp.lang.ada>

I had a question posed to me by one of my students, that asked : How
do I get just 4 characters of input?

Using the following program as an example:

with Text_IO;

procedure test is

   subtype pin_type is string(1..4);

   A   : pin_type;
   Num : INTEGER;

begin
   Text_IO.Get(A);
   Text_IO.PUT_LINE(A);
end test;

Now then, if I run the program and type "1234567890",

what I see is

1234567890
1234

What I would like to see is this:

1234
1234

I.E. I don't want to see 567890, I want the program to kick in right away
after the fourth character is typed, not wait for the user to type Return.

I tried changing the program to this:

with Text_IO;

procedure test is

   subtype pin_type is string(1..4);

   A : pin_type;
   B : CHARACTER;

begin
   Get(B);
   A(1) := B;
   Get(B);
   A(2) := B;
   Get(B);
   A(3) := B;
   Get(B);
   A(4) := B;
   Text_IO.PUT_LINE(A);
end test;

But the same behavior results...

Any suggestions?

Thanks in advance,

Ken