woordmax=10
n=$teller
bewerking=bewerking3.proc
wims_rawmath_variables=$letter
!if $taal=nl
    nivo_title=Reken uit en vul in....nu ook met letters !!	
    !if $HINT=1 and $teller>3
	hint=<center><table bgcolor=$fontcolor1><th>Een voorbeeldje<br>\
	stel x=4<br>\
	en de som luidt:<br>\
	5&sdot;x+ 3&sdot;x  -->  5&sdot;4 + 3&sdot;4 = 20 + 12 = 32
	\</th></table>
    !else
	hint=<center>\
	<table bgcolor=$fontcolor1><th>\
	Een klein voorbeeldje:<br>\
	1 appel + 3 appels = 4 appels<br>\
	Betekend <em>wiskundig</em><br>\
	1 &sdot; een appel + 3 &sdot; een appel = 4 &sdot; een appel<br>\
	Analoog geldt<br>\
	1 &sdot;x + 3 &sdot;x = 4 &sdot;x <br>\
	We hoeven dus niet te weten <em>wat</em> <b>x</b> \
	<em>nu precies voorstelt</em> om ermee te kunnen rekenen,<br>\
	net zo goed dat je bij het <em>appelsommetje</em> niet hoeft te \
	weten of het <em>jonagolds,goudreinetten of notarisappels</em> zijn...</th></table>
    !endif
!else
    nivo_title=Calculate and fill in the blancs !!	
    hint=no hints today.
!endif

letters=!shuffle y,x,z,s,t,u,v,w,r,p,k,h

!for n=1 to $aantal_sommen
    letter$n=!item $n of $letters

    !if $graad=0
	R=$n
    !else
	R=$graad
    !endif        
    getal0=!randint $teller,20
    !for p=1 to 6
	s=!randitem 2,3,4,5,6,6,7,8,9,10
	getal$p=$[$(getal$[$p-1]) + $s]
    !next p

    !if $R=1 or $R=2
	LETTER=!randint 2,22
	operator1=!randitem +,-
	!if $taal=nl
	    somtekst$n=Als &nbsp;<em><b>$(letter$n)&nbsp;=&nbsp;$LETTER</b> ,</em><br>\
	    wat moet je dan invullen?
	!else
	    somtekst$n=If &nbsp;<em><b>$(letter$n)&nbsp;=&nbsp;$LETTER</b> ,</em><br>\
	    what number must be filled in the blanc ?	
	!endif
	!if $R=1
    	    opgave$n=$getal2 &sdot;<em>$(letter$n)</em>  <font size="+2">$operator1</font> $getal1 &sdot;<em>$(letter$n)</em> = <input size="4" name="ANT$n" value=$(ANT$n)>
	    GOED$n=$[$getal2*$LETTER $operator1 $getal1*$LETTER]
    	    antwoord$n= $getal2 &sdot;<em>$(letter$n)</em> $operator1 $getal1 &sdot;<em>$(letter$n)</em> = <input size="4" name="ANT$n" value="$(GOED$n)" readonly> 
	!else
    	    GOED$n=$[($getal2-$getal1)*$LETTER]
	    !if $operator1=+
    		opgave$n=$getal1 &sdot;<em>$(letter$n)</em><font size="+2">&nbsp;+&nbsp;</font><input size="4" name="ANT$n" value=$(ANT$n)> = $getal2 &sdot;<em>$(letter$n)</em>
		antwoord$n= $getal1 &sdot;<em>$(letter$n)</em><font size="+2">&nbsp;+&nbsp;</font><input size="4" name="ANT$n"  value=$(GOED$n) readonly> = $getal2 &sdot;<em>$(letter$n)</em>
	    !else
    		opgave$n=$getal2 &sdot;<em>$(letter$n)</em><font size="+3">&nbsp;-&nbsp;</font><input size="4" name="ANT$n" value=$(ANT$n)> = $getal1 &sdot;<em>$(letter$n)</em>
		antwoord$n= $getal2 &sdot;<em>$(letter$n)</em><font size="+3">&nbsp;-&nbsp;</font><input size="4" name="ANT$n"  value=$(GOED$n) readonly> = $getal1 &sdot;<em>$(letter$n)</em>
	    !endif	
	!endif
	antwoord$n=$(somtekst$n) <p> $(antwoord$n)
    !endif

    !if $R>2
	operator1=!randitem +,-
	!if $taal=nl
    	    !if $operator1=+
		OPERATOR=optellen
	    !else
    		OPERATOR=aftrekken
	    !endif  
	    somtekst$n=$voornaam, het wordt nu echt lastig<br>\
	    <small>je moet de volgende "uitdukkingen met letters" $OPERATOR<br>\
	    en het antwoord in het invulveld typen.<br>Je moet de letter <b>$(letter$n)</b> laten staan</small>
	!else
    	    !if $operator1=+
		OPERATOR=add up
	    !else
    		OPERATOR=subtract
	    !endif  
	    somtekst$n=$voornaam, now it gets worse...<br>\
	    <small>$OPERATOR the next "expressions with letters"<br>\
	    and fill in the blanc.<br>your answer should have the <b>$(letter$n)</b> in it</small>
	
	!endif
	!if $R=3
    	    opgave$n=$getal2 &sdot;<em>$(letter$n)</em> <font size="+2">$operator1</font> $getal1 &sdot;<em>$(letter$n)</em> = <input size="4" name="ANT$n" value=$(ANT$n)>
    	    GOED$n=$[$getal2  $operator1 $getal1]*$(letter$n)
	    antwoord$n= $getal2 &sdot;<em>$(letter$n)</em> $operator1 $getal1 &sdot;<em>$(letter$n)</em> = <input size="4" name="ANT$n" value="$(GOED$n)" readonly> 
	!else
    	    GOED$n=$[$getal2 - $getal1]*$(letter$n)
	    !if $operator1=+
    		opgave$n=$getal1 &sdot;<em>$(letter$n)</em><font size="+2">&nbsp;+&nbsp;</font><input size="4" name="ANT$n" value=$(ANT$n)> = $getal2 &sdot;<em>$(letter$n)</em>
		antwoord$n= $getal1 &sdot;<em>$(letter$n)</em><font size="+2">&nbsp;+&nbsp;</font><input size="4" name="ANT$n"  value="$(GOED$n)" readonly> = $getal2 &sdot;<em>$(letter$n)</em>
	    !else
    		opgave$n=$getal2 &sdot;<em>$(letter$n)</em><font size="+3">&nbsp;-&nbsp;</font><input size="4" name="ANT$n" value=$(ANT$n)> = $getal1 &sdot;<em>$(letter$n)</em>
	        antwoord$n= $getal2 &sdot;<em>$(letter$n)</em><font size="+3">&nbsp;-&nbsp;</font><input size="4" name="ANT$n" value=$(GOED$n) readonly> = $getal1 &sdot;<em>$(letter$n)</em>
	    !endif	
	!endif
    !endif
!next n

teller=$aantal_sommen
!exit