clear
parameters cFile
if argcount() = 0
  ? 'Table name required'
  ?
  ? 'e.g  do table_level with "whatever.dbf"'
  return
endif 
if file(cFile)
   h = fopen(cFile, "R") 
else
   ? cFile+' not found.'
  return	
endif
nByte1 = bitand(asc(fread(h,1)),15)
fseek(h,29,0)
nByte2 = asc(fread(h,1))
if nByte1 = 4
   cLevel = '7'
elseif nByte1 = 3 and nByte2 = 87
   cLevel = '4 or 5'
elseif nByte1 = 3
  cLevel = '3'
endif
? cFile+ ' is a level '+cLevel+' table'
fclose(h)