IfColor tx+1,ty+3,clfont,2
                num=5
            Else 
                num=2
            EndIf 
        EndIf 
    Else 
        IfColor tx+3,ty+1,clfont,2
            IfColor tx+1,ty+7,clfont,2
                num=4
            Else 
                num=1
            EndIf 
        Else 
            IfColor tx+4,ty+2,clfont,2
                IfColor tx+4,ty+1,clfont,2
                    num=8
                Else 
                    num=7
                EndIf 
            Else 
                IfColor tx+2,ty+1,clfont,2
                    num=6
                Else 
                    num=0
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 读取坐标
    tx=cx+892:ty=cy+54:i=0:clfont="E0E0E0":num=0
    Gosub 读取单个坐标值
    If num<>2
        tx=tx+1
        Gosub 读取单个坐标值
        If num<>2
            tx=tx-2
        EndIf 
    EndIf 
    For 2
        pxy(i)=0
        For 4
            Gosub 读取单个坐标值
            pxy(i)=pxy(i)*10+num
            If num=8
                tx=tx+7
            Else 
                If num=0
                    tx=tx+7
                Else 
                    tx=tx+6
                EndIf 
            EndIf 
        EndFor 
        i=i+1
        tx=tx+6
    EndFor 
Return 
Sub 读取单个坐标值
    IfColor tx+4,ty+1,clfont,2
        IfColor tx+4,ty+4,clfont,2
            IfColor tx+4,ty+2,clfont,2
                num=4
            Else 
                num=2
            EndIf 
        Else 
            IfColor tx+1,ty+3,clfont,2
                num=0
            Else 
                IfColor tx,ty+4,clfont,2
                    num=9
                Else 
                    num=3
                EndIf 
            EndIf 
        EndIf 
    Else 
        IfColor tx+5,ty+1,clfont,2
            IfColor tx+1,ty+5,clfont,2
                num=8
            Else 
                num=7
            EndIf 
        Else 
            IfColor tx+2,ty+3,clfont,2
                IfColor tx+1,ty+4,clfont,2
                    num=6
                Else 
                    num=5
                EndIf 
            Else 
                IfColor tx+3,ty,clfont,2
                    num=1
                Else 
                    num=0
                EndIf 
            EndIf 
        EndIf