Yurttas/PL/IL/Ada-95/F/06/breakfast/breakfast 01.adb

 1--
 2-- Copyright(C) 1998
 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-- date   : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- breakfast_01.adb
15
16
17with Ada.Text_IO;
18use Ada.Text_IO;
19
20procedure Breakfast_01 is
21
22  procedure Read_the_Paper is
23  begin
24    Put_Line("   Reading_the_Paper");
25  end Read_the_Paper;
26
27  procedure Eat_the_Breakfast is
28  begin
29    Put_Line("   Eating_the_Breakfast");
30  end Eat_the_Breakfast;
31
32  task Read_Paper;
33
34  task body Read_Paper is
35  begin
36    Read_the_Paper;
37  end Read_Paper;
38
39begin
40
41  Put_Line("...Eat_the_Breakfast --");
42
43  Eat_the_Breakfast;
44
45  Put_Line("...Eat_the_Breakfast is over.");
46
47end Breakfast_01;