'===========================================================================
' Subject: SHADED BALLS SCREEN SAVER         Date: 12-18-97 (16:26)       
' Author:  Jodie J. Cunningham               Code: QB, QBasic, PDS        
' Origin:  jodiej@prodigy.net              Packet: GRAPHICS.ABC
'===========================================================================
1 SCREEN 13
CLS
PRINT "Press CTRL+ Pause to exit this screen   saver"
PRINT "Initializing......."
FOR i2 = 1 TO 10000
NEXT i2
PRINT "Starting..........."
FOR i2 = 1 TO 10000
NEXT i2
CLS
RANDOMIZE VAL(RIGHT$(TIME$, 2))
a = 31
b = 0
DO
CIRCLE (50, 50), b, a
CIRCLE (51, 50), b, a
a = a - 1
b = b + 1
LOOP UNTIL b = 15
DO
e = 1
DO
i = INT(RND * 320)
ii = INT(RND * 200)
LOOP UNTIL POINT(i, ii) <> 0
a = 31
b = 0
FOR q = 1 TO 1000
NEXT q
DO
CIRCLE (i, ii), b, a
CIRCLE (i + 1, ii), b, a
a = a - 1
b = b + 1
LOOP UNTIL b = 15
e = e + 1
IF e = 100 THEN GOTO 1
LOOP