Solo Programadores 22/SOLO_22.iso/docs/lovelace/small.adb

Text File | 1995-11-21 | 894 b | 35 lines

  -- Main routine to start up "Small", a small text adventure game to
  -- demonstrate Ada 95.

  -- This version (C) 1995 Ada Resource Association, Columbus, Ohio.
  -- Permission is granted to use this program for any purpose,
  -- commercial or not, as long as credit is given to David A. Wheeler
  -- as the original developer.

  -- For documentation see the following URL:
  --   http://lglwww.epfl.ch/Ada/Tutorials/Lovelace/small.htm

with Text_IO, Ada.Strings.Unbounded, Ustrings, World;
use  Text_IO, Ada.Strings.Unbounded, Ustrings;

with Parser;

procedure Small is
  Command : Unbounded_String; -- Contains user's current command.
  Quit    : Boolean := False;
begin
 Put_Line("Welcome to a Small World!");

 World.Setup;

 while not Quit loop
  New_Line;
  Put_Line("Your Command?");
  Get_Line(Command);
  Parser.Execute(Command, Quit);
 end loop;

 Put_Line("Bye!");
end Small;