max v2;
#N vpatcher 78 132 992 649;
#P window setfont "Sans Serif" 14.;
#P window linecount 1;
#P newex 355 159 85 196622 sel 1 2 3;
#P window setfont "Sans Serif" 12.;
#P number 540 364 44 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 575 328 65 196620 zl mth;
#P newex 575 194 73 196620 route text;
#P user textedit 587 128 657 184 32896 3 12 1 1 1 1 2 2 1 3 3 1 1 3 3 1;
#P button 448 362 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 286 37 44 196617 del 100;
#P button 411 117 28 0;
#P newex 811 314 27 196617 - 1;
#P button 679 187 21 0;
#P window setfont "Sans Serif" 12.;
#P newex 636 264 112 196620 counter1.pat.txt;
#P toggle 730 24 27 0;
#P newex 712 59 75 196620 metro 250;
#P button 727 86 31 0;
#P newex 738 233 41 196620 zl len;
#P newex 738 195 73 196620 route text;
#P newex 684 330 92 196620 zl mth;
#P newex 684 458 115 196620 noteout;
#P newex 684 420 130 196620 makenote 100 250;
#P number 684 381 44 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 635 289 44 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 2;
#P newex 468 409 58 196620 random 60;
#P user textedit 737 130 842 184 32896 3 12 60 60 67 67 69 69 67 65 65 64 64 62 62 60;
#P window setfont "Sans Serif" 9.;
#P window linecount 4;
#P comment 535 389 100 196617 note: in Max ver.6 zl lookup \, and inlet right and left reversed;
#P window setfont "Sans Serif" 14.;
#P window linecount 3;
#P comment 596 40 100 196622 serie: seqence of given note;
#P window setfont "Sans Serif" 12.;
#P number 366 320 38 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 412 319 35 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 324 319 35 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 1;
#P message 364 199 71 196620 60 65 69;
#P message 287 197 64 196620 60 64 67;
#P message 446 198 66 196620 59 62 67;
#P newex 332 243 90 196620 unpack 0 0 0;
#P toggle 91 57 27 0;
#P newex 89 100 75 196620 metro 250;
#P window setfont "Sans Serif" 9.;
#P newex 250 259 32 196617 print;
#P button 89 136 31 0;
#P window setfont "Sans Serif" 12.;
#P newex 202 263 41 196620 zl len;
#P newex 178 227 73 196620 route text;
#P newex 90 309 52 196620 zl mth;
#P newex 102 413 64 196620 noteout;
#P newex 82 368 130 196620 makenote 100 250;
#P number 89 337 44 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 92 279 44 12 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 2;
#P newex 89 233 58 196620 random 60;
#P user textedit 145 169 245 219 32896 3 12 60 64 67;
#P window setfont "Sans Serif" 9.;
#P window linecount 4;
#P comment 148 300 100 196617 note: in Max ver.6 zl lookup \, and inlet right and left reversed;
#P window setfont "Sans Serif" 14.;
#P window linecount 2;
#P comment 506 101 75 196622 Chord sequence;
#P window linecount 3;
#P comment 171 43 100 196622 random seqence of given note;
#P window linecount 4;
#P comment 375 28 178 196622 Play only one appropriate chord corresponding to each note;
#P connect 7 0 8 0;
#P connect 21 0 8 0;
#P connect 23 0 8 0;
#P connect 22 0 8 0;
#P connect 16 0 15 0;
#P connect 15 0 13 0;
#P connect 13 0 5 0;
#P connect 10 0 7 0;
#P connect 11 0 10 0;
#P connect 5 0 6 0;
#P connect 8 0 9 0;
#P connect 8 1 9 1;
#P connect 6 0 10 1;
#P connect 12 0 5 1;
#P connect 13 0 4 0;
#P connect 4 0 11 0;
#P connect 11 0 12 0;
#P connect 11 0 14 0;
#P connect 48 0 19 0;
#P connect 17 0 21 0;
#P connect 18 0 17 0;
#P connect 19 0 17 0;
#P connect 20 0 17 0;
#P connect 48 1 20 0;
#P connect 17 1 23 0;
#P connect 17 2 22 0;
#P connect 48 2 18 0;
#P connect 46 0 47 0;
#P connect 44 0 45 0;
#P connect 45 0 46 0;
#P connect 35 0 44 0;
#P connect 28 0 46 1;
#P connect 38 0 28 0;
#P connect 35 0 38 0;
#P connect 33 0 32 0;
#P connect 32 0 29 0;
#P connect 29 0 30 0;
#P connect 30 0 31 0;
#P connect 39 0 38 1;
#P connect 37 0 36 0;
#P connect 36 0 35 0;
#P connect 30 1 31 1;
#P connect 35 0 26 0;
#P connect 26 0 33 0;
#P connect 33 0 34 0;
#P connect 34 0 38 2;
#P connect 28 0 32 1;
#P pop;