bewerking=bewerking4.proc
# default 2 decimalen 
!if $taal=nl        
	nivo_title=Bepaal het percentage
        ZZ=$[round($aantal_sommen/2)]
        !for n=1 to $ZZ
    	    Z=!randitem Zij:haar:43,Hij:zijn:42
	    Z=!replace internal : by , in $Z
	    ZIJ=!item 1 of $Z
    	    HAAR=!item 2 of $Z
	    S=!item 3 of $Z
	    namen=!record $S of woorden.$taal
	    NAAM=!randitem $namen
	    bedrag=!randint 50,300
	    rente=!randint 11,99
	    GOED$n=$[$rente/10]
	    spaarrekening=!randitem rekening&nbsp;courant&nbsp;(=lopende&nbsp;rekening),spaarrekening,bankrekening,giro	
	    eindbedrag=$[(round(100*($bedrag + ($(GOED$n)/100)*$bedrag)))/100]
	    somtekst$n=$NAAM zet <b>&euro; $bedrag </b>op $HAAR $spaarrekening .<br>\
	    Na een &eacute;&eacute;n jaar staat er &euro; $eindbedrag op $HAAR rekening<br>\
	    Hoeveel procent rente krijgt $ZIJ per jaar op deze rekening ?<br>\
	    Rond je antwoord af op &eacute;&eacute;n decimaal nauwkeurig.
	    antwoord$n=<font color=$fontcolor6>Heel eenvoudig: 100&times; ($eindbedrag -$bedrag) &divide; $bedrag % =100&times; $[($eindbedrag -$bedrag)/$bedrag] % = $(GOED$n) %</font>  
	!next n
	autos=!record 46 of woorden.$taal
	autos=!shuffle $autos
	!for n=$[$ZZ+1] to $aantal_sommen
    	    Hij=!randitem Hij,Ze
	    car=!item $n of $autos
	    bedrag=!randint 10000,30000
	    GOED$n=!randint 10,100
	    GOED$n=$[$(GOED$n)/10]	
	    nu=$[(round(100*($bedrag - ($bedrag*$(GOED$n)/100))))/100]
	    somtekst$n=Een $car van &euro; $bedrag ,- is afgeprijst.<br>\
	    $Hij kost nu nog maar &euro; $nu !<br>Hoeveel procent korting heb je gekregen?<br>\
	    Rond je antwoord af op &eacute;&eacute;n decimaal nauwkeurig.
	    antwoord$n=<font color=$fontcolor6>100&times; ($bedrag -$nu) &divide; $bedrag % = 100&times; $[($bedrag -$nu)/$bedrag] % = $(GOED$n) % </font> 
	!next n
	percentage=1
     !exit
!else
#taal=en
	nivo_title=Calculate the percentage
        ZZ=$[round($aantal_sommen/2)]
        !for n=1 to $ZZ
    	    Z=!randitem She:her:43,He:his:42
	    Z=!replace internal : by , in $Z
	    ZIJ=!item 1 of $Z
    	    HAAR=!item 2 of $Z
	    S=!item 3 of $Z
	    spaarrekening=!randitem bank&nbsp;account,savings&nbsp;account,current&nbsp;account,giro&nbsp;account
	    namen=!record $S of woorden.en
	    NAAM=!randitem $namen
	    bedrag=!randint 50,300
	    rente=!randint 11,99
	    GOED$n=$[$rente/10]
	    eindbedrag=$[(round(100*($bedrag + ($(GOED$n)/100)*$bedrag)))/100]
	    somtekst$n=$NAAM 's first deposit on  $HAAR $spaarrekening was <b>&euro; $bedrag </b>.<br>\
	    After one year $ZIJ has a total of  &euro; $eindbedrag on $HAAR account<br>\
	    What interest rate does $ZIJ get per year on this $spaarrekening ?<br>\
	    round off at 1 decimal accurately.
	    antwoord$n=<font color=$fontcolor6>Very simple: 100&times; ($eindbedrag -$bedrag) &divide; $bedrag % =100&times; $[($eindbedrag -$bedrag)/$bedrag] % = $(GOED$n) %</font>  
	!next n
	autos=!record 46 of woorden.$taal
	autos=!shuffle $autos
	!for n=$[$ZZ+1] to $aantal_sommen
	    car=!item $n of $autos
	    bedrag=!randint 10000,30000
	    GOED$n=!randint 10,100
	    GOED$n=$[$(GOED$n)/10]	
	    nu=$[(round(100*($bedrag - ($bedrag*$(GOED$n)/100))))/100]
	    somtekst$n=A $car (normal price &euro; $bedrag ,- ) is on special offer<br>\
	    Now it costs only  &euro; $nu !<br>What discount percentage did you get ?<br>\
	    round off at 1 decimal accurately.
	    antwoord$n=<font color=$fontcolor6>100&times; ($bedrag -$nu) &divide; $bedrag % = 100&times; $[($bedrag -$nu)/$bedrag] % = $(GOED$n) % </font> 
	!next n
	percentage=1
	!exit
!endif