--#FILE 1: Wrapper.lua

function Timed()

	while true do
		coroutine.yield()
		local event, timerID = os.pullEvent("timer")
		if timerID == tTask[1] then coroutine.resume(task1) end
		if timerID == tTask[2] then coroutine.resume(task2) end
		if timerID == tTask[3] then coroutine.resume(task3) end
	end

end

function Event()



end

function Launch()

	dofile("task.lua")

end

local t = coroutine.create(Timed)
local e = coroutine.create(Event)

local s = coroutine.create(Launch)


while true do
	coroutine.resume(s,t)
	sleep(1)
	--print(os.clock())
end

--#FILE 2: functions.lua

local OY = coroutine.yield
local OPE = os.pullEvent

coroutine = {}

function newYield()

	rTask[ctask] = true
	OY()

end
function newSleep(sec)

	tTask[ctask] = os.startTimer(sec)
	rTask[ctask] = false

end

coroutine.yield = newYield

--#FILE 3: task.lua

tTask={}
rTask={}
rTask[1] = true
rTask[2] = true
rTask[3] = true

function task1()
	for i=1,10 do
		a=2
		print(1)
		newSleep(3)

	end
end


function task2()
	for i=1,10 do
		print(2)
		coroutine.yield()

	end
end


function task3()
	for i=1,10 do
		print(3)
		os.pullEvent()
		print(34)
	end
end

t1 = coroutine.create(task1)
t2 = coroutine.create(task2)
t3 = coroutine.create(task3)

while true do
	coroutine.yield()
	ctask = 1
	if rTask[1] == true then
		coroutine.resume(t1)
		print(coroutine.status(t1))
	end

	coroutine.yield()
	ctask = 2
	if rTask[2] == true then
		coroutine.resume(t2)
		print(coroutine.status(t2))
	end

	coroutine.yield()
	ctask = 3
	if rTask[3] == true then
		coroutine.resume(t3)
		print(coroutine.status(t3))
	end

end