BCX Console Demonstration Program S73.bas

 $LIBRARY <imagehlp.lib>      ' link with imagehlp.lib 
 #INCLUDE  <imagehlp.h>
 
 DIM Drive2Scan$
 DIM File2Find$
 DIM Result$
 DIM rc
 
 IF COMMAND$ = "" THEN
   PRINT "Usage: S73 FileName"
   PRINT "Win32 freeware by Kevin Diggins (1999)"
   END
 END IF
 
 Drive2Scan$ =  "C:\"
 File2Find$  =  COMMAND$
 
 rc = SearchTreeForFile(Drive2Scan$, File2Find$, Result$)
 
 IF rc = 0 THEN
   Result$ = "File was not found"
 END IF
 
 PRINT Result$