'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB SOL (x!, y!, radio!, C!)
SCREEN 12

PAINT (1, 1), 2
LINE (0, 0)-(640, 129), 9, BF
FOR A = 130 TO 480
   LINE ((A ^ 2) / 1000, A)-(((A ^ 2) / 100) + 10, A), 7
   LINE ((A ^ 2) / 940, A)-(((A ^ 2) / 930) + 10, A), 15
   LINE ((A ^ 2) / 110, A)-(((A ^ 2) / 105) + 10, A), 15
   IF SIN(A / 5) > 0 THEN : LINE ((A ^ 2) / 260, A)-(((A ^ 2) / 250) + 10, A), 15
NEXT

SLEEP