Delay 500
        Call FindPic(837, 146, 847, 160,"Attachment:\主线0621.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Goto 主线错误01
        End if
    Next
    Call 持续报警()
    Rem 主线错误01
    KeyDownH 39,1
    Delay 4000
    KeyUpH 39,1
    Goto 主线001
End Sub
Sub 一号出口()
    Call 主线()
    For 10
        KeyPressH 32,1
        Delay 1000
        Call FindPic(840, 82, 854, 92,"Attachment:\一号1909.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Goto 一号出口01
        End if
    Next
    Call 四线错误()
    Rem 一号出口01
    For 300
        KeyDownH 37,1
        Delay 100
        Call FindPic(740, 117, 749, 129,"Attachment:\一号1609.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindPic(711, 87, 721, 99,"Attachment:\一号1509.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindPic(843, 133, 850, 141,"Attachment:\一号0808.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 1000
            Goto 一号出口02
        End if
    Next
    Call 持续报警()
    Rem 一号出口02
    For 10
        KeyPressH 32,1
        Delay 1000
        Call FindPic(841, 159, 852, 170,"Attachment:\一号0806.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Goto 一号出口03
        End if
    Next
    Call 四线错误()
    Rem 一号出口03
    For 300
        KeyDownH 37,1
        Delay 100
        Call FindPic(841, 159, 852, 170,"Attachment:\一号0806.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindColorEx(710, 108, 771, 209,"5555EE",1,0.8,x9,y9)
        If x9>0 and y9>0 Then
            Call 四线错误()
        End if
        Call FindPic(787, 123, 794, 136,"Attachment:\一号0605.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 1000
            Goto 一号出口04
        End if
    Next
    Call 持续报警()
    Rem 一号出口04
    For 10
        KeyPressH 32,1
        Delay 1000
        Call FindPic(814, 101, 827, 112,"Attachment:\一号0604.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Goto 一号出口05
        End if
    Next
    Call 四线错误()
    Rem 一号出口05
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(802, 123, 811, 136,"Attachment:\一号0704.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Call FindColorEx(720, 100, 732, 109,"80FBBF",1,0.8,x9,y9)
            If x9>0 and y9>0 Then
                KeyPressH 32,1
                Delay 1000
            End if
        End if