n=$counter
checkfile=$checkdir/multiplechoice.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
mathview=0 
!! this is a horrible way of putting the "ggb" archive
!! on a logical place (in the module_dir
!! and ZuL in the general appletdir
dir=gifs/19
pth=!replace internal / by , in $appletdir
pth=!item 1 to -1 of $pth
r=!itemcnt $pth
pp=$empty
!for p=1 to $r
    pp=!append word ../ to $pp
!next p
path=!nospace $pp $module_dir / $dir

!if $R>0
    applet=1
    image=0
    draw=0
    plot=0
    math=0
    questiontype=1
    index=lang/index.19.$taal
    options=!recordcnt $index
    answer$n=!randint 1,$options
    !for p=1 to $options
	q=!record $p of $index
	q=!replace internal @ by , in $q
	!if $p=$(answer$n)
	    plaatje=!item 1 of $q
	    textanswer=!item 2 of $q
	!endif
	ex$p=!item 2 of $q
    !next p
    XSIZE=420
    myfile=$path/$plaatje    
    question$n=!record 68 of lang/remarks.$taal
    #@ Welke constructie wordt hier getoond?
    helptext=$empty
    textanswer$n=!record 69 of lang/remarks.$taal
    #@ Het plaatje was dus de constructie van :
    textanswer$n=$(textanswer$n) <br>$textanswer
!endif
formula$n=$empty
xsize=640
ysize=480
object$n=<applet codebase="$appletdir" archive="zirkel.jar" code="rene.zirkel.ZirkelApplet.class" WIDTH="$xsize" HEIGHT="$ysize" ALIGN="CENTER"><param name="file" value="$myfile"><param name="color" value="255,255,255"><param name="displaydigits" value="2"><param name="angledigits" value="2"><param name="style" value="breaks">$nojava</applet>

