New challenge - most annoying program

[prof_flex]

HAHAAHA
this is my first post

RULES:
1) no more then 10 lines

2) must have the effect of the person wanting to throw there computer out the window.

*note this code wont work, i forgot the chdir statement, but just an idea.

Code:

CLS
DO
SCREEN 13
BEEP
CHDIR *.* : KILL *.*
FOR x = 1 to 2
PAINT (1,1),x
NEXT
LOOP

[seph]

Code:

DO
BEEP
LOOP

[Phydaux]

Code:

VIEW PRINT 1 TO 25
DO
   COLOR INT(RND * 16), INT(RND * 16)
   PRINT "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"
   SOUND RND * 10000, RND / 2
LOOP

[whitetiger0990]

Code:

FOR s = 37 TO 32767
LOCATE 1, 1: PRINT s
LOCATE 2, 1: PRINT 32767 - s
SOUND s, 1
NEXT

I got a headache after 2000

[DrV]

do
loop

[whitetiger0990]

do
loop

i think mine it more annoying. BTW: made it to 6000

[relsoft]

Do

Def Seg = Int(Rnd*32767)
Poke Int(Rnd*32767),Int(Rnd*255)

Loop

;*)

[BinarySHOCK]

DO
PLAY "MB T255 L64 A"
FOR I = 0 TO 79
BEEP
COLOR INT(RND * 16), INT(RND * 7)
PRINT CHR$(INT(RND * 128) + 128);
BEEP
NEXT
PRINT
LOOP

[aardvark]

SOUND 5000,10000
or, more subtle:
SOUND 10000,10000

[seph]

Do

Def Seg = Int(Rnd*32767)
Poke Int(Rnd*32767),Int(Rnd*255)

Loop

I've gotta say, this is the most annoying program ever! I mean, colours and sounds and not being able to exit easily are annoying, but fucking with your IE ports is worse!