#N canvas 98 107 644 355 10; #X obj 52 24 table array1; #X obj 52 44 table array2; #X obj 52 64 table array3; #X obj 52 84 table array4; #X obj 296 65 makefilename array%d; #X symbolatom 316 92 10 0 0 0 - - -; #X obj 296 128 expr size("$s1"); #X floatatom 296 153 5 0 0 0 - - -; #X obj 51 190 table array5; #X obj 296 21 hradio 15 1 0 4 empty empty empty 0 -8 0 10 -262144 -1 -1 1; #X obj 296 42 + 1; #X msg 296 181 \; array5 resize \$1; #X text 138 54 <-tables you read from; #X text 140 188 <-table you write to; #X text 402 127 <-gets size of array; #X text 405 189 <-write incoming value to table; #X connect 4 0 5 0; #X connect 4 0 6 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 9 0 10 0; #X connect 10 0 4 0;