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
|
!set anstype=yes
!set anstyle=nogood
!if $wims_read_parm=def
!exit
!endif
!set inputsize=!translate x to , in $inputsize
!set inputsize=!items2words $inputsize
!distribute words $inputsize into sizer,sizec
!bound sizer between integer 4 and 30 default 15
!bound sizec between integer 20 and 130 default 70
!if $wims_read_parm!=noprompt
<tr><td><label for="reply$i">$(replyname$i)</label> :</td><td>
!endif
!set r_=!reinput $(reply$i)
!set r_=!replace internal &#36; by $ in $r_
<textarea id="reply$i" name="reply$i" rows="$sizer" cols="$sizec"
class="nowrap">$r_</textarea>
!if symbols isin $(replyoption$i)
!read anstype/symbols.inc
!endif
!if $wims_read_parm!=noprompt
</td></tr>
!endif
|