( errstr DAY )

:noname ( err -- addr u )
  'fexc' 1000 DmGetResource dup
  MemHandleLock >rel dup
  w@ 0
  do
    dup dup i 1+ 2* + w@ +
    dup w@ w>s 4 pick =
    if
      2+ count tuck pad swap cmove
      nip over MemHandleUnlock drop
      swap DmReleaseResource drop nip
      pad swap unloop exit
    else drop
    then
  loop drop
  dup MemHandleUnlock drop
  DmReleaseResource drop
  0
; to errstr

: save save
'fexc' 1000 CopyRes ;

'fexc' 'd4th' use-resource