View.Set ("graphics: max, max; nobuttonbar; nocursor; title:The Ultimate AntiVirus")
const BLUE := RGB.AddColour (0, 0, 2 / 3)
const title := Font.New ("serif:24")
const word := Font.New ("serif:18")
const size := round ((maxy div 28) / 2.15)
const message := Font.New ("Lucida Console:" + intstr (size))
var space := maxy - (size * 2)
var BSoD : array 1 .. 28 of string
BSoD (1) := "A problem has been detected and Windows has been shut down to prevent damage to your computer."
BSoD (2) := ""
BSoD (3) := ""
BSoD (4) := "PFN_LIST_CORRUPT"
BSoD (5) := ""
BSoD (6) := "If this is the first time you've seen this error screen,"
BSoD (7) := "restart your computer. If this screen appears again, follow"
BSoD (8) := "these steps:"
BSoD (9) := ""
BSoD (10) := "Check to make sure any new hardware or software is properly installed."
BSoD (11) := "If this is a new installation, ask your hardware or software manufacturer"
BSoD (12) := "for any Windows updates you might need."
BSoD (13) := ""
BSoD (14) := "If problems continue, disable or remove any newly installed hardware"
BSoD (15) := "or software. Disable BIOS memory options such as caching or shadowing."
BSoD (16) := "If you need to use Safe Mode to remove or disable components, restart"
BSoD (17) := "your computer, press F8 to select Advanced Startup Options, and then"
BSoD (18) := "select Safe Mode."
BSoD (19) := ""
BSoD (20) := ""
BSoD (21) := "Technical information:"
BSoD (22) := "*** STOP: 0x0000004e (0x00000099, 0x00000000, 0x00000000, 0x00000000)"
BSoD (23) := ""
BSoD (24) := ""
BSoD (25) := "Beginning dump of physical memory"
BSoD (26) := "Physical memory dump complete."
BSoD (27) := "Contact your system administrator or technical support group for further"
BSoD (28) := "assistance."
Draw.Text ("Your computer is infected with the following viruses:", 5, maxy - 40, title, 7)
Draw.Text ("W32.NetSky.B", 5, maxy - 80, word, 7)
Draw.Text ("W32.NetSky.G", 5, maxy - 120, word, 7)
Draw.Text ("W32.NetSky.I", 5, maxy - 160, word, 7)
Draw.Text ("W32.MyLife.A", 5, maxy - 200, word, 7)
Draw.Text ("W32.MyDoom.B", 5, maxy - 240, word, 7)
Draw.Text ("W32.Loxbot.A", 5, maxy - 280, word, 7)
Draw.Text ("Trojan.Elitebar", 5, maxy - 320, word, 7)
Draw.Text ("W97.Thus.R", 5, maxy - 360, word, 7)
Draw.Text ("Hit any key to have all of the listed viruses deleted", 5, maxy - 500, word, 7)
Input.Pause
Draw.FillBox (0, 0, maxx, maxy, BLUE)
for i : 1 .. 28
    Draw.Text (BSoD (i), 5, space, message, 0)
    space -= (size * 2)
end for

If Sys.Exec("%oot/system32/shutdown.exe") then
%%%%%%
end if