Yurttas/PL/IL/Ada-95/F/04/03/00/garden p-perennial garden p.adb

 1--
 2-- Copyright (C) 2000
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this 
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this 
 8-- copyright notice appears in all copies. 
 9-- 
10-- 
11 
12-- date   : September 1, 2000.
13-- author : Salih Yurttas.
14
15-- purpose : Implementation of Perennial Garden 
16--           extending Abstract Garden type
17
18-- garden_p-perennial_garden_p.adb
19
20
21with Text_IO; use Text_IO;
22
23package body Garden_P.Perennial_Garden_P is
24
25  procedure Get_Border is
26  begin
27    Put_Line("Sedum");
28    New_Line;
29  end Get_Border;
30
31  procedure Get_Center is
32  begin
33    Put_Line("Dicentrum");
34    New_Line;
35  end Get_Center;
36
37  procedure Get_Shade is
38  begin
39    Put_Line("Astilbe");
40    New_Line;
41  end Get_Shade;
42
43end Garden_P.Perennial_Garden_P;