home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / DBROWDEM.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  350 b   |  20 lines
  1. /*
  2.     dBrowDem.prg
  3.  
  4.     Demonstration for dBrowse class.  See DBROWSE.PRG.
  5. */
  6.  
  7. procedure main(cFileName)
  8.     local dBrow := dBrowse():new(5, 5, 15, 70)
  9.  
  10.     if cFileName == NIL
  11.         ? 'Please type DBROWDEM <filename>'
  12.         quit
  13.     end
  14.     use (cFileName)
  15.     dBrow:autoFields()
  16.     dBrow:exec()
  17. return
  18.  
  19. // eof dbrowdem.prg
  20.