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

*copyc fdc$maximum_x_position
