n=$counter
checkfile=exos/checkfile1.proc
mathview=0
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
    hoekmeter=!item 3 of $dingen
    driehoek=!item 4 of $dingen
    showToolBar=true
    showMenuBar=false                                                                                             
    framePossible=true
    customToolBar=" 0 | 40 " 
    !if $subject=5
	var5=$hoekmeter
	!if $teaching=1
    	    ggb=ggb/loodrecht1.ggb    
	!else
	    ggb=ggb/loodrecht1.nogrid.ggb
	!endif
    !endif
    !if $subject=6
	var5=$driehoek
	!if $teaching=1
	    ggb=ggb/loodrecht2.ggb
	!else
	    ggb=ggb/loodrecht2.nogrid.ggb    
	!endif
    !endif
    ss=!record 63 of lang/remarks.$taal
    #@ Onderzoek met het meetinstrument ($var5) of de twee lijnen <b>loodrecht</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=$[-1/$rc1]
	textanswer$n=!record 64 of lang/remarks.$taal
	#@ Ja, de twee lijnen zijn parallel aan elkaar
	# lines are parallel so 4 points on two lines
    !else
	f=!randitem -1.1,-1.09,-1.08,-1.07
	rc2=$[$f/$rc1]
	textanswer$n=!record 65 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=$rc1
    var2=$rc2
    l1=!nospace ($rc1)*x+$q 
    l2=!nospace ($rc2)*x-$q
    appletcommand=document.applets[0].evalCommand("l1 = Function[$l1,-100,100]");\
    document.applets[0].evalCommand("l2 = Function[$l2,-100,100]");\
    document.applets[0].setColor('l1',255,0,0);\
    document.applets[0].setColor('l2',255,0,0);
    list_of_things=['line'];
    height=600
    width=800
!endif
