!!useful ???
!set name_title=$wims_name_title
!set name_author=$wims_name_Author (<tt>$wims_name_firstname, $wims_name_lastname</tt>)
!set name_email=$wims_name_email
!set name_credits=$wims_name_credits
!form reply name="replyform" id="replyform"
<input type="hidden" name="level" value="3"/>
$table_header
<caption>$model_title
<br/>$desc
!set wims_ref_class=wims_button_help
!href target=wims_mhelp cmd=help&special_parm=model,1 $wims_name_help
</sup>
</caption>
!!$table_hdtr
!set ta=
!for i in $sps,$parms
!if $(type$i)!=matrix and $(name$i) notwordof $model_textarea
!set val=!replace internal " by " in $(val$i)
!if $i isitemof $sps
!set title$i=$(name_$(name$i))
!endif
!if $(type$i) iswordof integer int real and $i notitemof $sps and \
$(name$i) notwordof $model_random $model_computed
!set len=8
!else
!set len=40
!endif
$table_tr
<td>$(title$i)
!if $(help$i)!=$empty or $(name$i) iswordof $model_helped
!set wims_ref_class=wims_button_help
!href target=wims_mhelp cmd=help&module=$module&special_parm=model,$i $wims_name_help
!endif
</td>
<td>
!if $(menu$i)!=$empty
!set t_=!itemcnt $(menu$i)
!set t_=!makelist x for x=1 to $t_
!set reply$i=$val
!formselect reply$i list $t_ prompt $(menu$i)
!else
!set l_=!charcnt $val
!if $l_ > 50
!set val=!reinput $val
<textarea name="reply$i" cols="$len" rows="3">$val</textarea>
!else
<input size="$len" name="reply$i" value="$val"/>
!endif
!endif
</td>
</tr>
!else
!set ta=!append item $i to $ta
!endif
!next i
$table_end
!if $ta!=$empty
!for i in $ta
<a name="textarea$i"></a>
<div style="text-align:center; padding:10px;">$(title$i)
!set val=!reinput $(val$i)
<a class="wims_button" href="#textarea$i" onclick="document.forms['replyform'].reply$i.value=''">$name_clean</a>
!if $(help$i)!=$empty
!set wims_ref_class=wims_button_help
!href target=wims_mhelp cmd=help&module=$module&special_parm=model,$i $wims_name_help
!endif
<br/>
<textarea name="reply$i" cols="120" rows="10" class="wims_model_textarea"
!if $(type$i) iswordof matrix
wrap="off"
!endif
>$val
</textarea></div>
!endif
<center>
<input type="submit" value="$name_sendsource"/>
!set wims_ref_class=wims_button
!href cmd=reply&level=1 $wims_name_giveup
</center>
</form>