procedure find item
  if (google "item"+"RISC OS" )
    if (version > current_version(item))
      return true
  return false
end

procedure make item
  save item
  starttask mask item
  repeat
    sleep
  until task quit
end

bill_of_materials := {
  DMA_enabled_ADFS,
  DeCSS_module,
  VOB_file_parser,
  Optimised_MPV_decoder,
  AC3_player,
  DTS_player,
  union {
    NVidia_YUV_overlay,
    NVidia_Motion_Compensation,
  }
  UI_code,
  low_latency_memory_bus,
  bill_of_materials
};

repeat
  changed <= false
  foreach i in bill_of_materials
    service i
    if (find i)
      make i
      changed <= true
    fi
  end
  if changed
    starttask self
    exit
  end
until false