Do Flag = 1 [ Items.i.Weight > `MAX_WEIGHT ]               Do i = 1 to Items._
Where i = 1 to Items._                            Ä        If Items.i.Weight > `MAX_WEIGHT then Flag = 1; Leave
                                                            Else Iterate
                                                           ;