Yurttas/PL/IL/Ada-95/F/06/breakfast/breakfast 01.adb
Jump to navigation
Jump to search
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;