bewerking=bewerking1.proc
nivo_title=Recalculate volume units (3D)
    !if $afrondingsfactor!=0
        af=$afrondingsfactor.0
        !for n=1 to $aantal_sommen
            !readproc nivo/data3
            GOED$n=!exec pari (round($af*$GOED))/$af
            antwoord$n=!replace internal XXX by $(GOED$n) in $(antwoord$n)
        !next n
    !else
        !for n=1 to $aantal_sommen
            !readproc nivo/data3
            GOED$n=$GOED
        !next n
    !endif
#problemen met $[(round($afrondingsfactor*($GOED)))/$afrondingsfactor]  =-211332445 C-problemen?char->int->float
#GOED$n=$[(round($afrondingsfactor*($GOED)))/$afrondingsfactor]
