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;