' Svjatoslav Agejenko

DEFINT A-Y

DIM SHARED cx(1 TO 100)
DIM SHARED cy(1 TO 100)
DIM SHARED cz(1 TO 100)
DIM SHARED cc(1 TO 100)

SCREEN 7, , , 1
f = 0
1
b = 0
zf = zf + .1
FOR a = 1 TO 20

b = b + 1
cx(b) = SIN(a / 2 + zf) * 30 + 150
cz(b) = SIN(a / 2 + zf + 1.6) * 2 + 2
cy(b) = a * 8 + cz(b)
cc(b) = 3
b = b + 1
cx(b) = SIN(a / 2 + zf + 2.5) * 30 + 150
cz(b) = SIN(a / 2 + zf + 1.6 + 2.5) * 2 + 2
cy(b) = a * 8 + cz(b)
cc(b) = 4
NEXT a

CLS
FOR b = 0 TO 4

IF b = 1 THEN
FOR a = 1 TO 40 STEP 2
LINE (cx(a), cy(a))-(cx(a + 1), cy(a + 1)), 15
NEXT a
END IF

FOR a = 1 TO 40
IF cz(a) = b THEN
CIRCLE (cx(a), cy(a)), b + 5, cc(a)
PAINT (cx(a), cy(a)), cc(a)
CIRCLE (cx(a), cy(a)), b + 5, 0
END IF
NEXT a
NEXT b
PCOPY 0, 1
CLS
IF INKEY$ = "" THEN GOTO 1
SYSTEM