*copyc MLT$ERROR
*copyc MLT$FLOATING_LENGTH
*copyc MLT$HANDLE_BLANKS
*copyc MLT$STRING_LENGTH
  ?? SKIP := 2 ??
  ?? PUSH (LIST := ON) ??
  { MLD$IFN - Declare mlp$input_floating_number }
  ?? POP ??

  PROCEDURE [XREF] mlp$input_floating_number (source: ^cell;
        source_length: mlt$string_length;
        target: ^cell;
        target_length: mlt$floating_length;
        handle_blanks: mlt$handle_blanks;
    VAR actual_source_length: mlt$string_length;
    VAR status: mlt$error);

  { FUNCTION: Convert an ASCII representation of a floating point
  {number (with an optional exponent field) into the internal
  {(binary) floating point representation.
  {
  { RESTRICTIONS: The exponent field must begin with "E", "D", "e",
  {or "d". Arithmetic overflow during exponent computation is ignored.
  {
  { The only valid values for the HANDLE_BLANKS parameter are
  {MLC$IGNORE_BLANKS and MLC$STOP_ON_BLANK.
  {
  { STATUS MLE$INVALID_BDP_DATA is returned whenever an illegal
  {character is detected in the source field. A terminating blank or
  {comma is NOT considered illegal.
  { STATUS MLE$OVERFLOW will be returned whenever the floating point
  {number is infinite or indefinite AND status is otherwise no error.
  { STATUS MLE$NO_DIGITS is returned if no digits were found in the
  {source.
