"字节" := 0;

"位" := 0;

FOR "字节" := 0 TO 3 DO

    FOR "位" := 0 TO 7 DO

        IF PEEK_BOOL(area := 16#84, dbNumber := 3, byteOffset := "字节", bitOffset := "位") = true OR

            PEEK_BOOL(area := 16#84, dbNumber := 4, byteOffset := "字节", bitOffset := "位") = true OR

            PEEK_BOOL(area := 16#84, dbNumber := 5, byteOffset := "字节", bitOffset := "位") = true THEN

            POKE_BOOL(area := 16#84,

                      dbNumber := 6,

                      byteOffset := "字节",

                      bitOffset := "位",

                      value := TRUE);

        ELSIF  PEEK_BOOL(area := 16#84, dbNumber := 3, byteOffset := "字节", bitOffset := "位") = FALSE AND

            PEEK_BOOL(area := 16#84, dbNumber := 4, byteOffset := "字节", bitOffset := "位") = false AND

                PEEK_BOOL(area := 16#84, dbNumber := 5, byteOffset := "字节", bitOffset := "位") =false THEN

                POKE_BOOL(area := 16#84,

                          dbNumber := 6,

                          byteOffset := "字节",

                          bitOffset := "位",

                          value := FALSE);

        END_IF;

    END_FOR;

END_FOR;