Qbasicnews.com

Full Version: New challenge - most annoying program
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13
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.
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.
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:
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 )
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.
I just ran it in Linux... thankfully it doesn't go to full screen...
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!
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
oooo my thread is still going! i havent been here for ages! whats been happening?
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!
Pages: 1 2 3 4 5 6 7 8 9 10 11 12 13