Short_1's suggestion

[Boarder16]

this is a program i made(boarder16 not short_1) that looskliek a virus... i know its not all that convincing but i'm bored lol, anyway i'll psot hte cod so u no it'l ldo nothin to ur comp..ok.. the writign dosent look liek a real virus but meh... have fun and do waht it says at the very end..!!!

code:

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

bits bits bits bits!

[Cervantes]

eew processes.

that program is pretty evil. However it's utterly and completely pointless
If you're bored in Turing, try to make you're favorite classic game.
Click here for some game ideas.

[josh]

this is neat but it is really hard to read the green text on the black background.

[jonos]

that's pretty cool, but the spelling mistakes may make it appear to be a joke.

[the_short1]

funny... jsut what i was thinking... well acually i was thinking of new virus that was called

W32@Tripple.Threat << Mellisa, WTC, And MSBlaster >>
you have been infected with all three... ENJOY!!! MUAHAHHAHAHHA

but you got the idea..... seriously... make a game to fill in your time..... maybe make a pong (everyones made a pong game... but there cool)

[Maverick]

ahhh SEIZURE

[jonos]

tahts cool and everything, but you have to chagne the font colours becauseit doesn't look professional. anyways, good job.