 TYPE
    fdt$io_mode = (fdc$program_input_output {no io to terminal} ,
      fdc$terminal_input, fdc$terminal_input_output, fdc$terminal_output);
