01-29-2003, 03:20 AM
Worked on one for hours today, but just couldn't get it under 10 lines, so here's one I already had that made it to 9 lines that I'll post instead.
It's just your basic 3D balls filling up the screen 'till a keypress...
- Dav
It's just your basic 3D balls filling up the screen 'till a keypress...
Code:
1 SCREEN 13
2 clr% = 16
3 x% = RND * 320
4 y% = RND * 200
5 FOR z% = (RND * 15 + 1) TO 1 STEP -1
6 CIRCLE (x%, y%), z%, clr%
7 IF INKEY$ = "" THEN PAINT (x%, y%), clr% ELSE END
8 IF z% = 1 THEN GOTO 2 ELSE clr% = clr% + 1
9 NEXT
- Dav
Visit Dav's Qbasic Site