Yurttas/PL/IL/Ada-95/F/06/vacation/vacation 00.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-- vacation_00.adb
15
16
17with Ada.Text_IO;
18use Ada.Text_IO;
19
20with Vacation_P;
21use Vacation_P;
22
23procedure Vacation_00 is
24
25  Q : Integer := 0;
26
27  task type Travel;
28
29  type Destination is array(1..Number_Of_Places) of Travel;
30
31  Place : Destination;
32
33  task body Travel is
34  begin
35    Q := Q + 1;
36    Run(Q);
37  end Travel;
38
39begin
40
41  null;
42   
43end Vacation_00;