clear CLEAR ALL memstart = 0 memstart = VAL(SYS(1016)) FOR j=1 TO 10 ? "heap handles",SYS(1011),' ' FOR h=1 TO 10000 k= SPACE(10000) RELEASE k DIMENSION X[100] X = SPACE(20000) RELEASE x ox=CREATEOBJECT("empty") ADDPROPERTY(m.ox,"p",SPACE(20000)) RELEASE ox NEXT NEXT RELEASE J,H ? "memory used",VAL(SYS(1016))-m.memstart memstart = VAL(SYS(1016)) FOR j=1 TO 10 ? "heap handles",SYS(1011),' ' FOR h=1 TO 10000 k=1 RELEASE k DIMENSION X[100] RELEASE x ox=CREATEOBJECT("empty") ADDPROPERTY(m.ox,"p",SPACE(20000)) && allocate 2 memory handles : 1 x metadata + 1 x data REMOVEPROPERTY(m.ox,"p") && this leave the data block (20000 bytes) allocated RELEASE ox NEXT NEXT RELEASE J,H ? "memory used", VAL(SYS(1016))-m.memstart CLEAR ALL && this doesn't clear the Memory leak ? "heap handles",SYS(1011)