n=$counter
mathview=0
checkfile=exos/checkfile5.proc
inputs=1
questiontype=4
math=0
cols=35
rows=1
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $R>0
    dingen=!record 62 of lang/remarks.$taal
    parallellogram=!item 1 of $dingen
    schuifmeter=!item 2 of $dingen
    showToolBar=true
    showMenuBar=false                                                                                             
    framePossible=false
    customToolBar=" 0 | 40 " 
    !if $subject=3
	var5=$parallellogram
	!if $teaching=1
    	    ggb=ggb/parallel1.ggb    
	!else
	    ggb=ggb/parallel1.nogrid.ggb
	!endif
    !endif
    !if $subject=4
	var5=$schuifmeter
	!if $teaching=1
	    ggb=ggb/parallel2.ggb
	!else
	    ggb=ggb/parallel2.nogrid.ggb    
	!endif
    !endif
    ss=!record 3 of lang/remarks.$taal
    #@ Onderzoek met het meetinstrument ($var5) of de twee lijnen <b>parallel</b> aan elkaar zijn.<br>Laat het meetinstrument in de goed positie staan
    question$n=$ss
    inputtext1=!record 4 of lang/remarks.$taal
    #@ Je antwoord mag gewoon "Ja" of "Nee" zijn...
    rc1=!randint 800,300
    pm=!randitem -1000,1000
    rc1=$[$rc1/($pm)]
    answer$n=!randitem 1,0,0
    !if $(answer$n)=1
	rc2=$rc1
	maxcheck=4
	textanswer$n=!record 5 of lang/remarks.$taal
	#@ Ja, de twee lijnen zijn parallel aan elkaar
	# lines are parallel so 4 points on two lines
    !else
	rc2=$[1.1*$rc1]
	maxcheck=3
	textanswer$n=!record 6 of lang/remarks.$taal
	#@ Nee, de twee lijnen zijn niet parallel aan elkaar
	# lines are not parallel so 3 points on two lines
    !endif
    q=!randitem 1,2,3
    var1=!nospace ($rc1)*x+$q 
    var2=!nospace ($rc2)*x-$q
    appletcommand=document.applets[0].evalCommand("l1 = Function[$var1,-100,100]");\
    document.applets[0].evalCommand("l2 = Function[$var2,-100,100]");\
    document.applets[0].setColor('l1',255,0,0);\
    document.applets[0].setColor('l2',255,0,0);
    list_of_things=['point'];
    height=600
    width=800
!endif
