' Sun; Earth and Moon
' made by Svjatoslav Agejenko
' in 1999
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 

DECLARE SUB maa (a2%, b2%, c2%)
DEFINT A-Y
DIM SHARED zw
DIM SHARED zy
SCREEN 7, , , 1



z = 0
1
z = z + .01
a1 = SIN(z) * 100 + 100
b1 = COS(z) * 30 + 100
IF b1 >= 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12
maa a1, b1, (b1 - 70) / 2 + 2
IF b1 < 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12
PCOPY 0, 1
CLS
IF INKEY$ = "" THEN GOTO 1
SYSTEM

SUB maa (a2, b2, c2)
ed = (b2 - 70) / 2 + 2

zw = zw + .1
zy = zy + .01

a1 = SIN(zw) * ed * 2
b1 = COS(zw) * 10

IF b1 > 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1

CIRCLE (a1 + a2, b1 + b2), ((b1 + 20) * ed) \ 50, 14
PAINT (a1 + a2, b1 + b2), 14

IF b1 <= 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1
END SUB