good=!translate internal ; to $\
$ in $(replygood$i)
menulist=!line 2 to -1 of $good
menulist=!translate internal $\
$ to ; in $menulist
good=!line 1 of $good
replyGood$i=!item $good of $menulist
menucnt=!itemcnt $menulist

!if $wims_read_parm=nocompare
 !exit
!endif

!if $(replyGood$i)=$empty
 Test=bad $i
 !exit
!endif

menupos=!positionof item $(reply$i) in $menulist
!if $menupos=$empty
 test=NaN
 !exit
!endif

menupos=!item 1 of $menupos
!if $menupos isitemof $good
 diareply$i=good
 !advance freegot
!else
 diareply$i=bad
!endif

