Goto 三号错误01
        End if
        Call FindPic(891, 120, 906, 140,"Attachment:\三号错误3913.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 39,1
            Goto 三号错误01
        End if
    Next
    Call 持续报警()
    Rem 三号错误01
    For 80
        KeyDownH 37,1
        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
            Delay 500
            Goto 出口选择rem
        End if
    Next
    Call 持续报警()
End Sub
Sub 五号出口()
    Call 主线()
    Rem 五号出口001
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(852, 102, 862, 112,"Attachment:\二号2210.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 500
        End if
        Call FindPic(836, 112, 845, 121,"Attachment:\二号2309.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 39,1
            Delay 100
            For 20
                KeyPressH 32,1
                Delay 500
                Call FindPic(836, 131, 845, 140,"Attachment:\二号2308.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0 Then
                    Goto 五号出口01
                End if
            Next
            Call 持续报警()
        End if
    Next
    Call 四线错误()
    Rem 五号出口01
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(762, 102, 771, 109,"Attachment:\五号2508.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 39,1
            Delay 500
            Goto 五号出口02
        End if
    Next
    Call 三号错误()
    Rem 五号出口02
    For 10
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        Call FindPic(803, 101, 812, 110,"Attachment:\五号2510.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 40,1
            Goto 五号出口03
        End if
    Next
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    Call 三号错误()
    Rem 五号出口03
    For 300
        KeyDownH 37,1
        Delay 100
        Call FindPic(882, 147, 891, 154,"Attachment:\五号2113.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindPic(889, 122, 900, 130,"Attachment:\五号1316.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Goto 五号出口04
        End if
    Next
    Call 三号错误()
    Rem 五号出口04
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(718, 151, 730, 168,"Attachment:\五号1719.bmp",0.8,intX,intY)