 CONST
    fdc$system_coordinate_system = fdc$character_system;

*copyc fdt$coordinate_system
