bewerking=bewerking1.proc
!if $taal=nl
    nivo_title=Optellen en aftrekken met variabelen
!else
    nivo_title=Addition and subtraction with variables
!endif
sommen=$empty
R=$graad
    !for n=1 to $aantal_sommen
	!if $graad =0
	    R=$n
	!endif    
	!if $R = 1
	    !if $negatief=1
		pm=!randitem +,-		
		P=!randitem -1,1
		Q=!randitem -1,1
		A=!randint 2,30
		B=!randint 2,30
		A=$[$P*$A]
		B=$[$Q*$B]
	    !else
		pm=+
		A=!randint 2,30
		B=!randint 2,30
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    vergelijking=($A)*$(a$n) $pm ($B)*$(a$n)
	    som$n=$A\cdot $(a$n) $pm $B\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n) $pm $B*$(a$n)
	!endif
	!if $R = 2  
	    !if $negatief=1
		pm=!randitem +,-		
		mp=!randitem +,-		
		P=!randitem -1,1
		Q=!randitem -1,1
		S=!randitem -1,1
		A=!randint 2,30
		B=!randint 2,30
		C=!randint 2,20
		A=$[$P*$A]
		B=$[$Q*$B]
		C=$[$S*$C]
	    !else
		pm=+
		mp=-
		A=!randint 2,30
		B=!randint 2,30
		C=!randint 2,20
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    
	    vergelijking=($A)*$(a$n) $pm ($B)*$(a$n) $mp ($C)*$(a$n)
	    som$n=$A\cdot $(a$n) $pm $B\cdot $(a$n) $mp $C\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n) $pm $B*$(a$n) $mp $C*$(a$n)
	!endif
	!if $R = 3 
	    !if $negatief=1
		pm=!randitem +,-		
		mp=!randitem +,-		
		mmp=!randitem +,-		
		P=!randitem -1,1
		Q=!randitem -1,1
		V=!randitem -1,1
		A=!randint 2,30
		B=!randint 2,30
		C=!randint 2,20
		D=!randint 2,20
		A=$[$P*$A]
		B=$[$Q*$B]
		C=$[$V*$C]
	    !else
		pm=+
		mp=!randitem +,-
		!if $mp=+
		    mmp=-
		!else
		    mmp=+
		!endif
		A=!randint 5,30
		B=!randint 5,30
		C=!randint 2,20
		D=!randint 2,20
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    
	    vergelijking=($A)*$(a$n) $pm ($B)*$(a$n) $mp ($C)*$(a$n) $mmp ($D)*$(a$n)
	    som$n=$A\cdot $(a$n) $pm $B\cdot $(a$n) $mp $C\cdot $(a$n) $mmp $D\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n) $pm $B*$(a$n) $mp $C*$(a$n)
	!endif
	!if $R >3 
	    !if $negatief=1
		pm=!randitem +,-		
		mp=!randitem +,-		
		mmp=!randitem +,-		
		P=!randitem -1,1
		Q=!randitem -1,1
		V=!randitem -1,1
		A=!randint 2,300
		B=!randint 2,300
		C=!randint 2,200
		D=!randint 2,200
		A=$[$P*$A]
		B=$[$Q*$B]
		C=$[$V*$C]
	    !else
		pm=+
		mp=!randitem +,-
		!if $mp=+
		    mmp=-
		!else
		    mmp=+
		!endif
		A=!randint 5,300
		B=!randint 5,300
		C=!randint 2,20
		D=!randint 2,20
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    
	    vergelijking=($A)*$(a$n) $pm ($B)*$(a$n) $mp ($C)*$(a$n) $mmp ($D)*$(a$n)
	    som$n=$A\cdot $(a$n) $pm $B\cdot $(a$n) $mp $C\cdot $(a$n) $mmp $D\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n) $pm $B*$(a$n) $mp $C*$(a$n)
	
	!endif
	sommen=!append line S=$vergelijking to $sommen
	sommen=!append line printtex(S) to $sommen
    !next n        

oplossingen=!exec pari $sommen
r=1
!for n=1 to $aantal_sommen
    GOED$n=!line $r of $oplossingen
    goed$n=!line $[$r+1] of $oplossingen
    r=$[$r+2]
!next n