If pcolor(11)=1
        strnum="2"
        Goto 合并
    EndIf 
    pcolor(5)=Chen8.NewYNColor1(nx+1,ny+2,coor,rdev,gdev,bdev)
    If pcolor(5)=1
        strnum="4"
        Goto 合并
    EndIf 
    pcolor(0)=Chen8.NewYNColor1(nx,ny,coor,rdev,gdev,bdev)
    pcolor(4)=Chen8.NewYNColor1(nx,ny+2,coor,rdev,gdev,bdev)
    If pcolor(0)=1 and pcolor(4)=1
        strnum="5"
        Goto 合并
    EndIf 
    pcolor(3)=Chen8.NewYNColor1(nx+3,ny+1,coor,rdev,gdev,bdev)
    pcolor(10)=Chen8.NewYNColor1(nx,ny+5,coor,rdev,gdev,bdev)
    If pcolor(3)=1 and pcolor(10)=1
        strnum="6"
        Goto 合并
    EndIf 
    If pcolor(0)=1 and pcolor(3)=1
        strnum="7"
        Goto 合并
    EndIf 
    pcolor(9)=Chen8.NewYNColor1(nx+1,ny+4,coor,rdev,gdev,bdev)
    If pcolor(9)=1
        strnum="9"
        Goto 合并
    EndIf 
    pcolor(7)=Chen8.NewYNColor1(nx+4,ny+3,coor,rdev,gdev,bdev)
    Plugin pcolor(8)=Chen8.NewYNColor1(nx,ny+4,coor,rdev,gdev,bdev)
    If pcolor(7)=1 and pcolor(8)=1
        strnum="0"
        Goto 合并
    EndIf 
    If pcolor(4)=1
        strnum="8"
        Goto 合并
    EndIf 
    pcolor(6)=Chen8.NewYNColor1(nx,ny+3,coor,rdev,gdev,bdev)
    If pcolor(6)=1
        strnum="-"
        Goto 合并
    EndIf 
    pcolor(1)=Chen8.NewYNColor1(nx+1,ny,coor,rdev,gdev,bdev)
    If pcolor(1)=1
        strnum="3"
        Goto 合并
    EndIf 
    If point=0
        strnum="."
        point=1
        Goto 合并
    EndIf 
    Goto 结束
    Rem 合并
    strxy = strxy&strnum
    nx=nx+6
    Goto 读数
    Rem 读取结束
    i=InStr(strxy,".")
    If i>1
        If IsNumeric(Left(strXY,i-1)) And IsNumeric(Mid(strxy,i+1))
            curx=CLng(Left(strxy,i-1))
            cury=CLng(Mid(strxy,i+1))
        EndIf 
    EndIf 
    Rem 结束
    If outnumber=1
        myway="我的坐标是"&cstr(curx)&"."&cstr(cury)
        SayString myway
        Delay 8
        KeyPress 13,1
    EndIf 
    If curx<>0 and cury<>0
        cur=1
    EndIf 
Return