10-17-2003, 04:11 AM
Here's a 3 line screen saver, lines moving up & up:
- Dav
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
Visit Dav's Qbasic Site