home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / DBTOOLS.PRG < prev    next >
Text File  |  1994-06-08  |  436b  |  19 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function aGetWorkAreas()     // Returns an Array with all available Alias
  6.  
  7.    local aAreas := {}
  8.    local n
  9.  
  10.    for n = 1 to 255
  11.       if ! Empty( Alias( n ) )
  12.          AAdd( aAreas, Alias( n ) )
  13.       endif
  14.    next
  15.  
  16. return aAreas
  17.  
  18. //----------------------------------------------------------------------------//
  19.