Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Shortest useful program
#41
I'm glad you told them, SCM.
*****
Reply
#42
But seph's program is so useful for newbies... as experience to not run everything they download! :lol:
Reply
#43
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 start

i think thats one less line
Reply
#44
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.
earn.
Reply
#45
Survival of the fittest, for computers! :lol:
Reply
#46
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
Reply
#47
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
Reply
#48
Why has there not been a
Code:
CLS
yet?
earn.
Reply
#49
Because the thread was entitled shortest useful program (3 lines), so CLS doesn't count Smile

Dav, your last line could be:

Code:
IF INKEY$ = "" THEN 2

lazy style, but hey Smile
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)