+- 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: Challenge.... (/thread-93.html)
Challenge.... - red_Marvin - 04-19-2003
oracle: I never meant I don't trust you and I trust everybody here
if they say "I've done this code myself" but what I said was just
this normal security/rights/watever blah and I didn't mean to
offend you or anybody else here as a matter of fact, I take it
as a great honour if somebody is willing to do anything with my
code as I think my programming skills are very modest in comparision
with other programmers here...
Challenge.... - oracle - 04-20-2003
Marvin: That's cool. I just wanted my policy known to all :wink:
Challenge.... - relsoft - 04-21-2003
Oracle: Yep you can host em. :*)
Link:
http://qb45.tonez-online.com/qbasic/pn/modules.php?op=modload&name=Downloads&file=index&req=viewdownloaddetails&lid=1475&ttitle=The_Nine_Liners
Challenge.... - oracle - 04-22-2003
Thanks!
I never found that site before, can you believe it? It never showed up when I was doing a google search. I should be searching with dogpile or something...
Nathan: DOSEMU WORKS!!! Thanks man! Now to get the mouse to work and then I'm really rocking!
Challenge.... - seph - 05-23-2003
I like this one a lot, considering I'm not a very creative person
Code:
SCREEN 13
WHILE INKEY$ = ""
'CLS
RANDOMIZE TIMER * 4
x = INT((320) * RND + 1)
y = INT((200) * RND + 1)
PSET (x, y), x + y
IF x = y THEN CLS
WENDChallenge.... - seph - 05-23-2003
Jesus, there are over 20 screensavers on the first 2 pages alone! How do I know which ones are worth seeing!?
Challenge.... - relsoft - 05-23-2003
All of it are worth seeing. Check out all of it or you'll miss some of the best. :*)
Challenge.... - oracle - 05-23-2003
An' they're all going up on QBNZ, so congrats to the authors for making some of the best limited line code I have seen, and please, by all accounts, make some more!
Challenge.... - BinarySHOCK - 05-23-2003
well here's another 1
1 SCREEN 13
2 M% = 1
3 FOR J% = 0 TO 119
4 FOR I% = 0 TO 119
5 PSET (I% + 95, J% + 30), SQR((I% * J%) MOD (L% + 1))
6 NEXT I%, J%
7 L% = (L% + M%)
8 IF L% = 64 OR L% = 0 THEN IF M% = 1 THEN M% = -1 ELSE M% = 1
9 IF LEN(INKEY$) = 0 THEN 3
Challenge.... - oracle - 05-24-2003
Good... keep sending them in, they'll all be goin' on QBNZ.