 CONST
    fdc$system_input_format = fdc$character_input_format;

*copyc fdt$input_format
