Call ItemsIn XML_file Page_size ( Num_items : 
                                              ...
                                )
                                ( Item, Position :
                                                   If Item, 1, 3 = '-- ' then
                                                    ...

                                                    Iterate
                                                   Else
                                                    If Item = ';.' then Leave
                                                    Else Iterate
                                                   ;
                                )