'===========================================================================
' Subject: SCAN PATH ENVIRONMENT VARIABLE    Date: 02-15-99 (20:27)       
' Author:  Dave Navarro, Jr.                 Code: PBCC                   
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
'===========================================================================
'
'  Scan the PATH environment variable for a specified filespec.
'  Copyright (c) 1998 by PowerBASIC, Inc.  All Rights Reserved.
'
'===========================================================================

$COMPILE EXE

FUNCTION PbMain() AS LONG

  LOCAL path AS STRING
  LOCAL d    AS STRING
  LOCAL f    AS STRING
  LOCAL cmd  AS STRING
  LOCAL x    AS LONG

  STDOUT "SCANPATH v1.0 - Scan the PATH for a filespec"
  STDOUT "Copyright (c) 1998,99 by PowerBASIC, Inc. All Rights Reserved."
  STDOUT ""

  path = ENVIRON$("PATH")
  cmd  = COMMAND$
  IF LEN(cmd) = 0 THEN
    STDOUT "Usage:  SCANPATH filespec"
    FUNCTION = 1
    EXIT FUNCTION
  END IF

  FOR x = 1 TO PARSECOUNT(path, ";")

    d = RTRIM$(PARSE$(path, ";", x), ANY " \") + "\"

    f = DIR$(d & cmd)

    WHILE LEN(f)
      STDOUT d & f
      f = DIR$
    WEND

  NEXT

END FUNCTION