LRAPFTS.m

LRAPFTS ; IHS/DIR/FJE - AP FREE TEXT SEARCH 11/12/88 09:24 ;

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 D XR^LRU

 D B^LRU G:Y<0 END

 ;

END D V^LRU Q

LRAPFTS   ; IHS/DIR/FJE - AP FREE TEXT SEARCH 11/12/88 09:24 ;

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        DO XR^LRU

 +5        DO B^LRU

           IF Y<0

               GOTO END

 +6       ;

END        DO V^LRU

           QUIT