n=$counter
image=0
XSIZE=500
math=0
checkfile=exos/checkfile1.proc
cols=25
rows=1
# afblijven van rows=1
!if $level=0
    R=$counter
!else
    R=$level
!endif  
!if $options<2 or $options>10
    options=5 
!endif
inputs=$options
textanswer=$empty
answer=$empty
var1=!randitem a,k,q,u,x,c,n,z,s 
var2=!randitem b,g,m,r,v,y,d,p,t
var4=0
var5=$empty
var7=1
var6=0
# var1 = letter1                                                                                               
# var2 = letter2                                                                                               
# var3 = varcount  varcnt                                                                                      
# var4 = letterlijk                                                                                            
# var5 = controle 

!if $R=1
    question$n=!record 7 of lang/remarks.$taal
    wims_rawmath_variables=$var1
    var3=1
    getal=2,4,6,8,10
    getal=!shuffle $getal
    getallen=2,3,4,5,6
    getallen=!shuffle $getallen
    !for p=1 to $options
	k=!randitem 1,3,5,7,9
	keuze=!randitem 1,2
	getal1=!item $p of $getal
	getal2=$[$getal1+$k]
	pm=!randitem +,-
	!if $keuze=1
	    answer=$var1*($getal1*$var1 $pm $getal2)
	!else
	    getal3=!item $p of $getallen
	    getal4=!item $[$p+1] of $getallen
	    answer=$var1^$getal3*($getal1*$var1^$getal4 $pm $getal2)
	!endif
	vraag=!exec pari $answer
	inputtext$p=!htmlmath $vraag
	var5=!append item $vraag to $var5
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath  $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"  width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif
!if $R=2 
question$n=!record 7 of lang/remarks.$taal
    pm=!randitem +,-
    mp=!randitem +,-
    getallen=1,2,3,4,5,6,7,8,9,10
    getallen=!shuffle $getallen
    wims_rawmath_variables=$var1
    var3=1

    !for p=1 to $options
	getal1=!item $p of $getallen
	getal2=!item $[$p + 1] of $getallen
	answer=($var1 $pm $getal1)*($var1 $mp $getal2)
	vraag=!exec pari $answer
	inputtext$p=!htmlmath $vraag
	var5=!append item $vraag to $var5
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath  $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"  width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif
!if $R=3
    question$n=!record 22 of lang/remarks.$taal
    getallen=2,3,4,5,6,7,8
    getallen=!shuffle $getallen
    wims_rawmath_variables=$var1
    var3=1
    !for p=1  to $options
	pm=!randitem +,-
	mp=!randitem +,-
	getal1=!item $p of $getallen 
	getal2=!item $[$p + 1] of $getallen
	getal3=!randitem -1,-2,-3,2,3,4
	answer=$getal3*($var1 $pm $getal1)*($var1 $mp $getal2)
	vraag=!exec pari $answer
	var5=!append item $vraag to $var5
	inputtext$p=!htmlmath $vraag
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath  $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1" width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif
!if $R>3
    #bolleboosjes
    question$n=!record 7 of lang/remarks.$taal
    getallen=1,2,3,4,5,6
    getallen=!shuffle $getallen
    pm=!randitem +,-
    mp=!randitem +,-
    wims_rawmath_variables=$var1
    var3=1
    !for p=1 to $options
	keuze=!randitem 1,2
	!if $keuze=1
	    getal1=!item $p of $getallen
	    getal2=!randitem -1,-2,-3,-4,2,3,4
	    getal3=!randitem 1,2,3
	    answer=($getal2*$var1 $mp $getal1)*($var1 $pm $getal3)
	!else
	    getal1=!item $p of $getallen
	    getal2=!item $[$p+1] of $getallen
	    answer=$var1*($var1 $mp $getal1)*($var1 $pm $getal2)
	!endif
    	vraag=!exec pari  $answer 
	var5=!append item $vraag to $var5
	inputtext$p=!htmlmath $vraag 
	answer$n=!append item $answer to $(answer$n)
	htmlgoed=!htmlmath  $answer
	textanswer=!append line <td>$(inputtext$p) <font size="+1">=</font> $htmlgoed</td><tr> to $textanswer
    !next p
    textanswer$n=<table border="1"  width="100%" $paperbg cellpadding="10">$textanswer</table>
 !exit
!endif

