1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
!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> =
</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
|
