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