Qbasicnews.com

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13

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

Code:
DO

BEEP

LOOP

Code:
VIEW PRINT 1 TO 25

DO

   COLOR INT(RND * 16), INT(RND * 16)

   PRINT "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"

   SOUND RND * 10000, RND / 2

LOOP

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

do
loop

Quote:do
loop

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

Do

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

Loop

;*)

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

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

Quote: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!

Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13

prof_flex

seph

Phydaux

whitetiger0990

DrV

whitetiger0990

relsoft

BinarySHOCK

aardvark

seph