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 Annual Garden
16-- extending Abstract Garden type
17
18-- garden_p-annual_garden_p.adb
19
20
21with Text_IO; use Text_IO;
22
23package body Garden_P.Annual_Garden_P is
24
25 procedure Get_Border is
26 begin
27 Put_Line("Alyssum");
28 New_line;
29 end Get_Border;
30
31 procedure Get_Center is
32 begin
33 Put_Line("Marigold");
34 New_line;
35 end Get_Center;
36
37 procedure Get_Shade is
38 begin
39 Put_Line("Coleus");
40 New_line;
41 end Get_Shade;
42
43end Garden_P.Annual_Garden_P;