local i,n0,n1,n2,r0
n0=0
n1=0
n2=0
r0=0
for i=1 to 6
if xy[i]=x0
n0=n0+1
if n0>x0
r0=1
exit
endif
endif
if xy[i]=x1
n1=n1+1
if n1>x1
r0=1
exit
endif
endif
if xy[i]=x2
n2=n2+1
if n2>x2
r0=1
exit
endif
endif
endfor
* BOX的值,就是返回值,.f.就不行,.t.就可以
messagebox(IIF(r0=0,(n0=x0 and n1=x1 and n2=x2),.f.))