-- ComputerCraft BSOD Program

-- Function to simulate typing with a delay
function typewrite(text, delay)
    for i = 1, #text do
        write(string.sub(text, i, i))
        sleep(delay)
    end
end

-- Function to display the BSOD screen
function showBSOD()
    -- Set background color to blue
    term.setBackgroundColor(colors.blue)
    term.clear()
    term.setCursorPos(1, 1)
    term.setTextColor(colors.white)

    -- Title
    typewrite("A problem has been detected and Windows has been shut down\n", 0.01)
    typewrite("to prevent damage to your computer.", 0.01)
    sleep(0.5)

    -- Error Message
    print("\n")
    typewrite("The problem seems to be caused by the following file: ", 0.01)
    typewrite("win32k.sys", 0.03)
    print("\n")

    typewrite("PAGE_FAULT_IN_NONPAGED_AREA", 0.01)
    sleep(0.2)
    print("\n")

    typewrite("If this is the first time you've seen this stop error screen,\n", 0.01)
    typewrite("restart your computer. If this screen appears again, follow\n", 0.01)
    typewrite("these steps:", 0.01)
    print("\n")

    typewrite("Check to make sure any new hardware or software is properly installed.\n", 0.01)
    typewrite("If this is a new installation, ask your hardware or software\n", 0.01)
    typewrite("manufacturer for any Windows updates you might need.", 0.01)
    print("\n")

    typewrite("If problems continue, disable or remove any newly installed hardware\n", 0.01)
    typewrite("or software. Disable BIOS memory options such as caching or shadowing.\n", 0.01)
    typewrite("If you need to use Safe Mode to remove or disable components, restart\n", 0.01)
    typewrite("your computer, press F8 to select Advanced Startup Options, and then\n", 0.01)
    typewrite("select Safe Mode.", 0.01)
    print("\n")

    -- Technical Information
    typewrite("Technical information:\n", 0.01)
    typewrite("*** STOP: 0x00000050 (0xE27E5E98, 0x00000000, 0xF75F5F9A, 0x00000002)\n", 0.03)
    typewrite("*** win32k.sys - Address F75F5F9A base at F75F0000, DateStamp 3d6dd67c\n", 0.03)

    print("\n")
    sleep(0.2)

    -- Collecting Data
    typewrite("Collecting data for crash dump ...\n", 0.01)
    sleep(0.2)
    typewrite("Initializing disk for crash dump ...\n", 0.01)
    sleep(0.2)
    typewrite("Beginning dump of physical memory ...\n", 0.01)
    sleep(0.2)
    typewrite("Dumping physical memory to disk: 0", 0.01)

    -- Simulate memory dump progress
    for i = 1, 100, 5 do
        write(string.format("%2d", i))
        sleep(0.05)
        write("%")
        if i ~= 100 then
            write("\b\b\b\b")
        end
    end
    print("%\n")

    typewrite("Physical memory dump complete.\n", 0.01)
    sleep(0.2)
    typewrite("Contact your system administrator or technical support group for\n", 0.01)
    typewrite("further assistance.", 0.01)
end

-- Start the BSOD program
showBSOD()