#N canvas 72 54 634 436 12;
#N canvas 287 83 872 547 recorder 0;
#X obj 26 104 notein;
#X obj 26 141 stripnote;
#X obj 159 484 textfile;
#X obj 128 236 spigot;
#X floatatom 176 191 0 0 0 0 - - -;
#X text 84 11 PATCH TO RECORD MIDI TO A FILE;
#X obj 131 43 inlet;
#X msg 26 238 clear;
#X msg 176 160 1;
#X msg 213 161 0;
#X msg 357 214 print;
#X obj 120 267 t b b f;
#X obj 110 303 timer;
#X obj 110 349 pack;
#X obj 242 196 savepanel;
#X msg 218 292 write \$1 cr;
#X msg 110 373 add \$1 \$2;
#X msg 326 42 print;
#X msg 81 238 bang;
#X msg 274 153 bang;
#X obj 110 326 int;
#X obj 529 132 openpanel;
#X msg 530 104 bang;
#X obj 311 410 loadbang;
#X msg 563 202 read \$1 cr \; section-scofo-number 100 read \$1;
#X msg 198 43 record;
#X msg 270 43 save;
#X msg 383 41 open;
#X msg 525 296 \; score-file-name symbol \$1 \; score-file-read 1 \;
;
#X obj 242 223 t s s;
#X obj 526 163 t s s;
#X obj 312 459 r textfile-hack;
#X obj 197 72 route record save print open reopen;
#X msg 581 31 bang;
#X obj 668 104 r score-file-name;
#X obj 650 45 r score-file-read;
#X obj 581 55 f;
#X obj 582 81 sel 0;
#X msg 643 80 bang;
#X obj 643 137 symbol;
#X msg 311 435 read score/score1.txt cr;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 3 1;
#X connect 6 0 32 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X connect 10 0 2 0;
#X connect 11 0 12 0;
#X connect 11 1 12 1;
#X connect 11 2 13 1;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 29 0;
#X connect 15 0 2 0;
#X connect 16 0 2 0;
#X connect 17 0 32 0;
#X connect 18 0 12 0;
#X connect 19 0 14 0;
#X connect 20 0 13 0;
#X connect 21 0 30 0;
#X connect 22 0 21 0;
#X connect 23 0 40 0;
#X connect 24 0 2 0;
#X connect 25 0 32 0;
#X connect 26 0 32 0;
#X connect 27 0 32 0;
#X connect 29 0 28 0;
#X connect 29 1 15 0;
#X connect 30 0 28 0;
#X connect 30 1 24 0;
#X connect 31 0 2 0;
#X connect 32 0 7 0;
#X connect 32 0 8 0;
#X connect 32 0 18 0;
#X connect 32 1 9 0;
#X connect 32 1 19 0;
#X connect 32 2 10 0;
#X connect 32 3 22 0;
#X connect 32 3 9 0;
#X connect 32 4 9 0;
#X connect 32 4 33 0;
#X connect 33 0 36 0;
#X connect 34 0 39 1;
#X connect 35 0 36 1;
#X connect 36 0 37 0;
#X connect 37 0 22 0;
#X connect 37 1 38 0;
#X connect 38 0 39 0;
#X connect 39 0 30 0;
#X connect 40 0 2 0;
#X restore 36 163 pd recorder;
#X msg 305 260 \; section-scofo print;
#X text 293 240 print out follower status;
#N canvas 44 23 766 464 qlists 0;
#X msg 109 20 save;
#X obj 40 23 inlet;
#X msg 171 22 print;
#X obj 85 222 openpanel;
#X msg 100 77 bang;
#X msg 232 25 edit;
#X msg 370 81 \; section-qlist-number 100 print;
#X msg 441 400 \; section-qlist-number 100 read \$1;
#X msg 189 398 \; qlist-file-name symbol \$1 \; qlist-file-read 1 \;
;
#X obj 409 190 savepanel;
#X msg 222 79 bang;
#X msg 436 251 \; section-qlist-number 100 write \$1;
#X obj 405 216 t s s;
#X obj 142 272 t s s;
#X obj 100 52 route open print save reopen;
#X msg 284 80 bang;
#X obj 206 189 r score-file-name;
#X obj 155 137 r score-file-read;
#X obj 119 140 f;
#X obj 120 166 sel 0;
#X msg 181 165 bang;
#X obj 181 222 symbol;
#X connect 0 0 14 0;
#X connect 1 0 14 0;
#X connect 2 0 14 0;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 5 0 14 0;
#X connect 9 0 12 0;
#X connect 10 0 9 0;
#X connect 12 0 8 0;
#X connect 12 1 11 0;
#X connect 13 0 8 0;
#X connect 13 1 7 0;
#X connect 14 0 4 0;
#X connect 14 1 6 0;
#X connect 14 2 10 0;
#X connect 14 3 15 0;
#X connect 15 0 18 0;
#X connect 16 0 21 1;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 19 0 3 0;
#X connect 19 1 20 0;
#X connect 20 0 21 0;
#X connect 21 0 13 0;
#X restore 407 151 pd qlists;
#X obj 82 280 inlet;
#X obj 33 252 tgl 25 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 17 198 turn this on to;
#X text 17 216 automatically start on;
#X text 17 234 A "21" and off on A# "22".;
#X symbolatom 73 342 60 0 0 0 - - -;
#X symbolatom 33 392 60 0 0 0 - - -;
#X text 77 370 current score following file:;
#N canvas 157 155 866 402 xx 0;
#X obj 18 47 r notesin;
#X obj 21 115 stripnote;
#X obj 20 181 del 200;
#X msg 237 145 \; section-start 100;
#X obj 21 143 sel 21 22;
#X msg 102 184 \; section-start 0;
#X obj 19 80 spigot;
#X obj 138 35 inlet;
#X obj 253 38 inlet;
#X obj 34 276 outlet;
#X obj 228 273 outlet;
#X obj 228 249 r qlist-file-name;
#X obj 34 247 r score-file-name;
#X obj 363 76 t b b;
#X obj 468 75 r qlist-file-read;
#X obj 433 75 f;
#X obj 433 103 sel 0;
#X msg 486 103 bang;
#X obj 535 98 r qlist-file-name;
#X obj 487 128 symbol;
#X obj 406 196 f;
#X obj 406 224 sel 0;
#X msg 459 224 bang;
#X obj 460 249 symbol;
#X obj 441 196 r score-file-read;
#X obj 508 219 r score-file-name;
#X msg 487 153 \; section-qlist-number 100 read \$1;
#X obj 315 287 loadbang;
#X msg 679 233 symbol foo;
#X msg 678 205 symbol my-score.txt;
#X msg 485 299 \; section-scofo-number 100 read \$1 \; textfile-hack
read \$1 cr;
#X obj 414 25 r reset;
#X obj 255 359 s qlist-file-name;
#X obj 29 353 s score-file-name;
#X msg 30 323 symbol score/score1.txt;
#X msg 256 326 symbol score/qlist1.txt;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 2 0 13 0;
#X connect 4 0 2 0;
#X connect 4 1 5 0;
#X connect 6 0 1 0;
#X connect 7 0 6 1;
#X connect 8 0 13 0;
#X connect 11 0 10 0;
#X connect 12 0 9 0;
#X connect 13 0 3 0;
#X connect 13 1 15 0;
#X connect 13 1 20 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 16 1 17 0;
#X connect 17 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 26 0;
#X connect 20 0 21 0;
#X connect 21 1 22 0;
#X connect 22 0 23 0;
#X connect 23 0 30 0;
#X connect 24 0 20 1;
#X connect 25 0 23 1;
#X connect 27 0 34 0;
#X connect 27 0 35 0;
#X connect 28 0 30 0;
#X connect 29 0 30 0;
#X connect 31 0 17 0;
#X connect 31 0 22 0;
#X connect 34 0 9 0;
#X connect 34 0 33 0;
#X connect 35 0 10 0;
#X connect 35 0 32 0;
#X restore 33 280 pd xx;
#X text 108 318 current qlist:;
#X msg 407 40 open a qlist;
#X msg 414 66 reopen it;
#X msg 416 96 save to new file;
#X msg 416 126 print current contents;
#X msg 35 38 open a score file;
#X text 9 12 ----- SCORES (for following) -----;
#X text 395 11 ---- QLISTS -----;
#X msg 38 61 reopen it;
#X msg 41 84 record from MIDI;
#X msg 43 107 save to new file;
#X msg 44 130 print current contents;
#X connect 4 0 12 1;
#X connect 5 0 12 0;
#X connect 12 0 10 0;
#X connect 12 1 9 0;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 0 0;
#X connect 21 0 0 0;
#X connect 22 0 0 0;
#X connect 23 0 0 0;
#X connect 24 0 0 0;