var x

mov x , eip

loop:

find x, #0000000000000000000000000000000000000000000000000000000000000000#

cmp $RESULT , 0

je end

mov x , $RESULT 

cmt x , "free space"

msg "Right click 'Search for->User-defined comment' for free space address"

MSGYN "Continue?"

add x , 40

cmp $RESULT , 1

je loop

end:

ret