graphic #g, 300,300
order = 8
width = 100
w     = width * 11
dim canvas(w,w)
canvas(1,1) = 1

for x = 2 to 2^order -1
    canvas(x,1) = 1
    canvas(x,x) = 1
    for y = 2 to x -1
        canvas( x, y) = (canvas(x -1,y -1) + canvas(x -1, y)) mod 2
        if canvas(x,y) mod 2 then #g "set "; width + (order*3) + y - x / 2;" "; x
    next y
next x
render #g
#g "flush"
wait