/* find .r in Propath */

&SCOPED-DEFINE Lost "adeuib/_ppuscal.r"

DEFINE VARIABLE cLost  AS CHARACTER NO-UNDO INITIAL {&Lost}.
DEFINE VARIABLE cCheck AS CHARACTER NO-UNDO.
DEFINE VARIABLE iLoop  AS INTEGER   NO-UNDO.

DO iLoop = 1 TO NUM-ENTRIES( PROPATH ):

  IF ENTRY( iLoop, PROPATH ) MATCHES "*.pl"
  THEN ASSIGN cCheck
            = ENTRY( iLoop, PROPATH )
            + "<<"
            + cLost
            + ">>".
  ELSE ASSIGN cCheck
            = ENTRY( iLoop, PROPATH )
            + ( IF SUBSTRING( ENTRY( iLoop, PROPATH ),
                      LENGTH( ENTRY( iLoop, PROPATH ) ) ) = "/" 
                OR SUBSTRING( ENTRY( iLoop, PROPATH ),
                      LENGTH( ENTRY( iLoop, PROPATH ) ) ) = "\"
                THEN ""
                ELSE "/" )
            + cLost.

  DISPLAY
    cCheck                  FORMAT "x(72)"
    SEARCH( cCheck ) <> ?   FORMAT "*/ "
    WITH DOWN.
  DOWN.
END.