Figure 43.

Get_Command_Line stub 1.

----------------------------------------------------------- -- GCLS1.ada -- 9 June 1987 -- Do-While Jones -- 324 Traci Lane -- Ridgecrest, CA 93555 -- (619) 375-4607 -- Get_Command_Line, Stub 1 procedure Get_Command_Line(TAIL : out string; LENGTH : out natural) is begin TAIL(1..8) := "SHOW.ADA"; LENGTH := 8; end Get_Command_Line;