 TYPE
    fdt$screen_change_index = 1 .. fdc$maximum_screen_changes;

*copyc fdc$maximum_screen_changes
