SCREEN 13
CONST pi2 = 6.28318531#
RANDOMIZE TIMER
INPUT "Vvedite kol-vo dyg: ", kd
clr = 2
 
FOR i = 0 TO kd
        clr = clr + 1
        DO WHILE u < pi2 / kd
                u = u + .01
                PSET (160 + SIN(u + i * pi2 / kd) * 50, 100 - COS(u + i * pi2 / kd) * 50), clr
        LOOP
        u = 0
NEXT