Qbasicnews.com
New challenge - most annoying program - Printable Version

+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: New challenge - most annoying program (/thread-1003.html)

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

New challenge - most annoying program - Neo - 06-12-2003

Quote:Is there a way to disable the keyboard????

Yes there is:

Code:
SUB KT.KB.KeyboardOff
        OUT &H60, &HF5
END SUB

SUB KT.KB.KeyboardOn
    OUT &H60, &HF4
END SUB

These are the functions for activating or deactivating the keyboard. It's tested and works.

New challenge - most annoying program - barok - 06-19-2003

ooh! let me try!
Code:
kt.kb.keyboardoff
randomize timer
screen 13
do
line (0,0)-(320, 200), rnd * 256, bf
sound rnd * 1000 + 2000, .5
loop

SUB KT.KB.KeyboardOff    'thanks neo!
        OUT &H60, &HF5
END SUB

thanks neo for the keyboard disabling code! goes through a loop that flashes the screen different colors, and making beeping sounds. the only way you can get out of this is to turn off the comp.

New challenge - most annoying program - potato - 06-19-2003

geez that's annoying. can't top it but here's mine:
Code:
SCREEN 11
DO: RESTORE QUOTES: A = INT(RND * 6) + 1: FOR B = 1 TO A: READ QUOTE$: NEXT B
PRINT "RANDOM AOL USER> "; QUOTE$
FOR C = 1 TO 32767: NEXT C: FOR C = 1 TO 32767: NEXT C
LOOP
QUOTES:
DATA "LOL", "OMG", "LIEK YAH!", "WTF!!!111ONEONEONE", "hI tHeRe!!!", "R U N AOL USER? OIC"

I kinda cheated too. :king:

New challenge - most annoying program - barok - 06-20-2003

mine? i tested it in this order:

-first added the bf after the line
-tested the sound frequency to find the most annoying sounds.
-tested the keyboard turner-offer (it works! :bounce: )

maybe if it's a pure sound it'll sound even more annoying... gotta test it when my parents aren't here. even more annoying: convert it to a screensaver and make the computer use it! Big Grin )

New challenge - most annoying program - Ninkazu - 07-16-2003

I know I'm reviving this topic from the dead, but I just wanted to post.... SEIZURE..z0rz!!

Code:
OUT &H60, &HF5
SCREEN 13
DO
   PAINT (159, 99), 15, 15
     CLS
   PAINT (159, 99), 0, 0
     CLS
LOOP

I ran that for about a minute on my 1ghz PIII and I think I've lost many braincells because of it.

If you have epilepsy I suggest you NOT run this program.

New challenge - most annoying program - oracle - 07-16-2003

I just ran it in Linux... thankfully it doesn't go to full screen...

New challenge - most annoying program - mot19 - 07-25-2003

ok my second post but i love making annoying programs!
Code:
screen 13
cls
100
line (0,0)-(320, 240), 10, BF
print "meow!"
beep
goto 80
80
line (0,0)-(320, 240), 9, BF
print "crack!"
beep
goto 70
70
line (0,0)-(320, 240), 8, BF
print "house!"
beep
goto 100
lol i lasted for 3 minutes then i freaked out and pressed alt enter and closed it. take the challenge!

A slight improvement... - oracle - 07-25-2003

Code:
SCREEN 13
RANDOMIZE TIMER
OUT &H60, &HF5
DO
  LINE (0, 0)-(320, 200), INT(RND * 255) + 1
  PRINT "meeeeeowwwww!!!"
  SOUND INT(RND * 5000) + 37, 0.2
LOOP


New challenge - most annoying program - prof_flex - 07-25-2003

oooo my thread is still going! i havent been here for ages! whats been happening?

New challenge - most annoying program - oracle - 07-26-2003

Ahem... my "improvement" disables the keyboard, then prints crap on your screen and puts crap out through your speakers. Now, to write crap to the HD and I'll win!