*SetRemoveSysFlag lparameters tcTableName, tnFieldNumber, tlSet * tcTableName : table to set-remove system flag * tnFieldNumber : field number * tlSet : If .t. set otherwise (default) remove system flag local handle, lnsecs handle = this.OpenFile(fullpath(tcTableName)) && Openfile tries to open if handle < 0 return .f. endif =fseek(handle,31+(tnFieldnumber-1)*32+18) if tlSet =fwrite(handle,chr(bitor(val(fread(handle,1)),1))) else =fwrite(handle,chr(bitand(val(fread(handle,1)),254))) endif =fclose(handle)Cetin