bewerking=bewerking6.proc
percentage=0
!if $aantal_sommen < 3
    aantal_sommen=3
!endif    

keuze=!randitem 1,2
tabel=$empty
antwoord=$empty
dorpen=!record 67 of woorden.$taal
dorp=!randitem $dorpen
D=!randint 1,95
jaar=$[1900 + $D]
inwoners=!randint 10,100
inwoners=$[$inwoners*1000]

!if $taal=nl
    nivo_title=Bereken het percentage 
    !if $keuze=1
	migranten=immigranten<br><small>dus het percentage mensen<br> dat elk jaar "binnen" komt.</small>
	vertrekken=komen elk jaar jonge gezinnen wonen.
	operator=+
    !else
	migranten=emigranten<br><small>dus het percentage mensen<br> dat elk jaar vertrekt.</small>    
	vertrekken=trekken elk jaar jonge gezinnen weg.
	operator=-
    !endif                                                                           

    homosapiens=!randitem mensen,personen,inwoners
    tabel=In $dorp $vertrekken <br>\
    In $jaar waren er nog $inwoners $homosapiens in $dorp.<br>\
    Vul de tabel verder in:<br><small>rond elk antwoord af op "hele" mensen...</small><p>\
    <table cellpadding="15"><th>Jaar</th><th>percentage $migranten</th><th>totaal aantal inwoners<br>van $dorp</th><tr>
!else
    # taal=en
    !if $keuze=1
	migranten=immigrants<br><small>e.g. the percentage of people <br> that "move in" .</small>
	vertrekken=every year young families settle.
	operator=+
    !else
	migranten=emigrants<br><small>e.g. the percentage people <br> that "move out".</small>    
	vertrekken=every year families move out.
	operator=-
    !endif
    homosapiens=!randitem humans,people,residents,inhabitants
    tabel=In $dorp $vertrekken <br>\
    In $jaar there were $inwoners $homosapiens in $dorp.<br>\
    fill in the table :<br><small>round off to whole persons...</small><p>\
    <table cellpadding="15"><th>Year</th><th>percentage $migranten</th><th>total number of inhabitants<br>of $dorp <br></th><tr>
!endif

antwoord=$tabel
!if $wims_user=supervisor and $printbaar=0   
    !for n=1 to $aantal_sommen
	perc=!randint 2,35
	inwoners=$[round($inwoners $operator $perc*$inwoners/100)]
	GOED$n=$inwoners
	jaar=$[$jaar + 1]    
	tabel=!append line <td><center> $jaar </center></td><td><center>$perc %</center></td><td><input size=15 name=ANT$n value="$(GOED$n)" ></td><tr> to $tabel
	antwoord=!append line <td><center> $jaar </center></td><td><center>$perc %</center></td><td><input size=15 name=ANT$n value="$(GOED$n)" readonly></td><tr> to $antwoord
    !next n
!else
    !for n=1 to $aantal_sommen
	perc=!randint 2,35
	inwoners=$[round($inwoners $operator $perc*$inwoners/100)]
	GOED$n=$inwoners
	jaar=$[$jaar + 1]    
	tabel=!append line <td><center> $jaar </center></td><td><center>$perc %</center></td><td><input size=15 name=ANT$n></td><tr> to $tabel
	antwoord=!append line <td><center> $jaar </center></td><td><center>$perc %</center></td><td><input size=15 name=ANT$n value="$(GOED$n)" readonly></td><tr> to $antwoord    
    !next n
!endif

somtekst1=$tabel </table>
antwoord1=$antwoord </table>