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

*copyc fdc$maximum_x_position
