function runProgram( program, time )
	timer = os.startTimer( time )
	local oldvr = os.pullEventRaw
	function newvr( _sFilter )
		local event, p1, p2, p3, p4, p5 = oldvr( _sFilter )
		if event == "timer" and p1 == timer then
			error()
		end
		return event, p1, p2, p3, p4, p5
	end
	os.pullEventRaw = newvr
	shell.run( program )
	os.pullEventRaw = oldvr
end