// Project: BSOD
// Created: 2017-12-22
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "BSOD" )
SetWindowSize( GetDeviceWidth(), GetDeviceHeight(), 1 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
// set display properties
SetVirtualResolution( GetDeviceWidth(), GetDeviceHeight() ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global t as integer[30]
t[1]=CreateText("A problem has been detected and Windows has been shutdown to prevent damage")
t[2]=CreateText("to your computer")
t[3]=CreateText("")
t[4]=CreateText("The problem seems to be caused by the following file: explorer.exe")
t[5]=CreateText("")
t[6]=CreateText("MANUALLY_INITIASED_CRASH")
t[7]=CreateText("")
t[8]=CreateText("If this is the first time you've seen this stop error screen,")
t[9]=CreateText("restart your computer. If this screen appears again, follow")
t[10]=CreateText("these steps:")
t[11]=CreateText("")
t[12]=CreateText("Check to make sure any new hardware or software is properly installed.")
t[13]=CreateText("If this is a new installation, ask your hardware or software manufacturer")
t[14]=CreateText("for any Windows Updates you might need")
t[15]=CreateText("")
t[16]=CreateText("If problems continue, disable or remove any newly installed hardware")
t[17]=CreateText("or software. Disable BIOS memory options such as caching or shadowing.")
t[18]=CreateText("If you need to use safe mode to remove or disable components, restart")
t[19]=CreateText("your computer, press F8 to select Advanced Startup Options, and then")
t[20]=CreateText("select Safe Mode.")
t[21]=CreateText("")
t[22]=CreateText("Technical Information")
t[23]=CreateText("")
t[24]=CreateText("*** STOP: 0x000000e6 (0x0000000, 0x0000000, 0x00000000, 0x00000000")
t[25]=CreateText("")
t[26]=CreateText("*** explorer.exe - Adress 0x8372837 base at 0x09483494 Date stamp 0x8374734")
do
DrawBox(0,0,GetDeviceWidth(), GetDeviceHeight(),MakeColor(0,0,200),MakeColor(0,0,200),MakeColor(0,0,200),MakeColor(0,0,200),1)
for loops=1 to 26
SetTextSize(t[loops],GetDeviceWidth()/50)
SetTextPosition(t[loops],5,loops*GetTextTotalHeight(t[loops]))
next
Render2DFront()
Sync()
loop
Dont need to restart though - just do a control - alt - delete and end the apps process on Windows machines or put an escape raw command in to exit the app