SET DELETED ON
CREATE CURSOR brownie (house I)
FOR zz=1 TO 200
    APPEND BLANK
ENDFOR
LOCATE
FOR zz=1 TO 199
    IF EOF()
        LOCATE
    ENDIF
    REPLACE house WITH zz    && для контроля 
    DELETE
    SKIP 2
ENDFOR
LOCATE
SET DELETED OFF
?'ДОМОВОМУ С НОМЕРОМ',TRANSFORM(RECNO()),'НЕ ХВАТИЛО ДОМА'

create cursor results (id i, dm i, dm2 i)
local m.i, m.r1, m.r2
for m.i= 2 to 1024
    insert into results values (m.i, dm(m.i), dm2(m.i))
next
browse

function dm
lparameter m.n
use in select("dm")
create cursor dm (dm i)
local m.i, m.rez, m.rn
for i=1 to m.n
    insert into dm values (i)
next
m.rez=0
scan
    if recno()%2=1
        m.rez=dm.dm
    else
        m.rn=recno()
        insert into dm values (dm.dm)
        goto (m.rn)
    endif
endscan
return m.rez

function dm2
lparameter m.n
return iif(2^int(log(m.n)/log(2))=m.n, m.n, (m.n-2^int(log(m.n)/log(2)))*2)