[CC] Pause a Program

-- WARNING - BUGGY - Won't damage your computer, but has a lot of unexpected behavior!
-- I'm going to completely redo this program in the near future :)

-- Pause a Program! Written by Grim Reaper: computercraft.info/forums2/index.php?/topic/23942-capture-computer-screen
-- Hit the 'Home' key to toggle
-- While paused, you can click on the screen, and it will tell you the location of the click

-- Make sure to change '/stuff' below to the path of the program you want to pause,
-- then run this program

-- Updated 8/11/2015 - Fixed a few problems... I hadn't actually used the program before

local programPath = "/stuff"
local program = coroutine.create(
    setfenv(
        loadfile(programPath),
        setmetatable({ shell = shell }, { __index = _G })
    )
)

coroutine.resume(program) -- Initialize the program.


local paused = false

while coroutine.status(program) ~= "dead" do
    local eventData = { os.pullEvent() }

    -- Toggle pause.
    if eventData[1] == "key" and eventData[2] == keys.home then
        paused = not paused

        -- Neutralize event.
        eventData = {}
    end

    -- Distribute events if the program isn't paused.
    if not paused then
        coroutine.resume(program, unpack(eventData))
    -- Display mouse click if paused.
    elseif eventData[1] == "mouse_click" then
        term.setBackgroundColor(colors.black)
        term.setTextColor(colors.white)

        term.setCursorPos(1, 1)
        term.write("(" .. eventData[3] .. "," .. eventData[4] .. ")")
    end
end