#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