Click above to get retro games delivered to your door ever month!

CLIPWKS only requires three function calls to read any spreadsheet.  First
you must open the spreadsheet using Lread().  This function returns an
array of information used by the other CLIWPKS functions.  The Lget()
function expects the array from Lread() and can be used to retrieve the
contents of any cell within the file.  The final function, Lclose(),
takes the array as the parameter and closes the file.

The code below shows a function that will open the spreadsheet and return the
contents of a specified array of cells.

procedure main(cFile,aCells)
  LOCAL aWks   := Lread( cFile )
  LOCAL nSize  := len(aCells)
  LOCAL arr_   := array(nSize)
  LOCAL x

  if !empty(aWks)
     for x := 1 to nSize
        arr_[x] := Lget( aWks,aCells[x] )
     next
     Lclose(aWks)
  else
     Alert("Error occurred opening the spreadsheet...")
     arr_ := {}
  endif
return arr_