
good=$(replygood$i)
replyGood$i=<span style="font-size:large">$good</span>
option=$(replyoption$i)
dd=$(reply$i)

m_reply_$i=<span style="font-size:large;">$dd</span>
reply_$i=<span style="font-size:Large">$dd</span>
!if $wims_read_parm=nocompare
 !exit
!endif
good=!replace internal  by &#230; in $good
good=!replace internal  by &#156 in $good
good=!replace internal  by &#240; in $good
dd=!replace internal  by &#230; in $dd
dd=!replace internal  by &#156 in $dd
dd=!replace internal  by &#240; in $dd

good=!replace internal . by in $good
dd=!replace internal . by in $dd

badchars=
repchars=!text repeat $ $ to 256

!if nopunct iswordof $option
badchars=.,;!:?
!endif

!if $badchars != $empty
 dd=!translate internal $badchars to $repchars in $dd
 good=!translate internal $badchars to $repchars in $good
!endif
!if nocase iswordof $option
 dd=!tolower $dd
 good=!tolower $good
!endif
!if deaccent iswordof $option or noaccent iswordof $option
 dd=!deaccent $dd
 good=!deaccent $good
!endif

 dd=!singlespace $dd
 good=!singlespace $good
 
!if nospace iswordof $option
 dd=!nospace $dd
 good=!nospace $good
!endif

good=!trim $good
dd=!trim $dd

!if $good=$empty
 Test=bad $i
 !exit
!endif

!if $dd=$good
 diareply$i=good
 !advance freegot
!else
 diareply$i=bad
!endif

