Array

[DrD]

There were a few errors in the code you've shown but this should work:

Code:


EXPORT Test()
BEGIN
  Local i;
  Local T45BL:= [5128122, 280602, 277693, 173237, 55413,
                46271, 32573, 17198, 9266, 8822,
                8216, 4324, 4200, -3359, 2463,
                2211, 2065, -1870, 1828, -1794,
                -1749, -1565, -1491, -1475, -1410,
                -1344, -1335, 1107, 1021, 833,
                777, 671, 607, 596, 491,
                -451, 439, 422, 421, -366,
                -351, 331, 315, 302, -283,
                -229, 223, 223, -220, -220,
                -185, 181, -177, 176, 166,
                -164, 132, -119, 115, 107];

  for i from 1 to 60 do
    print(T45BL(i));
  end; // ends for 

END;