Subversion Repositories wimsdev

!for t in context,result
 !if $(ask$t)>1 and $($(t)list)!=$empty
  rep=!trim $(rep$t)
  !if $rep=$empty or $rep<1
   error=empty_data
   !exit
  !endif
  N=!itemcnt $(sh$t)
  rep=$[floor($rep)]
  !if NaN isin $rep or $rep<1 or $rep>$N
   error=bad_data
   !exit
  !endif
  !if $rep!=$(good$t)
   error=bad_reply
   !advance penalty
   !exit
  !endif
 !endif
!next t