# current @FORMAT
}
$offsetbase = 0xF400;
+ when (96) {}
+ ref $_ and splice(@$_, -8, 2) for @{ $FORMAT[11] }; # no multifood
+ splice @FORMAT, 12, 2; # no reserved byte
when (95) {}
- splice @FORMAT, 6, 2;
- ref $_ and splice(@$_, -8, 2) for @{ $FORMAT[9] }; # no multifood
- splice @FORMAT, 10, 2; # no reserved byte
+ splice @FORMAT, 6, 2; # no description
when (94) {}
when (90) {
$FORMAT[5] = 'C/a'; # length-preceding name