#define memoblocksize 64 && every #define someintegers 1 && > 0 #define threshold someintegers * m.blocksize - 8 && memo block header = 8 lcText = SPACE(16000) lnBigTextLength = LEN(lcText) SET BLOCKSIZE TO memoblocksize SET STEP ON CREATE TABLE tmemo FREE (mm m) APPEND blank CLEAR ? "exclusive", ISEXCLUSIVE() TRY blocksize = VAL(SYS(2012)) SET COMPATIBLE on replace mm WITH lcText memosize = FSIZE(FORCEEXT(DBF(),"fpt")) FOR k=0 TO 100 IF MOD(k,2) <> 0 lcTextin = SPACE(100) ELSE lcTextin = SPACE(3000) ENDIF lnNoBlanks = lnBigTextLength-LEN(lctextin) replace mm WITH lcTextin+SPACE(lnNoBlanks) FLUSH ? "memo size",ALLTRIM(STR(LEN(mm))),"add blocks",; ALLTRIM(STR((FSIZE(FORCEEXT(DBF(),"fpt"))-m.memosize)/VAL(SYS(2012)))),; "file size",ALLTRIM(STR(FSIZE(FORCEEXT(DBF(),"fpt")))) memosize=FSIZE(FORCEEXT(DBF(),"fpt")) NEXT FINALLY USE CLOSE TABLES all SET COMPATIBLE off ENDTRY