 TYPE
    fdt$y_increment = 0 .. fdc$maximum_y_position - 1;

*copyc fdc$maximum_y_position
