 TYPE
    fdt$number_screen_changes = 0 .. fdc$maximum_screen_changes;

*copyc fdc$maximum_screen_changes
