( memo DAY 07.04.2001 )

create lt 0x0A0D w,
create ltl 1 w,

: dir ( -- )
\ print titles of all memos
   r/o OpenMemoDb throw
   memoDb DmNumRecords 0
   ?do
     memoDb i recdeleted? 0=
     if
       i .
       memoDb i DmQueryRecord
       dup MemHandleSize dup .
       over MemHandleLock >rel
       swap 2dup lt ltl w@ search
       if nip -
       else 1-  2swap 2drop
       then type cr
       MemHandleUnlock drop
     then
   loop
   CloseMemoDb throw
;

API: DmRemoveRecord

: RemoveRecord ( index -- )
   r/w OpenMemoDB throw
   MemoDB SWAP DmRemoveRecord throw
   CloseMemoDB throw
;
