( copyres )

\ use it after use-resource

api: DmNextOpenResDatabase 
api: DmNumResources
api: DmResourceInfo

variable resType
variable resID

: CopyAllRes
    0 DmNextOpenResDatabase 
    dup DmNumResources 0
    do 
      dup i
      resType >abs
      resID >abs 0
      DmResourceInfo throw
      resType @ dup 'code' <>
      swap 'data' <> and
      if  resType @ resID w@ CopyRes
      then
    loop drop
;
