Figure 44.
Get_Command_Line stub 2.
<![CDATA[
---------------------------------------------------------
-- GCLS2.ada
-- 9 June 1987
-- Do-While Jones
-- 324 Traci Lane
-- Ridgecrest, CA 93555
-- (619) 375-4607
-- Get_Command_Line, Stub 2
with TEXT_IO;
procedure Get_Command_Line(TAIL : out string;
LENGTH : out natural) is
TEXT : string(1..80);
L : natural;
begin
TEXT_IO.put("What's on the command line? ");
TEXT_IO.get_line(TEXT,L);
TAIL(1..L) := TEXT(1..L);
LENGTH := L;
end Get_Command_Line;
]]>