Re: How do I "Get" just 4 characters?

[sercely@convex.com (Ron Sercely)]

Sorry for the cryptic post.  Most of my message was (due to my error) ommited.
I do my development on Convex Ada, which is derived from Verdix Ada.  On most
Verdix systems, I/O requests eventually map to C library calls.  The default
model used for reads on must Unix system uses line buffering, (so that the
delete key works, for example).  The way that line buffering is disable is to
set the stty mode to cbreak.  This package uses commonly supplied Verdix
packages to allow a program to set STANDAND_INPUT to cbreak mode, which
solves the problem of the orignial post. 

with Text_IO;
with set_tty_modes;

procedure test is

   subtype pin_type is string(1..4);
   A   : pin_type;
   Num : INTEGER;

begin
   set_tty_modes.set_cbreak;  -- inserted line
   Text_IO.Get(A);
   Text_Io.New_Line;  -- necessary to duplicate the output desired
                      -- by the original poster
   Text_IO.PUT_LINE(A);
   set_tty_modes.unset_cbreak;  -- inserted line
end test;


Hope the post makes sense this time :-)

Ron Sercely