Shortest useful program

[Dav]

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

[Dav]

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

[seph]

Why has there not been a

Code:

CLS

yet?

[oracle]

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 2

lazy style, but hey