Figure 21.
Usual_Dilemma.
<![CDATA[
----------------------------------------------------
-- A beginning Ada programmer sometimes finds
-- himself in this dilemma.
with SCROLL_TERMINAL; use SCROLL_TERMINAL;
procedure Usual_Dilemma is
NAME : string(1..30);
ADDRESS : string(1..40);
CITY_STATE_ZIP : string(1..40);
begin
get("What is your Name? ", NAME);
get("What is your Address? ",ADDRESS);
get("Where do you Live? ",CITY_STATE_ZIP);
SCROLL_TERMINAL.new_line(10);
SCROLL_TERMINAL.put_line
("NAME = " & NAME);
SCROLL_TERMINAL.put_line
("ADDRESS = " & ADDRESS);
SCROLL_TERMINAL.put_line
("CITY = " & CITY_STATE_ZIP);
exception
when NEEDS_HELP =>
null; -- nothing you can do now!
end Usual_Dilemma;
]]>