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_06.adb
15
16
17procedure Task_06 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 select
30 accept Service;
31 or delay 10.0;
32 end select;
33 end First;
34
35 task body Second is
36 begin
37 select
38 accept Service;
39 or delay 5.0;
40 end select;
41 end Second;
42
43begin
44
45 null;
46
47end Task_06;