[maxmsp] optimisizing a midi patch

Hello all, I'd like to ask for help on a patch I've been working on. I've done the best I could but I'm new to Max and I think what I want to do can be done in a much more efficient way. Here's the idea of the patch :

I have four midi ports coming into my computer with 16 channels by port. That makes 4*4 groups of 4 channels, for each of these groups I want to be able to chose one active channel (with a rotary selector, and there must be a position where nothing come through) and route this channel to an output of my choice (the routing part I have not done yet). This must be a very simple operation but my way of doing it seems too complicated so any help would be appreciated.

Thanks in advance.
Pierre

Here's my patch :

max v2;
#N vpatcher 16 61 1070 922;
#P origin 37 47;
#P window setfont "Sans Serif" 9.;
#P comment 484 525 37 9109513 D 01-04;
#P comment 576 525 40 9109513 D 05-08;
#P comment 671 525 38 9109513 D 09-12;
#P comment 758 525 47 9109513 D 13-16;
#P comment 25 525 37 9109513 B 01-04;
#P comment 98 525 40 9109513 B 05-08;
#P comment 183 525 38 9109513 B 09-12;
#P comment 259 525 47 9109513 B 13-16;
#P comment 478 274 37 9109513 C 01-04;
#P comment 573 274 40 9109513 C 05-08;
#P comment 668 274 38 9109513 C 09-12;
#P comment 758 274 47 9109513 C 13-16;
#P hidden newex 734 340 66 9109513 switch 4;
#P hidden newex 650 340 66 9109513 switch 4;
#P hidden newex 551 383 118 9109513 borax;
#P hidden newex 561 340 66 9109513 switch 4;
#P hidden newex 473 340 66 9109513 switch 4;
#P hidden newex 767 494 46 9109513 ctlin 51 1;
#P hidden newex 679 494 46 9109513 ctlin 50 1;
#P hidden newex 582 494 46 9109513 ctlin 49 1;
#P hidden newex 483 494 46 9109513 ctlin 48 1;
#P user dial 758 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 703 340 66 9109513 switch 4;
#P hidden newex 760 291 54 9109513 notein d 16;
#P hidden newex 746 291 54 9109513 notein d 15;
#P hidden newex 720 291 54 9109513 notein d 14;
#P hidden newex 697 291 54 9109513 notein d 13;
#P user dial 671 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 629 340 66 9109513 switch 4;
#P hidden newex 681 291 54 9109513 notein d 12;
#P hidden newex 661 291 54 9109513 notein d 11;
#P hidden newex 642 291 54 9109513 notein d 10;
#P hidden newex 631 291 49 9109513 notein d 9;
#P newex 800 382 51 9109513 noteout a;
#P user dial 576 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 539 340 66 9109513 switch 4;
#P hidden number 405 424 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 395 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 368 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 342 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 612 291 49 9109513 notein d 8;
#P user dial 484 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 446 340 66 9109513 switch 4;
#P hidden newex 582 291 49 9109513 notein d 7;
#P hidden newex 566 291 49 9109513 notein d 6;
#P hidden newex 451 291 49 9109513 notein d 2;
#P hidden newex 468 291 49 9109513 notein d 3;
#P hidden newex 501 291 49 9109513 notein d 4;
#P hidden newex 552 291 49 9109513 notein d 5;
#P hidden newex 429 291 49 9109513 notein d 1;
#P hidden newex 721 99 66 9109513 switch 4;
#P hidden newex 650 99 66 9109513 switch 4;
#P hidden newex 574 147 118 9109513 borax;
#P hidden newex 582 99 66 9109513 switch 4;
#P hidden newex 489 99 66 9109513 switch 4;
#P hidden newex 767 253 46 9109513 ctlin 35 1;
#P hidden newex 680 253 46 9109513 ctlin 34 1;
#P hidden newex 586 253 46 9109513 ctlin 33 1;
#P hidden newex 486 253 46 9109513 ctlin 32 1;
#P user dial 758 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 697 99 66 9109513 switch 4;
#P hidden newex 745 21 54 9109513 notein c 16;
#P hidden newex 721 21 54 9109513 notein c 15;
#P hidden newex 699 21 54 9109513 notein c 14;
#P hidden newex 705 21 54 9109513 notein c 13;
#P user dial 668 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 642 99 66 9109513 switch 4;
#P hidden newex 659 21 54 9109513 notein c 12;
#P hidden newex 648 21 54 9109513 notein c 11;
#P hidden newex 637 21 54 9109513 notein c 10;
#P hidden newex 628 21 49 9109513 notein c 9;
#P newex 823 153 51 9109513 noteout a;
#P user dial 573 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 549 99 66 9109513 switch 4;
#P hidden number 405 153 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 122 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 98 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 405 72 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 577 21 49 9109513 notein c 8;
#P user dial 478 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 460 99 66 9109513 switch 4;
#P hidden newex 584 21 49 9109513 notein c 7;
#P hidden newex 584 21 49 9109513 notein c 6;
#P hidden newex 455 21 49 9109513 notein c 2;
#P hidden newex 502 21 49 9109513 notein c 3;
#P hidden newex 536 21 49 9109513 notein c 4;
#P hidden newex 584 21 49 9109513 notein c 5;
#P hidden newex 435 21 49 9109513 notein c 1;
#P hidden newex 326 340 66 9109513 switch 4;
#P hidden newex 250 340 66 9109513 switch 4;
#P hidden newex 174 383 118 9109513 borax;
#P hidden newex 159 340 66 9109513 switch 4;
#P hidden newex 76 340 66 9109513 switch 4;
#P hidden newex 286 494 46 9109513 ctlin 19 1;
#P hidden newex 199 494 46 9109513 ctlin 18 1;
#P hidden newex 122 494 46 9109513 ctlin 17 1;
#P hidden newex 46 494 46 9109513 ctlin 16 1;
#P user dial 259 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 302 340 66 9109513 switch 4;
#P hidden newex 314 291 54 9109513 notein b 16;
#P hidden newex 305 291 54 9109513 notein b 15;
#P hidden newex 297 291 54 9109513 notein b 14;
#P hidden newex 285 291 54 9109513 notein b 13;
#P user dial 183 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 213 340 66 9109513 switch 4;
#P hidden newex 239 291 54 9109513 notein b 12;
#P hidden newex 239 291 54 9109513 notein b 11;
#P hidden newex 217 291 54 9109513 notein b 10;
#P hidden newex 202 291 49 9109513 notein b 9;
#P newex 340 386 51 9109513 noteout a;
#P user dial 98 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 134 340 66 9109513 switch 4;
#P hidden number 17 476 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 17 392 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 17 369 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 19 344 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 152 291 49 9109513 notein b 8;
#P user dial 25 419 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 62 340 66 9109513 switch 4;
#P hidden newex 159 291 49 9109513 notein b 7;
#P hidden newex 123 291 49 9109513 notein b 6;
#P hidden newex 35 291 49 9109513 notein b 2;
#P hidden newex 74 291 49 9109513 notein b 3;
#P hidden newex 88 291 49 9109513 notein b 4;
#P hidden newex 124 291 49 9109513 notein b 5;
#P hidden newex 33 291 49 9109513 notein b 1;
#P hidden newex 310 103 66 9109513 switch 4;
#P hidden newex 227 103 66 9109513 switch 4;
#P hidden newex 174 155 118 9109513 borax;
#P hidden newex 150 103 66 9109513 switch 4;
#P hidden newex 74 103 66 9109513 switch 4;
#P hidden newex 265 253 41 9109513 ctlin 3 1;
#P hidden newex 193 253 41 9109513 ctlin 2 1;
#P hidden newex 101 253 41 9109513 ctlin 1 1;
#P hidden newex 35 253 41 9109513 ctlin 0 1;
#P user dial 256 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 307 103 66 9109513 switch 4;
#P hidden newex 350 21 54 9109513 notein a 16;
#P hidden newex 342 21 54 9109513 notein a 15;
#P hidden newex 330 21 54 9109513 notein a 14;
#P hidden newex 319 21 54 9109513 notein a 13;
#P user dial 180 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 228 103 66 9109513 switch 4;
#P hidden newex 269 21 54 9109513 notein a 12;
#P hidden newex 260 21 54 9109513 notein a 11;
#P hidden newex 246 21 54 9109513 notein a 10;
#P hidden newex 238 21 49 9109513 notein a 9;
#P newex 342 180 51 9109513 noteout a;
#P user dial 95 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 150 103 66 9109513 switch 4;
#P hidden number 24 149 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 24 118 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 24 98 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden number 24 76 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P hidden newex 181 21 49 9109513 notein a 8;
#P user dial 22 192 54 54 5 1 0 0 159 270 1 1. 170 170 170 221 221 221 120 120 120 225 225 225 0 0 0 0 0 0;
#P hidden newex 76 103 66 9109513 switch 4;
#P hidden newex 163 21 49 9109513 notein a 7;
#P hidden newex 147 21 49 9109513 notein a 6;
#P hidden newex 44 21 49 9109513 notein a 2;
#P hidden newex 62 21 49 9109513 notein a 3;
#P hidden newex 83 21 49 9109513 notein a 4;
#P hidden newex 133 21 49 9109513 notein a 5;
#P hidden newex 29 21 49 9109513 notein a 1;
#P comment 22 274 37 9109513 A 01-04;
#P comment 95 274 40 9109513 A 05-08;
#P comment 180 274 38 9109513 A 09-12;
#P comment 256 274 47 9109513 A 13-16;
#P hidden connect 46 1 53 0;
#P hidden connect 45 1 54 0;
#P hidden connect 49 0 55 0;
#P hidden connect 42 1 52 0;
#P hidden connect 33 0 12 0;
#P hidden connect 4 1 14 0;
#P hidden connect 8 1 15 0;
#P hidden connect 7 1 16 0;
#P hidden connect 11 0 17 0;
#P hidden connect 71 0 50 0;
#P hidden connect 50 0 49 0;
#P hidden connect 12 0 37 0;
#P hidden connect 12 0 11 0;
#P hidden connect 50 0 75 0;
#P hidden connect 42 0 49 1;
#P hidden connect 4 1 37 1;
#P hidden connect 4 0 11 1;
#P hidden connect 42 1 75 1;
#P hidden connect 46 0 49 2;
#P hidden connect 34 0 19 0;
#P hidden connect 72 0 57 0;
#P hidden connect 8 1 37 2;
#P hidden connect 8 0 11 2;
#P hidden connect 46 1 75 2;
#P hidden connect 45 0 49 3;
#P hidden connect 7 1 37 3;
#P hidden connect 7 0 11 3;
#P hidden connect 45 1 75 3;
#P hidden connect 44 0 49 4;
#P hidden connect 6 1 37 4;
#P hidden connect 6 0 11 4;
#P hidden connect 44 1 75 4;
#P hidden connect 57 0 56 0;
#P hidden connect 43 0 56 1;
#P hidden connect 19 0 18 0;
#P hidden connect 19 0 38 0;
#P hidden connect 57 0 76 0;
#P hidden connect 47 0 56 2;
#P hidden connect 5 0 18 1;
#P hidden connect 5 1 38 1;
#P hidden connect 43 1 76 1;
#P hidden connect 11 0 39 0;
#P hidden connect 18 0 39 0;
#P hidden connect 31 0 39 0;
#P hidden connect 25 0 39 0;
#P hidden connect 49 0 77 0;
#P hidden connect 63 0 77 0;
#P hidden connect 69 0 77 0;
#P hidden connect 56 0 77 0;
#P hidden connect 48 0 56 3;
#P hidden connect 9 0 18 2;
#P hidden connect 9 1 38 2;
#P hidden connect 35 0 26 0;
#P hidden connect 73 0 64 0;
#P hidden connect 47 1 76 2;
#P hidden connect 51 0 56 4;
#P hidden connect 10 0 18 3;
#P hidden connect 10 1 38 3;
#P hidden connect 48 1 76 3;
#P hidden connect 13 0 18 4;
#P hidden connect 13 1 38 4;
#P hidden connect 64 0 63 0;
#P hidden connect 51 1 76 4;
#P hidden connect 26 0 40 0;
#P hidden connect 59 0 63 1;
#P hidden connect 26 0 25 0;
#P hidden connect 38 0 39 1;
#P hidden connect 37 0 39 1;
#P hidden connect 41 0 39 1;
#P hidden connect 40 0 39 1;
#P hidden connect 78 0 77 1;
#P hidden connect 79 0 77 1;
#P hidden connect 75 0 77 1;
#P hidden connect 76 0 77 1;
#P hidden connect 21 1 40 1;
#P hidden connect 60 0 63 2;
#P hidden connect 21 0 25 1;
#P hidden connect 64 0 78 0;
#P hidden connect 22 1 40 2;
#P hidden connect 61 0 63 3;
#P hidden connect 22 0 25 2;
#P hidden connect 36 0 32 0;
#P hidden connect 74 0 70 0;
#P hidden connect 59 1 78 1;
#P hidden connect 23 1 40 3;
#P hidden connect 62 0 63 4;
#P hidden connect 23 0 25 3;
#P hidden connect 60 1 78 2;
#P hidden connect 24 1 40 4;
#P hidden connect 24 0 25 4;
#P hidden connect 61 1 78 3;
#P hidden connect 70 0 69 0;
#P hidden connect 62 1 78 4;
#P hidden connect 32 0 31 0;
#P hidden connect 32 0 41 0;
#P hidden connect 65 0 69 1;
#P hidden connect 27 0 31 1;
#P hidden connect 27 1 41 1;
#P hidden connect 70 0 79 0;
#P hidden connect 66 0 69 2;
#P hidden connect 28 0 31 2;
#P hidden connect 28 1 41 2;
#P hidden fasten 65 1 79 1 334 331 345 331;
#P hidden connect 77 3 58 0;
#P hidden connect 39 3 20 0;
#P hidden connect 67 0 69 3;
#P hidden connect 29 0 31 3;
#P hidden connect 29 1 41 3;
#P hidden connect 66 1 79 2;
#P hidden connect 68 0 69 4;
#P hidden connect 77 4 58 1;
#P hidden connect 39 4 20 1;
#P hidden connect 30 0 31 4;
#P hidden connect 30 1 41 4;
#P hidden connect 67 1 79 3;
#P hidden connect 68 1 79 4;
#P hidden connect 80 1 90 0;
#P hidden connect 84 1 91 0;
#P hidden connect 83 1 92 0;
#P hidden connect 87 0 93 0;
#P hidden connect 118 1 128 0;
#P hidden connect 122 1 129 0;
#P hidden connect 121 1 130 0;
#P hidden connect 125 0 131 0;
#P hidden connect 126 0 125 0;
#P hidden connect 88 0 87 0;
#P hidden connect 118 0 125 1;
#P hidden connect 126 0 151 0;
#P hidden connect 80 0 87 1;
#P hidden connect 122 0 125 2;
#P hidden connect 109 0 88 0;
#P hidden connect 147 0 126 0;
#P hidden connect 118 1 151 1;
#P hidden connect 84 0 87 2;
#P hidden connect 121 0 125 3;
#P hidden connect 88 0 113 0;
#P hidden connect 122 1 151 2;
#P hidden connect 83 0 87 3;
#P hidden connect 120 0 125 4;
#P hidden connect 80 1 113 1;
#P hidden connect 121 1 151 3;
#P hidden connect 82 0 87 4;
#P hidden connect 84 1 113 2;
#P hidden connect 120 1 151 4;
#P hidden connect 83 1 113 3;
#P hidden connect 133 0 132 0;
#P hidden connect 82 1 113 4;
#P hidden connect 95 0 94 0;
#P hidden connect 125 0 153 0;
#P hidden connect 139 0 153 0;
#P hidden connect 145 0 153 0;
#P hidden connect 132 0 153 0;
#P hidden connect 119 0 132 1;
#P hidden connect 133 0 152 0;
#P hidden connect 81 0 94 1;
#P hidden connect 123 0 132 2;
#P hidden connect 110 0 95 0;
#P hidden connect 87 0 115 0;
#P hidden connect 101 0 115 0;
#P hidden connect 107 0 115 0;
#P hidden connect 94 0 115 0;
#P hidden connect 119 1 152 1;
#P hidden connect 148 0 133 0;
#P hidden connect 85 0 94 2;
#P hidden connect 124 0 132 3;
#P hidden connect 95 0 114 0;
#P hidden connect 123 1 152 2;
#P hidden connect 86 0 94 3;
#P hidden connect 127 0 132 4;
#P hidden connect 81 1 114 1;
#P hidden connect 124 1 152 3;
#P hidden connect 89 0 94 4;
#P hidden connect 154 0 153 1;
#P hidden connect 155 0 153 1;
#P hidden connect 151 0 153 1;
#P hidden connect 152 0 153 1;
#P hidden connect 85 1 114 2;
#P hidden connect 127 1 152 4;
#P hidden connect 86 1 114 3;
#P hidden connect 116 0 115 1;
#P hidden connect 117 0 115 1;
#P hidden connect 113 0 115 1;
#P hidden connect 114 0 115 1;
#P hidden connect 140 0 139 0;
#P hidden connect 89 1 114 4;
#P hidden connect 102 0 101 0;
#P hidden connect 135 0 139 1;
#P hidden connect 102 0 116 0;
#P hidden connect 140 0 154 0;
#P hidden connect 97 0 101 1;
#P hidden connect 136 0 139 2;
#P hidden connect 97 1 116 1;
#P hidden connect 135 1 154 1;
#P hidden connect 111 0 102 0;
#P hidden connect 98 0 101 2;
#P hidden connect 137 0 139 3;
#P hidden connect 149 0 140 0;
#P hidden connect 98 1 116 2;
#P hidden connect 136 1 154 2;
#P hidden connect 99 0 101 3;
#P hidden connect 138 0 139 4;
#P hidden connect 99 1 116 3;
#P hidden connect 137 1 154 3;
#P hidden connect 108 0 107 0;
#P hidden connect 100 0 101 4;
#P hidden connect 146 0 145 0;
#P hidden connect 100 1 116 4;
#P hidden connect 138 1 154 4;
#P hidden connect 103 0 107 1;
#P hidden connect 141 0 145 1;
#P hidden connect 108 0 117 0;
#P hidden connect 104 0 107 2;
#P hidden connect 142 0 145 2;
#P hidden connect 146 0 155 0;
#P hidden connect 103 1 117 1;
#P hidden connect 105 0 107 3;
#P hidden connect 143 0 145 3;
#P hidden connect 141 1 155 1;
#P hidden connect 104 1 117 2;
#P hidden connect 106 0 107 4;
#P hidden connect 112 0 108 0;
#P hidden connect 150 0 146 0;
#P hidden connect 144 0 145 4;
#P hidden connect 142 1 155 2;
#P hidden connect 105 1 117 3;
#P hidden connect 143 1 155 3;
#P hidden connect 106 1 117 4;
#P hidden connect 144 1 155 4;
#P hidden connect 153 3 134 0;
#P hidden connect 153 4 134 1;
#P hidden connect 115 3 96 0;
#P hidden connect 115 4 96 1;
#P pop;