Yurttas/PL/IL/Ada-95/F/06/tasks/task 05.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-- task_05.adb
15
16
17procedure Task_05 is
18
19  task First is
20    entry Service;
21  end First;
22
23  task Second is
24    entry Service;
25  end Second;
26
27  task body First is
28  begin
29    Second.Service;
30    select
31      accept Service;
32      or terminate;
33    end select;
34  end First;
35
36  task body Second is
37  begin
38    First.Service;
39    select
40      accept Service;
41      or terminate;
42    end select;
43  end Second;
44
45begin
46
47  null;
48
49end Task_05;