diff --git a/pd/extra/preset_node_array.pd b/pd/extra/preset_node_array.pd
new file mode 100644
index 0000000000000000000000000000000000000000..b61cff0938789fcd9e060b02886b09a3eee81f52
--- /dev/null
+++ b/pd/extra/preset_node_array.pd
@@ -0,0 +1,89 @@
+#N canvas 290 90 456 572 10;
+#X obj -30 451 until;
+#X obj -30 473 list append;
+#X obj -30 495 list split 1;
+#X obj 57 534 f;
+#X obj 87 534 + 1;
+#X msg 72 512 0;
+#X obj -30 517 t f b;
+#X obj -6 410 t b l b;
+#X text 45 409 write incoming list to table;
+#X obj 39 316 list prepend;
+#X obj 39 339 t l;
+#X obj 39 365 list;
+#X obj 138 161 until;
+#X obj 138 208 f;
+#X obj 168 208 + 1;
+#X msg 183 161 0;
+#X obj 138 129 35;
+#X text 161 129 table size;
+#X obj 153 105 + 3;
+#X text 180 105 multiple of 4 + 3;
+#X text 136 245 read out table to list;
+#X obj 153 84 expr size("$s1");
+#X obj 266 154 inlet;
+#X obj 266 177 t b a;
+#X obj 293 200 prepend set;
+#X msg 266 225;
+#X obj 93 41 t 1 b b b b 0;
+#X obj -6 387 gate 1 1;
+#X text 180 13 pd-l2ork only: bang on manual changeOR manually send
+bang on loading a file;
+#X text 219 543 Based on rc-patches by Dan WilcoxCleaned up by Ivica
+Ico Bukvic;
+#X obj 93 18 r \$1_changed;
+#X obj 153 63 symbol \$1;
+#X obj 138 229 tabread \$1;
+#X obj -6 558 tabwrite \$1;
+#X obj 329 134 loadbang;
+#X obj 329 156 symbol \$2;
+#X obj 329 178 route 0;
+#X obj 290 266 preset_node;
+#X msg 368 200 set \$1;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 1 1 1;
+#X connect 2 2 0 1;
+#X connect 3 0 4 0;
+#X connect 3 0 33 1;
+#X connect 4 0 3 1;
+#X connect 5 0 3 1;
+#X connect 6 0 33 0;
+#X connect 6 1 3 0;
+#X connect 7 0 0 0;
+#X connect 7 1 1 1;
+#X connect 7 2 5 0;
+#X connect 9 0 10 0;
+#X connect 10 0 9 1;
+#X connect 10 0 11 0;
+#X connect 11 0 27 1;
+#X connect 11 0 37 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 13 0 32 0;
+#X connect 14 0 13 1;
+#X connect 15 0 13 1;
+#X connect 16 0 12 0;
+#X connect 18 0 16 1;
+#X connect 21 0 18 0;
+#X connect 22 0 23 0;
+#X connect 23 0 25 0;
+#X connect 23 1 24 0;
+#X connect 24 0 25 0;
+#X connect 25 0 37 0;
+#X connect 26 0 27 0;
+#X connect 26 1 9 1;
+#X connect 26 2 16 0;
+#X connect 26 3 15 0;
+#X connect 26 4 31 0;
+#X connect 26 5 27 0;
+#X connect 27 0 7 0;
+#X connect 30 0 26 0;
+#X connect 31 0 21 0;
+#X connect 32 0 9 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 1 38 0;
+#X connect 37 0 11 0;
+#X connect 38 0 37 0;