Gibanje po trikotniku

.PROGRAM trikot(a)
        MOVES a
        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
.PROGRAM trikotnik()
        ACCEL 30, 30
        SPEED 100 ALWAYS
        i = 1
        MOVE t3
        CALL trikot(t1)
        CALL trikot(t2)
        CALL trikot(t3)
.END