 TYPE
    fdt$screen_changes = array [1 .. * ] of fdt$screen_change;

*copyc fdt$screen_change
