Figure 38.
Get_Command_Line body for Gould Aplex Ada.
<![CDATA[
------------------------------------------------------------
-- GCLBG.ada
-- 9 June 1987
-- Do-While Jones
-- Command line interface for Gould APLEX Ada running
-- under MPX-32.
-- This procedure is NOT PORTABLE because it uses
-- a utility package supplied by Gould with their
-- APLEX Ada compiler.
with HOST_LCD_IF;
-- HOST Lowest Common Denominator InterFace.
procedure Get_Command_Line(TAIL : out string;
LENGTH : out natural) is
TEXT : string(1..80);
N : natural;
begin
HOST_LCD_IF.Get_Param_String(TEXT,N);
LENGTH := N-1;
S(1..N-1) := TEXT(1..N-1);
end Get_Command_Line;
]]>