var num := 1
var num2 : int := 256
loop
    for y : 1 .. 3
        num := 1
        num2 := 1

        for x : 1 .. 8
            parallelput (num + num - 1)
            num *= 2
            delay (75)
        end for

        for x : 1 .. 8
            parallelput (num - num2)
            num2 *= 2
            delay (75)
        end for
        parallelput (0)
    end for




    for y : 1 .. 3
        num := 1
        num2 := 256
        for x : 1 .. 8
            parallelput (num)
            delay (50)
            num *= 2
        end for
        for x : 1 .. 8
            num := round (num / 2)
            parallelput (num)
            delay (50)
        end for
    end for

    for y : 1 .. 3
        num := 1
        num2 := 128

        for x : 1 .. 4
            parallelput (num + num2)
            delay (100)
            num *= 2
            num2 div= 2
        end for

        for x : 1 .. 4
            num div= 2
            num2 *= 2
            parallelput (num + num2)
            delay (100)
        end for
    end for







    for x : 1 .. 10
        parallelput (0)
        delay (100)
        parallelput (255)
        delay (100)
    end for
    for x : 1 .. 8

        parallelput (num2 - 1)
        num2 := round (num2 / 2)
        delay (100)
    end for
    parallelput (0)
delay (1000)
    end loop