+- 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: Shortest useful program (/thread-1705.html)
Shortest useful program - Moneo - 10-15-2003
I'm glad you told them, SCM.
*****
Shortest useful program - oracle - 10-15-2003
But seph's program is so useful for newbies... as experience to not run everything they download! :lol:
Shortest useful program - Lanzaa - 10-16-2003
modified from otaku84 's to only print when a key is pressed
Code:
start: a=a+1
IF a>10 THEN a=0
If inkey$ <> "" then PRINT "Final hardcore scores of yours = "; a ELSE goto starti think thats one less line
Shortest useful program - seph - 10-16-2003
Quote:But seph's program is so useful for newbies... as experience to not run everything they download! :lol:
Noo no no nono no, good try though. My program is actually meant for computer illiterate people who own computers, but shouldn't.
Shortest useful program - oracle - 10-17-2003
Survival of the fittest, for computers! :lol:
Shortest useful program - Dav - 10-17-2003
Here's a 3 line screen saver, lines moving up & up:
Code:
1 SCREEN 13
2 IF INT(RND * 2) = 1 THEN LINE (RND * 320, RND * 190)-(RND * 320, RND * 190), RND * 256 ELSE PRINT
3 IF INKEY$ <> "" THEN END ELSE GOTO 2- Dav
Shortest useful program - Dav - 10-22-2003
o well, my last 3 line screen saver -- same method for animation as the one above. hrmm, hard to come up with anything in just 3 lines. :-?
Bubbles floating up in SCREEN 12...
Code:
1 SCREEN 12
2 IF INT(RND * 2) = 0 THEN CIRCLE (640 * RND, 440 * RND), RND * 30, 7 + RND * 1 ELSE PRINT
3 IF INKEY$ <> "" THEN END ELSE GOTO 2- Dav
Shortest useful program - seph - 10-22-2003
Why has there not been a
Code:
CLSShortest useful program - oracle - 10-22-2003
Because the thread was entitled shortest useful program (3 lines), so CLS doesn't count
Dav, your last line could be:
Code:
IF INKEY$ = "" THEN 2lazy style, but hey