 TYPE
    fdt$height = 1 .. fdc$maximum_y_position;

*copyc fdc$maximum_y_position
