!if $wims_read_parm=$empty
!endif
!if $wims_read_parm=help
!read help/$lang/special/codeinput.phtml
!endif
!set parm=!replace internal , r by $ r in $wims_read_parm
!set parm=!replace internal $ $ by $\
$ in $parm
!set code=!item 1 of $parm
!set code=!declosing $code
!set inputsize=!item 2 to -1 of $parm
!set parm=!line 2 to -1 of $inputsize
!set inputsize=!line 1 of $inputsize
!if noanswer iswordof $inputsize
!set noanswer=1
!set inputsize=!replace internal noanswer by $ in $inputsize
!endif
!if div iswordof $inputsize
!set pre=div
!set inputsize=!replace internal div by $ in $inputsize
!else
!set pre=pre
!endif
!set inputsize=!nonempty items $inputsize
!set inputsize=!item 1 of $inputsize
!default inputsize=1x5
!set parmcnt=!linecnt $parm
!set parm
=!sort reverse line
$parm
!set pretext=!replace internal for="reply by for="label in $code
!set pretext=!replace internal reply by REPLY in $pretext
!for tt = 1 to $parmcnt
!set ld=!line $tt of $parm
!set upcase=!uppercase $(ld[1])
!if $(upcase) isin $pretext
!set reply_tmp=!nospace $(ld[1])
!set i_tmp=!text select 0123456789 in $reply_tmp
!if debug iswordof $m_oefenv and ?analyze notin $(replygood$i_tmp)
!read oef/special/debug.input $i_tmp
!endif
!set rep_tmp=!replace internal reply by r in $reply_tmp
!set embedded=!append item $rep_tmp to $embedded
!distribute item $ld into m_,inputsize_tmp,css
!default inputsize_tmp=$inputsize
!set inputsize_tmp=!translate x to , in $inputsize_tmp
!if $(inputsize_tmp[2])=$empty and $(inputsize_tmp[1])!=$empty
!set inputsize_tmp=1,$inputsize_tmp
!endif
!set inputsize_tmp=!nospace $inputsize_tmp
!set inputsize_tmp=!items2words $inputsize_tmp
!set nbdim=!wordcnt $inputsize_tmp
!if $nbdim==2
!distribute words $inputsize_tmp into sizer,sizec
!if $sizer==1
!set nbdim=1
!set inputsize_tmp=$sizec
!endif
!endif
!if $printing=yes
!set pretext=!replace internal $upcase by $prompt_empty in $pretext
!else
!reset style_tmp option_tmp
!if $(css)!=$empty
!if $(css)=default
!set class_tmp=class="wims_oef_input"
!endif
!set style_tmp=style="$(css)"
!endif
!if $nbdim==2
!set pretext=!replace internal $upcase by <textarea $class_tmp $style_tmp rows="$sizer" cols="$sizec" name="$reply_tmp">$($reply_tmp)</textarea> in $pretext
!else
!if $(replytype$i_tmp) iswordof menu
!set pretext_=!row 2 of $(replygood$i_tmp)
!if sort iswordof $
(replyoption
$i_tmp)
!set pretext_
=!sort items
$pretext_
!else
!endif
!set pretextcnt=!itemcnt $pretext_
!set pretext_tmp=<option value="">$ch_choose</option>
!for tmp=1 to $pretextcnt
!set pretext_tmp=!append word <option value="$(pretext_[$tmp])">$(pretext_[$tmp])</option>\
to $pretext_tmp
!set pretext=!replace internal $upcase by \
<select id="$reply_tmp" name="$reply_tmp">$pretext_tmp</select> in $pretext
!else
!set pretext=!replace internal $upcase by <input $class_tmp $style_tmp id="$reply_tmp" size="$inputsize_tmp" name="$reply_tmp" value="$($reply_tmp)"> in $pretext
!endif
!endif
!endif
!endif
!set pretext=!replace internal for="label by for="reply in $pretext
!if $q_form=yes or $printing=yes
<$pre class="oef_codeinput">
$pretext
</$pre>
!else
!set pretext=$code
!set pretext=!replace internal </label> by in $pretext
!read themes/$wims_theme/oefcolors
!if $oef_indbad=$empty
!read themes/oefcolors
!endif
!for tt = 1 to $parmcnt
!set ld=!line $tt of $parm
!distribute item $ld into m_,inputsize_tmp,css
!default inputsize_tmp=$inputsize
!if $(ld[1]) isin $pretext
!set pretext=!replace internal <label for="reply$tt"> by in $pretext
!set m_=!text select 0123456789 in $(ld[1])
!default reply_$m_=$(reply$m_)
!set tt=!word 1 of $(replygood$m_)
!if $tt!=?analyze
!set cl=!nospace oef_ind$(diareply$m_)
!if $(precreply$m_)=yes and $(diareply$m_)=bad
!set cl=!nospace oef_indprec
!endif
!if $(partialgood$m_)=yes
!set cl=!nospace oef_indpartial
!endif
!else
!set cl=oef_empty
!endif
!set pretext=!replace internal $(ld[1]) by <div class="inline $cl">$(reply_$m_)</div><sup>[$m_]</sup> in $pretext
!set replyname$m_=[$m_]
!endif
<$pre>
$pretext
</$pre>
!endif