var font1, font2, font3, font4, winID, i1 : int
winID := Window.Open ("position:0,0;graphics:788;528")
font1 := Font.New ("courier:14:bold")
font2 := Font.New ("serif:20")
font3 := Font.New ("serif:28")
font4 := Font.New ("courier:10")
colorback (black)
color (white)
cls

Font.Draw ("You have installed the setup for", 200, 490, font2, red)
Font.Draw ("The Meliisa Virus", 245, 450, font3, purple)
Font.Draw ("Meliisa will now delete all your system components", 120, 350, font1, blue)

i1 := 0
proc count
    drawbox (530, 240, 230, 220, white)
    for i : 0 .. 300
        drawbox (230 + i, 240, 230, 220, white)
        delay (20)
        locate (17, 46)
        put i div 3, "%"
        i1 := i div 3
    end for
end count

proc flicker
    for count : 1 .. 200
        drawfillbox (0, 0, maxx, maxy, white)
        delay (5)
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("You have installed the setup for", 200, 490, font2, red)
        Font.Draw ("The Meliisa Virus", 245, 450, font3, purple)
        Font.Draw ("Meliisa will now delete all your system components", 120, 350, font1, blue)
        drawfillbox (530, 240, 230, 220, white)
        locate (17, 46)
        put "100%"
        Font.Draw ("Disableing Computer", 305, 185, font4, yellow)
    end for
    delay (100)
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw ("Fatal System Error", 10, 505, font4, green)
    for count1 : 1 .. 4
        Font.Draw (".", 160, 505, font4, green)
        delay (800)
        drawfillbox (159, 504, 165, 510, black)
        delay (600)
    end for
    Font.Draw ("Computer Shut Down", 10, 460, font4, red)
    delay (1000)
    cls
    for z : 1 .. 2
        Font.Draw ("Just Kidding!!", 220, 360, font3, red)
        delay (500)
        cls
        Font.Draw ("Just Kidding!!", 220, 360, font3, yellow)
        delay(500)
        cls
    end for
    cls
    Font.Draw ("Have a nice day!", 260, 360, font3, blue)
    delay(1000)
    Font.Draw ("Brought to you by Boarder16...gimme your bits!!", 100, 300, font1, blue)
    delay(2000)
    cls
    Window.Close(winID)
end flicker

process files
    loop
        if i1 > 0 and i1 < 5 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Preparing viral componenets", 270, 185, font4, yellow)
        elsif i1 > 5 and i1 < 40 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Formatting Excess Drives", 275, 185, font4, yellow)
        elsif i1 > 40 and i1 < 80 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Deleting Windows Run Files", 275, 185, font4, yellow)
        elsif i1 > 80 and i1 < 100 then
            drawfillbox (530, 180, 230, 215, black)
            Font.Draw ("Disableing Computer", 305, 185, font4, yellow)
        end if
        exit when i1 = 100
        delay (20)
    end loop
    flicker
end files

fork files
count