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

!reset menupos
!for ri_ in $(reply$i)
 mp_=!positionof item $ri_ in $menulist
 menupos=!append item $mp_ to $menupos
!next ri_
!if $menupos=$empty
 test=NaN
 !exit
!endif

poscnt1=!itemcnt $menupos
menupos=!listintersect $menupos and $good
poscnt2=!itemcnt $menupos
poscnt3=!itemcnt $good
!if $poscnt1=$poscnt2 and $poscnt1=$poscnt3
 diareply$i=good
 !advance freegot
!else
 diareply$i=bad
!endif

