CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer  && Opens Customer table
CLEAR
FOR gnCount = 1 TO FCOUNT( )  && Loop for number of fields
   ? FIELD(gnCount)  && Display each field
NEXT
?
? 'Number of fields: ' + ALLTRIM(STR(gnCount -1))