
  TYPE
    tmt$system_flag_handler = ^procedure (flag_id: ost$system_flag);

*copyc OST$SYSTEM_FLAG
