Subversion Repositories wimsdev

!set anstype=yes
!set anstyle=numeric
!set ans_require=
!if $wims_read_parm=def
  !exit
!endif
!if debug iswordof $m_oefenv and ?analyze notin $(replygood$i)
  !set replydefaulted=yes
  !if $oef_default=yes
    !set r_=!rawmatrix $(replygood$i)
    !default reply$i=!rows2lines $r_
  !endif
!endif
!if $wims_read_parm!=noprompt
  <tr><td>
  <label for="reply$i">$(replyname$i)</label>&nbsp;=&nbsp;
  </td><td><table class="inline"><tr><td>$m_leftpar4
  </td><td>
!endif

!set inputsize=!translate x to , in $inputsize
!set inputsize=!items2words $inputsize
!distribute words $inputsize into sizer,sizec
!bound sizer between integer 1 and 15 default 5
!bound sizec between integer 1 and 100 default 25

<textarea id="reply$i" name="reply$i" rows="$sizer" cols="$sizec" class="nowrap">
 $(reply$i)</textarea>
!if $wims_read_parm!=noprompt
  </td><td>$m_rightpar4</td></tr></table></td></tr>
!endif