Today I found an old BASIC proram to draw the Sierpinski triangle:

DEFINT X, Y

    FOR Y = 0 TO 255

        FOR X = 0 TO Y

            IF ( X AND ( Y - X ) ) = 0 THEN PSET ( X + 158 - .5*Y, Y + 30 )

        NEXT X

    NEXT Y

END

I translated it into Phrogram but it dosnt work.

Phrogram cant compare two integers bit by bit, so I have to write a little helperfunction

Now it works fine.

Have fun

Michael

Very cool, thanks again Michael!  This is our first ever example of bitwise AND logic implemented in Phrogram, woot!