 TYPE
    fdt$x_position = 1 .. fdc$maximum_x_position;

*copyc fdc$maximum_x_position
