Yurttas/PL/IL/Ada-95/F/06/trains/trains 13.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-- trains_13.adb
15
16
17with Crossroads_P;
18use Crossroads_P;
19
20procedure Trains_13 is 
21
22  subtype TT is Train_Id range 1..7;
23  TA : array(TT) of Train;
24
25begin
26
27  for T in TT
28  loop
29    Approach_Points(T);
30  end loop;
31
32  for T in TT
33  loop
34    TA(T).Go(T);
35  end loop;
36
37  for T in TT
38  loop
39    Go_Away_From_Points(T);
40  end loop;
41
42end Trains_13;