bewerking=bewerking4.proc
# default 2 decimalen 
!if $taal=nl        
	nivo_title=Reken de bedragen uit 
	ZZ=$[round($aantal_sommen/2)]
	!for n=1 to $aantal_sommen
	
	    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
	    rente=$[$rente/10]
	    spaarrekening=!randitem rekening&nbsp;courant,spaarrekening,bankrekening,giro	
	    GOED$n=$[(($rente*$bedrag)/100) + $bedrag]
	    GOED$n=$[(round(100*$(GOED$n)))/100]
	    somtekst$n=$NAAM zet <b>&euro; $bedrag </b>op $HAAR $spaarrekening .<br>\
	    $ZIJ krijgt op deze rekening een rente van<b> $rente %</b> per jaar .<br>\
	    Hoeveel &euro; staat er dan na &eacute;&eacute;n jaar op $HAAR rekening?<br>\
	    Rond af op hele &euro; centen.
	    antwoord$n=<font color=$fontcolor6>We moeten dus eerst de rente uitrekenen , dus hoeveel $rente % van $bedrag is<br>\
	    Rente = $rente &times; $bedrag &divide; 100 = $rente &times; $[$bedrag/100] = $[$rente*$bedrag/100] &euro; <br>\
	    Totaal staat er dus na 1 jaar op de rekening: $bedrag + $[$rente*$bedrag/100] &euro; = $(GOED$n) &euro;</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
	    korting=!randitem 2,3,4,5,6,7,8,9,10,11,12,13	
	    GOED$n=$[(round(100*($bedrag - ($bedrag*$korting/100))))/100]
	    GOED$n=$[(round(100*$(GOED$n)))/100]
	    somtekst$n=Een $car van &euro; $bedrag ,- is afgeprijst.<br>\
	    Je krijgt nu <b> $korting %</b> korting !<br>Hoeveel moet je betalen?<br>\
	    <small>rond af op hele eurocenten ...</small>
	    antwoord$n=<font color=$fontcolor6>We rekenen eerst even uit hoeveel &euro; korting we krijgen <br>\
	    $korting &times; $bedrag &divide; 100 = $korting &times; $[$bedrag/100] = $[$korting*$bedrag/100] &euro; korting.<br>\
	    De prijs voor de $car is dus $bedrag - $[$korting*$bedrag/100] &euro; = $(GOED$n) &euro;<br>\
	    <br>Het kan natuurlijk ook anders worden uitgerekend: <br>\
	    de korting is $korting % , dus de auto kost nu nog maar<br>\
	    100 - $korting % = $[100 - $korting] % van de originele prijs <br>\
	    Dus de auto kost  $[100 - $korting] &times; $bedrag &divide; 100 &euro; =$(GOED$n) &euro;</font>
	!next n
	percentage=0
    !exit
!else
#taal=en
	nivo_title=Calculate the amount of money 
	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
	    # snep ik niks van $taal doet even niet mee///
	    namen=!record $S of woorden.en
	    NAAM=!randitem $namen
	    bedrag=!randint 50,300
	    rente=!randint 11,99
	    rente=$[$rente/10]
	    spaarrekening=!randitem bank&nbsp;account,savings&nbsp;account,current&nbsp;account,giro&nbsp;account	
	    GOED$n=$[(($rente*$bedrag)/100) + $bedrag]
	    GOED$n=$[(round(100*$(GOED$n)))/100]
	    somtekst$n=$NAAM 's first deposit on  $HAAR $spaarrekening was <b>&euro; $bedrag </b> .<br>\
	    $ZIJ receives an interest of<b> $rente %</b> each Year .<br>\
	    After one Year, how much money does $ZIJ have on $HAAR $spaarrekening ?<br>\
	    Roundoff on a eurocent accurately.
	    antwoord$n=<font color=$fontcolor6>First we have to calculate the amount of interest, thus howmuch is $rente % of $bedrag &euro;<br>\
	    Interest = $rente &times; $bedrag &divide; 100 = $rente &times; $[$bedrag/100] = $[$rente*$bedrag/100] &euro; <br>\
	    The total amount of mony (savings + interest) after 1 year is: $bedrag + $[$rente*$bedrag/100] &euro; = $(GOED$n) &euro;</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
	    korting=!randitem 2,3,4,5,6,7,8,9,10,11,12,13	
	    GOED$n=$[(round(100*($bedrag - ($bedrag*$korting/100))))/100]
	    GOED$n=$[(round(100*$(GOED$n)))/100]
	    somtekst$n=A new $car costs  &euro; $bedrag ,-<br>\
	    A special offer gives you <b> $korting %</b> discount !<br>How many &euro; do you have to pay?<br>\
	    <small>round off on a eurocent accurate ...</small>
	    antwoord$n=<font color=$fontcolor6>First we calculate the discount in &euro; 's<br>\
	    $korting &times; $bedrag &divide; 100 = $korting &times; $[$bedrag/100] = $[$korting*$bedrag/100] &euro; price reduction.<br>\
	    The price of the $car is  $bedrag - $[$korting*$bedrag/100] &euro; = $(GOED$n) &euro;<br>\
	    <br>There is also another way of calculating this: <br>\
	    the discount is $korting % , thus this car costs<br>\
	    100 - $korting % = $[100 - $korting] % of the original price <br>\
	    You can buy the $car for  $[100 - $korting] &times; $bedrag &divide; 100 &euro; =$(GOED$n) &euro;</font>
	!next n
	percentage=0
     !exit
!endif