n=$counter
XSIZE=600
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
inputs=0
image=0
math=0
javascript=js/exo11.js
questiontype=7
checkfile=exos/checkfile2.proc
data=lang/data6.$taal
records=35
### !recordcnt $data
!for p=1 to $records
    keuze=!append item $p to $keuze
!next p
keuze=!shuffle $keuze
kans=!randitem 1,2,3,4,5,6
# :vermogen,1,watt ,W (of J/s)
# k1 zit in keuzemenu
# k2 zit in vraag
!if $kans=1
    k1=1
    k2=3 
    k3=4
    vraag1=!record 12 of lang/remarks.$taal
    #@De eenheid <b>" XXX "</b> hoort bij welke natuurkundige grootheid ?
    !goto KLAAR
!endif
!if $kans=2
    k1=1
    k2=4 
    k3=3
    vraag2=!record 13 of lang/remarks.$taal
    #@Welke natuurkundige grootheid is <b>" XXX "</b> een afkorting ? 
    !goto KLAAR
!endif
!if $kans=3
    k1=3
    k2=1 
    k3=4
    vraag3=!record 14 of lang/remarks.$taal
    #@De natuurkundige grootheid <b>" XXX "</b> heeft als eenheid ?
    !goto KLAAR
!endif
!if $kans=4
    k1=3
    k2=4 
    k3=1
    vraag4=!record 15 of lang/remarks.$taal
    #@De afkorting <b>" XXX "</b> hoort bij eenheid?
    !goto KLAAR
!endif
!if $kans=5
    k1=4
    k2=3 
    k3=1
    vraag5=!record 16 of lang/remarks.$taal
    #@De eenheid <b>" XXX "</b> wordt afgekort door ?
    !goto KLAAR
!endif
!if $kans=6
    k1=4
    k2=1 
    k3=3
    vraag6=!record 17 of lang/remarks.$taal
    #@Van de fysische grootheid <b>" XXX "</b> is de afkorting ?
!endif
:KLAAR

correct=!randint 1,$records
text=$empty
!for p=1 to $records
    k=!item $p of $keuze
    regel=!record $k of $data
    r1=!item $k1 of $regel
    value=!item 2 of $regel
    !if $p=$correct
	answer$n=$value
	description=$r1
	r2=!item $k2 of $regel
	r2=!htmlmath $r2
	r3=!item $k3 of $regel
    !endif
    text=!append line <option value="$value">$r1</option> to $text
!next p
rr=!record 18 of lang/remarks.$taal
#@Het goede antwoord is: bij <b>$r2</b> hoort <b>$description</b> [$r3]
textanswer$n=$rr
exotext=<p><div align="center"><form name="myform1"><select size="6" name="reply" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000;width:520px;text-align:left"> $text </select></form></div>
question$n=!replace internal XXX by $r2 in $(vraag$kans)
