000100 DATA-ALIGNMENT.
000200 EDIT-RTN.
000300     MOVE "B" TO GOOD-BAD.
           MOVE 0 TO TCOUNT.
000400     INSPECT ENTERED-NUMBER TALLYING TCOUNT FOR ALL "-".
000500     IF TCOUNT > SIGN-INDICATOR
000600         GO TO EDIT-RTN-EXIT.
000700     INSPECT ENTERED-NUMBER REPLACING LEADING " " BY "0".
000800     MOVE 0 TO PLACES-BEFORE-FIRST-SPACE PLACES-BEFORE-FIRST-DASH.
000900     INSPECT ENTERED-NUMBER TALLYING PLACES-BEFORE-FIRST-SPACE FOR
001000                                    CHARACTERS BEFORE INITIAL " ".
           INSPECT ENTERED-NUMBER TALLYING
001100       PLACES-BEFORE-FIRST-DASH FOR CHARACTERS BEFORE INITIAL "-".
001200     ADD 1 TO PLACES-BEFORE-FIRST-DASH.
001300     IF PLACES-BEFORE-FIRST-DASH = PLACES-BEFORE-FIRST-SPACE
001400         MOVE 1 TO VALUE-INDICATOR
001500         INSPECT ENTERED-NUMBER REPLACING ALL "-" BY " ".
001600     IF VALUE-INDICATOR = 1 AND SIGN-INDICATOR = 0
001700         GO TO EDIT-RTN-EXIT.
001800     MOVE 0 TO PLACES-AFTER-DECIMAL NUMBER-OF-SPACES
001900                SPACES-AFTER-FIRST-SPACE PLACES-AFTER-FIRST-SPACE.
002000     INSPECT ENTERED-NUMBER TALLYING PLACES-AFTER-DECIMAL FOR
002100                                     CHARACTERS AFTER INITIAL ".".
           INSPECT ENTERED-NUMBER TALLYING
002200                   NUMBER-OF-SPACES FOR ALL " " AFTER INITIAL ".".
           INSPECT ENTERED-NUMBER TALLYING
002300           SPACES-AFTER-FIRST-SPACE FOR ALL " " AFTER INITIAL " ".
           INSPECT ENTERED-NUMBER TALLYING
002400        PLACES-AFTER-FIRST-SPACE FOR CHARACTERS AFTER INITIAL " ".
002500     SUBTRACT NUMBER-OF-SPACES FROM PLACES-AFTER-DECIMAL GIVING
002600                                                 DECIMAL-PLACES.
002700     IF DECIMAL-PLACES > MAXIMUM-DECIMALS
002800         GO TO EDIT-RTN-EXIT.
002900     IF SPACES-AFTER-FIRST-SPACE NOT = PLACES-AFTER-FIRST-SPACE
003000         GO TO EDIT-RTN-EXIT.
           MOVE 0 TO TCOUNT.
003100     INSPECT ENTERED-NUMBER TALLYING TCOUNT FOR ALL ".".
003200     IF TCOUNT > 1
003300         GO TO EDIT-RTN-EXIT.
003400     IF MAXIMUM-DECIMALS = 0 AND TCOUNT NOT = 0
003500         GO TO EDIT-RTN-EXIT.
003600     MOVE 0 TO NUMBER-WITHOUT-SIGN.
003700     UNSTRING ENTERED-NUMBER DELIMITED BY " " OR "." INTO
003800         UNITS DECIMALS.
003900     INSPECT NEARLY-GOOD REPLACING ALL " " BY "0".
004000     IF NEARLY-GOOD NOT NUMERIC
004100         GO TO EDIT-RTN-EXIT.
004200     IF VALUE-INDICATOR = 1
004300         MULTIPLY -1 BY NUMBER-WITHOUT-SIGN GIVING GOOD-NUMBER
004400     ELSE
004500         MULTIPLY 1 BY NUMBER-WITHOUT-SIGN GIVING GOOD-NUMBER.
004600     MOVE "G" TO GOOD-BAD.
004700 EDIT-RTN-EXIT.
004800 DATA-EXIT.
004900     EXIT.