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_12.adb
15
16
17with Crossroads_P;
18use Crossroads_P;
19
20procedure Trains_12 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 TA(T).Go(T);
31 Go_Away_From_Points(T);
32 end loop;
33
34end Trains_12;