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