Yurttas/PL/IL/Ada-95/OO/GEO/magic moments.adb

 1with Ada.Text_IO;
 2with Ada.Float_Text_IO;
 3use Ada;
 4
 5with Build_List;
 6with Tabulate_Properties;
 7with Geometry.Lists;
 8use Geometry;
 9
10procedure Magic_Moments is
11
12  The_List: Lists.Cell_Ptr := null;
13
14begin
15
16  Text_IO.Put("Welcome to Magic Moments");
17  Text_IO.New_Line(2);
18
19  Text_IO.Put("Enter C, T or S followed by " &
20              "coords and dimensions");
21  Text_IO.New_Line;
22
23  Text_IO.Put("Terminate list with any other letter");
24  Text_IO.New_Line(2);
25
26  Build_List(The_List);
27
28  Tabulate_Properties(The_List);
29
30  Text_IO.New_Line(2);
31  Text_IO.Put("Finished");
32  Text_IO.New_Line;
33
34end Magic_Moments;