home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a009 / 6.ddi / SAMPLE.LIF / FILEDEMO.PRG < prev    next >
Encoding:
Text File  |  1991-04-14  |  317 b   |  17 lines
  1. ***
  2. *    Filedemo.prg
  3. *    Demo of FileMan() function.
  4. *    Copyright (c) 1990-1991 Nantucket Corp. All rights reserved.
  5. *
  6.  
  7. PROCEDURE Main()
  8.  
  9.    LOCAL cFileName
  10.  
  11.  
  12.    cFileName := FileMan( 5, 5, MAXROW() - 1, "W/B,N/W,,,W/N" )
  13.  
  14.    @ MAXROW(), 0
  15.    ?? "Return value from FileMan() was:", '"' + cFileName + '"'
  16.  
  17.