10-22-2003, 05:51 AM
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...
- Dav
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
Visit Dav's Qbasic Site