1with Lto9_Pkg2;
2
3package Lto9_Pkg1 is
4
5   subtype Lengths is Natural range 0 .. 50;
6
7   type Subscriber (NLen, ALen: Lengths := 50) is record
8      Name    : String(1 .. NLen);
9      Address : String(1 .. ALen);
10   end record;
11
12   type Subscriber_Ptr is access all Subscriber;
13
14   package District_Subscription_Lists is new Lto9_Pkg2
15     (Element_Type => Subscriber,
16      Element_Ptr  => Subscriber_Ptr,
17      Size         => 100);
18
19   District_01_Subscribers : District_Subscription_Lists.List_Type;
20
21   New_Subscriber_01 : aliased Subscriber :=
22     (12, 23, "Brown, Silas", "King's Pyland, Dartmoor");
23
24end Lto9_Pkg1;
25