#N canvas -9 18 331 270 10;
#X obj 34 136 outlet;
#X obj 34 62 inlet;
#X obj 92 136 outlet;
#X text 34 194 1993 by Karlheinz Essl;
#X text 108 86 check for octaves;
#N canvas 517 208 637 374 check2 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 270 int;
#X obj 117 76 t a b a a;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 117 305 outlet;
#X obj 173 305 outlet;
#X text 259 123 if ($i1-$i2)%12==0 then out2 bang else $i1;
#X obj 117 155 -;
#X obj 117 190 % 12;
#X obj 117 214 == 0;
#X obj 173 281 bang;
#X obj 117 237 select 0 1;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 13 1 12 0;
#X restore 34 87 pd check2;
#X obj 34 110 t a a;
#X connect 1 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 2 0;
#X connect 6 0 0 0;
#X connect 6 1 5 1;
