How do I "Get" just 4 characters?

[kanderso@mabillon.ICS.UCI.EDU (Kenneth Anderson)]

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