?? NEWTITLE := 'nft$parameter_rules' ??

{ nft$parameter_rules }

  TYPE
    nft$parameter_rule_block = record
      case valid_for_protocol: boolean of
      = FALSE =
        ,
      = TRUE =
        minimum_parameter_length: nft$parameter_size,
        maximum_parameter_length: nft$parameter_size,
        required_on_command: nft$command_set,
        prohibited_on_command: nft$command_set,
        ignorable_on_command: nft$command_set,
        discard_on_command: nft$command_set,
        allow_multiple_on_command: boolean,
      casend,
    recend;




  TYPE
    nft$parameter_rules = array [nft$parameter_00_values] of
          nft$parameter_rule_block;

*copyc nft$parameter_size
*copyc nft$command_set
*copyc nft$parameter_00_values

?? OLDTITLE ??
