 TYPE
    fdt$x_increment = 0 .. fdc$maximum_x_position - 1;

*copyc fdc$maximum_x_position
