*> acerto numero em alfanumerico
       num-x-9.
           perform numero-int thru numero-int3.
       numero-int.
           move spaces to numeronu.
           move 15 to seq-7
           move 15 to seq-77.
       numero-int1.
           if seq-77 = zeros go to numero-int2.
           if numeropos (seq-77) not numeric
               compute seq-77 = seq-77 - 1 
               go to numero-int1.
           move numeropos (seq-77) to numeronupos (seq-7)
           compute seq-7 = seq-7 - 1
           compute seq-77 = seq-77 - 1.
           go to numero-int1.
       numero-int2.
           if seq-7 = zeros go to numero-int3.
           if numeronupos (seq-7) not numeric
                   move zeros to numeronupos (seq-7)
                   compute seq-7 = seq-7 - 1
                   go to numero-int2.
       numero-int3.
           exit.