home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR503.W96 / FILEDEMO.PR_ / FILEDEMO.PR
Text File  |  1995-06-20  |  368b  |  22 lines
  1. /***
  2. *
  3. *    Filedemo.prg
  4. *
  5. *  Demo of FileMan() function
  6. *
  7. *  Copyright (c) 1993-1995, Computer Associates International Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12. PROCEDURE Main()
  13.  
  14.    LOCAL cFileName
  15.  
  16.    cFileName := FileMan( 5, 5, MAXROW() - 1, "W/B,N/W,,,W/N" )
  17.  
  18.    @ MAXROW(), 0
  19.    ?? "Return value from FileMan() was:", '"' + cFileName + '"'
  20.  
  21.    RETURN
  22.