#N canvas 0 0 747 791 10;
#X obj 155 283 textfile;
#N canvas 347 55 911 724 get-command 0;
#X obj 57 120 moses 128;
#X floatatom 77 83 5 0 0 0 - - -;
#X obj 135 120 moses 144;
#X obj 135 177 - 128;
#X obj 230 179 - 144;
#X obj 57 27 inlet;
#X obj 385 397 outlet;
#X obj 230 119 moses 160;
#X text 255 435 Midi commands:;
#X text 266 508 176 + channel = cc;
#X text 266 531 192 + channel = pgm change;
#X text 271 551 224 + channel = pitch wheel;
#X obj 672 180 - 224;
#X obj 563 178 - 192;
#X obj 457 178 - 176;
#X text 263 489 160 + channel = polypressure;
#X obj 333 177 - 160;
#X obj 333 118 moses 176;
#X obj 457 118 moses 192;
#X obj 563 118 moses 224;
#X obj 672 120 moses 240;
#X msg 135 304 \$1 noteoff;
#X msg 230 304 \$1 noteon;
#X msg 332 305 \$1 polypressure;
#X msg 457 305 \$1 cc;
#X msg 563 300 \$1 pgm;
#X msg 672 301 \$1 pitchwheel;
#X text 261 451 128 + channel = note off;
#X text 262 470 144 + channel = note on;
#X connect 0 1 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 1 7 0;
#X connect 3 0 21 0;
#X connect 4 0 22 0;
#X connect 5 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 17 0;
#X connect 12 0 26 0;
#X connect 13 0 25 0;
#X connect 14 0 24 0;
#X connect 16 0 23 0;
#X connect 17 0 16 0;
#X connect 17 1 18 0;
#X connect 18 0 14 0;
#X connect 18 1 19 0;
#X connect 19 0 13 0;
#X connect 19 1 20 0;
#X connect 20 0 12 0;
#X connect 21 0 6 0;
#X connect 22 0 6 0;
#X connect 23 0 6 0;
#X connect 24 0 6 0;
#X connect 25 0 6 0;
#X connect 26 0 6 0;
#X restore 195 374 pd get-command;
#X obj 155 323 list split 1;
#X obj 195 343 list split 1;
#X obj 195 410 list;
#X obj 155 508 list;
#X obj 155 608 outlet;
#X obj 155 253 until;
#X msg 207 255 read \$1 \, rewind;
#X text 170 303 time <midicommand> <data>;
#X text 200 515 now we have: time RECEIVER channel <command> <data>
;
#X obj 155 405 -;
#X obj 155 380 t f f;
#X obj 155 215 t b a b;
#X msg 503 307 0;
#X obj 155 455 list append \$0-qlist;
#X text 329 450 append desired receiver name;
#X obj 155 536 list prepend add;
#X obj 155 560 list trim;
#X obj 155 583 qlist;
#X obj 207 608 outlet;
#X obj 37 588 r \$0-qlist;
#X obj 37 610 outlet;
#X obj 155 33 inlet;
#X obj 201 135 loadbang;
#X obj 201 159 list append \$1;
#X obj 201 181 select 0;
#X obj 155 62 list trim;
#X obj 155 85 route open;
#X obj 155 168 list;
#X obj 36 535 r \$0-qlist-ctl;
#X obj 222 106 s \$0-qlist-ctl;
#X connect 0 0 2 0;
#X connect 0 1 7 1;
#X connect 1 0 4 0;
#X connect 2 0 12 0;
#X connect 2 1 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 1;
#X connect 4 0 5 1;
#X connect 5 0 17 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 11 0 15 0;
#X connect 12 0 11 1;
#X connect 12 1 11 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 13 2 14 0;
#X connect 14 0 11 1;
#X connect 15 0 5 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 6 0;
#X connect 19 1 20 0;
#X connect 21 0 22 0;
#X connect 23 0 27 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 1 13 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 1 31 0;
#X connect 29 0 13 0;
#X connect 30 0 19 0;
