!set n=$teller
bewerking=bewerking2.proc
!if $graad=0
    R=$teller
!else
    R=$graad
!endif  


!if $R=1
    !for p=1 to $aantal_vragen
	grondgetal=!randint 10,100
	exp1=!randitem 2,3,4,5,6,7,8,9,100
	exp2=!randint 2,9
	!if $negatief=1
	    pm=!randitem -1,-1,-1,1
	    mp=!randitem -1,1
	    exp1=$[$mp*$exp1]
	    exp2=$[$pm*$exp2]
	!endif
	
	GOED=$[$exp1+$exp2]
	som=!htmlmath $grondgetal^$exp1 times $grondgetal^$exp2
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$(ant$p)"></sup></sup></font></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$GOED"></sup></sup></font></td><tr> to $SOMMEN
        antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="" value="$GOED" readonly></sup></sup></font></td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next p
!endif
!if $R=2
    !for p=1 to $aantal_vragen
	grondgetal=!randint 100,200
	exp1=!randitem 2,3,4,5,6,7,8,9,10
	exp2=!randitem 2,3,4,5,6,7,8,9,10
    	exp3=!randitem 2,3,4,5,6,7,8,9,10
	!if $negatief=1
	    pm=!randitem -1,-1,-1,1
	    mp=!randitem -1,1
	    mm=!randitem -1,1
	    exp1=$[$mp*$exp1]
	    exp2=$[$pm*$exp2]
	    exp3=$[$mm*$exp3]	    
	!endif
	GOED=$[$exp1+$exp2 +$exp3] 
	nummer=!item $p of $telwoorden
        som=!htmlmath $grondgetal^$exp1 times $grondgetal^$exp2  times $grondgetal^$exp3 
        sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$(ant$p)"></sup></sup></font></td><tr> to $sommen
        SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$GOED"></sup></sup></font></td><tr> to $SOMMEN
        antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="" value="$GOED" readonly></sup></sup></font></td><tr> to $antwoorden
        GOED$n=!append item $GOED to $(GOED$n)
    !next p
!endif
!if $R>2
    !for p=1 to $aantal_vragen
	grondgetal=!randint 100,1000
	exp1=!randitem 2,3,4,5,6,7,8,9,10
	exp2=!randitem 2,3,4,5,6,7,8,9,10
    	exp3=!randitem 2,3,4,5,6,7,8,9,10
    	exp4=!randitem 2,3,4,5,6,7,8,9,10
	!if $negatief=1
	    pm=!randitem -1,-1,-1,1
	    mp=!randitem -1,1
	    mm=!randitem -1,1
	    pp=!randitem -1,1
	    exp1=$[$mp*$exp1]
	    exp2=$[$pm*$exp2]
	    exp3=$[$mm*$exp3]
	    exp4=$[$pp*$exp4]	    
	!endif
	GOED=$[$exp1+$exp2+$exp3+$exp4]
	nummer=!item $p of $telwoorden
        som=!htmlmath $grondgetal^$exp1 times $grondgetal^$exp2 times $grondgetal^$exp3 times $grondgetal^$exp4 
        sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$(ant$p)"></sup></sup></font></td><tr> to $sommen
        SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$GOED"></sup></sup></font></td><tr> to $SOMMEN
        antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="" value="$GOED" readonly></sup></sup></font></td><tr> to $antwoorden
	GOED$n=!append item $GOED to $(GOED$n)
    !next p
!endif
!if $taal=nl
    nivo_title=Vermenigvuldigen van machten
    hint=Zie de help-pagina's
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf de uitkomst als een macht</td><tr>$SOMMEN</table>
    !else	
        opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf de uitkomst als een macht</td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf de uitkomst als een macht</td><tr>$antwoorden</table>
!else
    nivo_title=Multiplication of powers
    hint=Look into the help-pages
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question<br>Write as a single power</td><tr>$SOMMEN</table>
    !else	
        opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question<br>Write as a single power</td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question<br>Write as a single power</td><tr>$antwoorden</table>
!endif
