'Needless toy for a screen show.
'Murat AYDIN <m-aydin@usa.net>


SCREEN 13: aspect = 25: renk1 = 16: renk2 = 31

DO
FOR f = aspect TO 0 STEP -1

FOR a = renk1 TO renk2
CIRCLE STEP(0, 0), 100 - b, a, , , f / 20
b = b + 1: IF b >= 99 THEN b = 0
NEXT

FOR a = renk2 TO renk1 STEP -1
CIRCLE STEP(0, 0), 100 - b, a, , , f / 20
b = b + 1: IF b >= 99 THEN b = 0
NEXT: NEXT
LOOP UNTIL INKEY$ <> ""