bewerking=bewerking1.proc
nivo_title=Reken Oppervlakte eenheden om (2D)

    !if $afrondingsfactor!=0
        af=$afrondingsfactor.0
        !for n=1 to $aantal_sommen
            !readproc nivo/data2
            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/data2
            GOED$n=$GOED
        !next n
    !endif


#GOED$n=$[(round($afrondingsfactor*($GOED)))/$afrondingsfactor]
#problemen met $[(round($afrondingsfactor*($GOED)))/$afrondingsfactor]  =-211332445 C-problemen?char->int->float
