25 lines
623 B
Ada
25 lines
623 B
Ada
with Lto9_Pkg2;
|
|
|
|
package Lto9_Pkg1 is
|
|
|
|
subtype Lengths is Natural range 0 .. 50;
|
|
|
|
type Subscriber (NLen, ALen: Lengths := 50) is record
|
|
Name : String(1 .. NLen);
|
|
Address : String(1 .. ALen);
|
|
end record;
|
|
|
|
type Subscriber_Ptr is access all Subscriber;
|
|
|
|
package District_Subscription_Lists is new Lto9_Pkg2
|
|
(Element_Type => Subscriber,
|
|
Element_Ptr => Subscriber_Ptr,
|
|
Size => 100);
|
|
|
|
District_01_Subscribers : District_Subscription_Lists.List_Type;
|
|
|
|
New_Subscriber_01 : aliased Subscriber :=
|
|
(12, 23, "Brown, Silas", "King's Pyland, Dartmoor");
|
|
|
|
end Lto9_Pkg1;
|