ad728117ec411

Raw Download Revise
.PROGRAM pal()

        PARAMETER HAND.TIME = 0.5

        SPEED 100 ALWAYS

        m = 10

        h = 10

        dx = 10

        dy = 10

        MOVE safe

        OPEN

        BREAK

        FOR i = 0 TO m-2

            SET pick = SHIFT(p1 BY 0,0,h*(m-1-i))

            x = dx*(i MOD 3)

            y = dy*INT(i/3)

            z = 0

            SET place = SHIFT(p2 BY x,y,z)

            CALL p_p(pick, place)

        END

        SET pick = SHIFT(p1 BY 0,0,0)

        x = dx

        y = dy

        z = h

        SET place = SHIFT(p2 BY x,y,z)

        CALL p_p(pick, place)

        MOVE safe

.END