#N canvas 33 22 1040 638 10;
#X obj 108 454 outlet;
#X obj 87 475 outlet;
#X obj 173 410 print attr;
#X obj 87 380 pool RRADICAL;
#X obj 205 46 inlet;
#X obj 42 331 r \$0-pool;
#X obj 356 373 s \$0-pool;
#X obj 205 124 symbol \$1;
#X obj 134 29 loadbang;
#X msg 255 278 getdir;
#X obj 130 433 outlet;
#X obj 457 313 prepend get;
#X msg 306 160 getall;
#X obj 386 228 s \$0-substate;
#X obj 356 203 t b f;
#X msg 121 318 echodir \$1;
#X obj 121 291 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X msg 118 347 getdir;
#X msg 137 79 bang;
#X msg 508 190 copyall;
#X msg 565 190 paste;
#X obj 532 223 s \$0-pool;
#X obj 508 136 symbol;
#N canvas 468 415 458 308 mkchange2substate 0;
#X obj 92 39 inlet;
#X obj 111 224 outlet;
#X obj 198 93 r \$0-memento;
#X obj 293 93 r \$0-substate;
#X obj 111 150 pack s s 0;
#X obj 92 93 symbol mkchdir;
#X obj 92 67 t b;
#X obj 111 180 route list;
#X text 204 180 Un-List it again;
#X connect 0 0 6 0;
#X connect 2 0 4 1;
#X connect 3 0 4 2;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 1 0;
#X restore 356 274 pd mkchange2substate;
#X obj 205 160 t b b s;
#X obj 249 209 s \$0-memento;
#X obj 17 525 print pool;
#X obj 205 84 route state getstate getall substate set get;
#X obj 508 160 select copy paste;
#X obj 698 550 s \$0-pool;
#X obj 17 544 print svld;
#X obj 601 373 symbol;
#X obj 793 377 symbol;
#X obj 17 563 print currentDir;
#X msg 191 349 printroot;
#N canvas 468 415 478 328 mkchange2tmp 0;
#X obj 92 39 inlet;
#X obj 111 224 outlet;
#X obj 198 93 r \$0-memento;
#X obj 92 93 symbol mkchdir;
#X obj 92 67 t b;
#X obj 111 180 route list;
#X text 204 180 Un-List it again;
#X msg 296 94 symbol tmp;
#X obj 111 150 pack s s s;
#X obj 296 66 loadbang;
#X msg 167 37 bang;
#X connect 0 0 4 0;
#X connect 2 0 8 1;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 7 0 8 2;
#X connect 8 0 5 0;
#X connect 9 0 7 0;
#X connect 10 0 4 0;
#X restore 623 347 pd mkchange2tmp;
#N canvas 1317 161 462 312 mkchange2substate 0;
#X obj 92 39 inlet;
#X obj 111 224 outlet;
#X obj 198 93 r \$0-memento;
#X obj 293 93 r \$0-substate;
#X obj 111 150 pack s s 0;
#X obj 92 93 symbol mkchdir;
#X obj 111 180 route list;
#X text 204 180 Un-List it again;
#X text 195 29 change back to substate dir;
#X obj 92 67 t b b;
#X msg 38 98 clrclip;
#X connect 0 0 9 0;
#X connect 2 0 4 1;
#X connect 3 0 4 2;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 9 0 10 0;
#X connect 9 1 5 0;
#X connect 10 0 1 0;
#X restore 771 424 pd mkchange2substate;
#X obj 579 325 t b a b;
#N canvas 405 362 623 338 sub2tmp 0;
#X obj 121 12 inlet;
#X obj 111 224 outlet;
#X obj 198 93 r \$0-memento;
#X obj 92 93 symbol mkchdir;
#X obj 111 180 route list;
#X text 204 180 Un-List it again;
#X msg 36 91 paste;
#X obj 121 40 t b b b;
#X msg 406 90 copyall;
#X text 189 8 copies data from current dir \, changes to "tmp" dir
\, pastes data.;
#X obj 293 93 symbol tmp;
#X msg 294 47 bang;
#X obj 359 47 loadbang;
#X obj 111 150 pack s s s;
#X connect 0 0 7 0;
#X connect 2 0 13 1;
#X connect 3 0 13 0;
#X connect 4 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 7 1 3 0;
#X connect 7 2 8 0;
#X connect 8 0 1 0;
#X connect 10 0 13 2;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X connect 13 0 4 0;
#X restore 815 348 pd sub2tmp;
#X obj 771 324 t b a b;
#X msg 536 357 bang;
#X obj 17 582 print currentCommand;
#X obj 661 100 t a;
#N canvas 757 334 643 358 tmp2sub+abs1 0;
#X obj 121 12 inlet;
#X obj 181 257 outlet;
#X obj 268 126 r \$0-memento;
#X obj 363 126 r \$0-substate;
#X obj 181 183 pack s s 0;
#X obj 162 126 symbol mkchdir;
#X obj 181 213 route list;
#X text 274 213 Un-List it again;
#X msg 106 124 paste;
#X msg 476 123 copyall;
#X obj 121 40 t b b b b;
#X msg 35 125 absdir 1;
#X text 191 19 copies data from "tmp" dir \, changes to current substate
\, pastes data \, returns to absolute directory mode.;
#X connect 0 0 10 0;
#X connect 2 0 4 1;
#X connect 3 0 4 2;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 10 1 8 0;
#X connect 10 2 5 0;
#X connect 10 3 9 0;
#X connect 11 0 1 0;
#X restore 579 417 pd tmp2sub+abs1;
#X obj 661 293 route lddir svdir;
#X msg 793 398 absdir 0 \, svdir \$1 \, absdir 1;
#X msg 601 393 absdir 0 \, lddir \$1;
#X obj 407 160 prepent set;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 10 0;
#X connect 3 4 2 0;
#X connect 4 0 27 0;
#X connect 5 0 3 0;
#X connect 7 0 24 0;
#X connect 8 0 7 0;
#X connect 9 0 6 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 14 0 23 0;
#X connect 14 1 13 0;
#X connect 15 0 3 0;
#X connect 16 0 15 0;
#X connect 17 0 3 0;
#X connect 18 0 7 0;
#X connect 19 0 21 0;
#X connect 20 0 21 0;
#X connect 22 0 28 0;
#X connect 23 0 6 0;
#X connect 24 0 9 0;
#X connect 24 1 23 0;
#X connect 24 2 25 0;
#X connect 27 0 7 0;
#X connect 27 1 9 0;
#X connect 27 2 12 0;
#X connect 27 3 14 0;
#X connect 27 4 47 0;
#X connect 27 5 11 0;
#X connect 27 6 22 0;
#X connect 27 6 42 0;
#X connect 28 0 19 0;
#X connect 28 1 20 0;
#X connect 31 0 46 0;
#X connect 32 0 45 0;
#X connect 34 0 3 0;
#X connect 35 0 29 0;
#X connect 36 0 29 0;
#X connect 37 0 43 0;
#X connect 37 1 31 0;
#X connect 37 2 35 0;
#X connect 38 0 29 0;
#X connect 39 0 36 0;
#X connect 39 1 32 0;
#X connect 39 2 38 0;
#X connect 40 0 31 0;
#X connect 42 0 44 0;
#X connect 43 0 29 0;
#X connect 44 0 37 0;
#X connect 44 1 39 0;
#X connect 45 0 29 0;
#X connect 46 0 29 0;
#X connect 47 0 6 0;