Figure 45.
Lookup Driver.
<![CDATA[
------------------------------------------------------------
with SCROLL_TERMINAL; use SCROLL_TERMINAL;
with Lookup;
procedure Lookup_Driver is
FLIGHT_NUMBER, REEL : integer;
FLIGHT : string(1..5);
begin
put_line("Lookup Driver");
loop
new_line;
get("What flight? (0 to quit) ",FLIGHT);
FLIGHT_NUMBER := integer'VALUE(FLIGHT);
exit when FLIGHT_NUMBER = 0;
Lookup(FLIGHT_NUMBER, REEL);
put_line("Flight"
& integer'IMAGE(FLIGHT_NUMBER)
& " is on reel" & integer'IMAGE(REEL));
end loop;
put_line("Done.");
exception
when PANIC =>
put_line("Done.");
end Lookup_Driver;
]]>