Figure 46.
Lookup Stub.
<![CDATA[
------------------------------------------------------------
with SCROLL_TERMINAL; use SCROLL_TERMINAL;
procedure Lookup(FLIGHT : integer;
REEL : out integer) is
REEL_NAME : string(1..6);
begin
put("What reel contains flight");
put(integer'IMAGE(FLIGHT));
get(" ? ", REEL_NAME);
REEL := integer'VALUE(REEL_NAME);
end Lookup;
]]>