*copyc MLT$EXPONENT_STYLE
*copyc MLT$FORMAT
*copyc MLT$JUSTIFY
*copyc MLT$STRING_LENGTH
*copyc MLT$SIGN_TREATMENT
  ?? SKIP := 2 ??
  ?? PUSH (LIST := ON) ??
  { MLTOF -- Declaration of mlt$output_format }
  ?? POP ??

  TYPE
    mlt$output_format = record
      justification: mlt$justify,
      sign: mlt$sign_treatment,
      format: mlt$format,
      scale_factor: integer,
      width: mlt$string_length,
      digits: mlt$string_length,
      exponent_character: char,
      exponent_style: mlt$exponent_style,
    recend;
