n=$counter
XSIZE=600
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
math=0
checkfile=exos/checkfile1.proc
javascript=js/exo1.js
!if $options<3
    options=4
!endif
!if $level=0
    R=$counter
!else
    R=$level
!endif
data=exos/data$subject
!if $subject=1
    # data1: 1-26 makkelijk...26-38 moeilijk
    !if $R=1
	min=1
	max=26
    !else
	min=1
	max=38
    !endif
 !goto KLAAR
!endif
!if $subject=2
    # data2: 1-12 makkelijk...13-20 moeilijk... 21-26 lastiger
    !if $R=1
	min=1
	max=12
    !else
	!if $R=2
	    min=1
	    max=20
	!else
	    min=13
	    max=26
	!endif
    !endif
 !goto KLAAR
!endif
!if $subject=3
    # data3: 1-24 makkelijk...25-40 lastiger 
    !if $R=1
	min=1
	max=24
    !else
	!if $R=2
	    min=1
	    max=40
	!else
	    min=25
	    max=40
	!endif
    !endif
 !goto KLAAR
!endif
!if $subject=4
    # data4: 1-54 makkelijk...55-72 moeilijk... 72-102 lastiger
    !if $R=1
	min=1
	max=54
    !else
	!if $R=2
	    min=1
	    max=72
	!else
	    min=73
	    max=102
	!endif
    !endif
 !goto KLAAR
!endif
:KLAAR
keuze=$empty
!for p=$min to $max
    keuze=!append item $p to $keuze
!next p
keuze=!shuffle $keuze

!if $taal=nl
    meter=meter
    vierkante=vierkante
    liter=liter
    kubieke=kubieke
!else
    meter=metre
    vierkante=square
    liter=litre
    kubieke=cubic
!endif
ss=!record $subject of lang/remarks.$taal
thetable=!record 38 of lang/remarks.$taal
#@Reken de volgende lengtes om:
!if exam notin $session
    question$n=<a onmouseover="this.T_OPACITY=85;this.T_PADDING=10;this.T_WIDTH=150;this.T_BORDERCOLOR='red';this.T_BORDERWIDTH=1;return escape('$thetable')"> $ss </a>
!else
    question$n=$ss
!endif
exotext=$empty
!for p=1 to $options
    kans=!randitem 1,2,3
    vn=!item $p of $keuze
    vraag=!record $vn of $data
    # : km,mm,0.000001,10^-6
    # : $vierkante deci$meters , $vierkante $meter , 100 , 10^2 
    eenheid1=!item 1 of $vraag
    eenheid2=!item 2 of $vraag
    f1=!item 3 of $vraag
    f2=!item 4 of $vraag
    ff=!htmlmath $f2
    a=!randitem 1,1,2,3,4,5,6,7,8,9
    b=!randitem 0,1,2,3,4,5,6,7,8,9
    c=!randitem 0,1,2,3,4,5,6,7,8,9
    d=!randitem 1,2,3,4,5,6,7,8,9
    !if $kans=1
	getal1=$a$b$c.$d
    !else
	!if $kans=2
	    getal1=$a$b.$c$d
	!else
	    getal1=$a.$b$c$d
	!endif
    !endif
    getal3=$[($getal1)*$f1]
    getal2=$[($getal1)*$f2]
    getal2=!replace internal e-0 by *10^- in $getal2
    getal2=!replace internal e+0 by *10^ in $getal2
    getal2=!replace internal e- by *10^- in $getal2
    getal2=!replace internal e+ by *10^ in $getal2	
    answer$n=!append item $getal2 to $(answer$n) 
    ans=!htmlmath $getal2
    !if $wims_user=supervisor
	input=<input size="10" name="$p" style="text-align:right;font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="$getal2">
    !else
	input=<input size="10" name="$p" style="text-align:right;font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="">
    !endif
    text=!record 10 of lang/remarks.$taal
    atext=!record 11 of lang/remarks.$taal
    exotext=!append line <td> $text </td><tr> to $exotext
    answertext=!append line <td> $atext </td><tr> to $answertext
!next p
textanswer$n=<table $paperbg border="1" cellpadding="4"><th><table cellpadding="4"> $answertext </table></th></table>
inputtabel=<table $paperbg border="1">$inputtabel</table>
exotext=<center><form name="myform1" action=""><table border="1" cellpadding="5" $paperbg><th><table cellpadding="4"> $exotext </table></th></table></form></center>
 
!exit


