Gibanje po kroznici

.PROGRAM krog()
        ACCEL 60, 60
        SPEED 100 ALWAYS
        i = 1
        x0 = 520
        y0 = 120
        z = 800
        r = 100
        FOR kot = 0 TO 360 STEP 5
            x = r*COS(kot)+x0
            y = r*SIN(kot)+y0
            MOVES TRANS(x, y, z, 0, 180, 0)
            TIMER 1 = 0
            DO
                IF TIMER(1) > 0.015 THEN
                    t[i] = TIMER(1)
                    HERE k[i]
                    TIMER 1 = 0
                    i = i+1
                END
            UNTIL STATE(2) == 2
        END
.END