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;