Subversion Repositories wimsdev

!if $condtest=-1

  scoretest=0

  !goto score

!endif

casecnt=!linecnt $allcases

!if $cutstop!=yes and $casecnt>2

  oldcaseid=$caseid

  caseline=!line 1 of $allcases

  cases=!line 2 to -1 of $allcases

  caseline=!translate internal $	$ to $\

$ in $caseline

  activecase=!line 1 of $caseline

  caseids=!line 2 to -1 of $caseline

  cases2=

  caseids2=

  !if $activecase>1

    cases2=!line 1 to $[$activecase-1] of $cases

    caseids2=!line 1 to $[$activecase-1] of $caseids

  !endif

  !if $activecase<$casecnt-1

    cases3=!line $activecase+1 to -1 of $cases

    caseids3=!line $activecase+1 to -1 of $caseids

    cases2=!append line $cases3 to $cases2

    caseids2=!append line $caseids3 to $caseids2

  !else

    activecase=$[$activecase-1]

  !endif

  caseid=!line $activecase of $caseids2

  caseline=!translate internal $\

$ to $	$ in $activecase\

$caseids2

 allcases=$caseline\

$cases2

  !reset newobject,m_newobject,newObject

  !read deduc/objects.get

  !read deduc/methreset erase

  # statusline=!replace item number $currstep by () in $statusline

  # statusLine=!replace item number $currstep by () in $statusLine

  object$[$currstep-1]=$allcases

  casefinished=$oldcaseid

  !exit

!endif

:score

!if $earlyscore=$empty

  module_score=$scoretest

  wims_module_log=score $module_score/10

!endif

score=$scoretest

status=