bewerking=bewerking1.proc
    nivo_title=Recalculate length units
    !if $afrondingsfactor!=0
	af=$afrondingsfactor.0
	!for n=1 to $aantal_sommen
	    !readproc nivo/data1    
	    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/data1    
	    GOED$n=$[$GOED]
	!next n
    !endif
#problemen met $[(round($afrondingsfactor*($GOED)))/$afrondingsfactor]	=-211332445 C-problemen?char->int->float    
    