#N canvas 52 147 1104 611 10;
#X obj 103 176 outlet;
#X obj 24 161 outlet;
#X obj 182 161 print attr;
#X obj 93 104 pool RRADICAL;
#X obj 345 56 inlet;
#X obj 48 55 r \$0-pool;
#X obj 519 383 s \$0-pool;
#X obj 345 141 symbol \$1;
#X obj 274 39 loadbang;
#X msg 400 287 getdir;
#X obj 168 240 outlet;
#X obj 597 323 prepent get;
#X msg 456 172 getall;
#X obj 526 239 s \$0-substate;
#X obj 510 213 t b f;
#X msg 127 42 echodir \$1;
#X obj 127 15 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X msg 124 71 getdir;
#X msg 277 89 bang;
#X msg 633 200 copyall;
#X msg 712 202 paste;
#X obj 651 230 s \$0-pool;
#X obj 637 146 symbol;
#N canvas 468 415 450 300 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 510 284 pd mkchange2substate;
#X obj 345 177 t b b s;
#X obj 415 201 s \$0-memento;
#X obj 555 168 prepent set;
#X obj 6 111 print pool;
#X obj 345 94 route state getstate getall substate set get;
#X obj 637 168 select copy paste;
#X obj 846 517 s \$0-pool;
#X obj 54 344 print svld;
#X obj 773 301 route ldxdir svxdir;
#X msg 656 444 ldxdir \$1;
#X msg 839 414 svxdir \$1;
#X obj 660 422 symbol;
#X obj 839 390 symbol;
#X obj 188 372 print currentDir;
#X msg 197 73 printroot;
#N canvas 468 415 450 300 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 726 429 pd mkchange2tmp;
#N canvas 468 415 450 300 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 806 362 pd mkchange2substate;
#X obj 698 345 t b a b;
#N canvas 405 362 611 326 tmp2sub 0;
#X obj 121 12 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 msg 36 91 paste;
#X obj 121 40 t b b b;
#X text 191 19 copies data from "tmp" dir \, changes to current substate
\, pastes data.;
#X msg 406 90 copyall;
#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 8 0 1 0;
#X connect 9 0 8 0;
#X connect 9 1 5 0;
#X connect 9 2 11 0;
#X connect 11 0 1 0;
#X restore 574 443 pd tmp2sub;
#N canvas 405 362 611 326 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 909 416 pd sub2tmp;
#X obj 851 328 t b a b;
#X msg 710 394 bang;
#X obj 204 273 print currentCommand;
#X obj 706 526 print ldx;
#X obj 941 502 print svx;
#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 28 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 29 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 26 0 6 0;
#X connect 28 0 7 0;
#X connect 28 1 9 0;
#X connect 28 2 12 0;
#X connect 28 3 14 0;
#X connect 28 4 26 0;
#X connect 28 5 11 0;
#X connect 28 6 22 0;
#X connect 28 6 32 0;
#X connect 29 0 19 0;
#X connect 29 1 20 0;
#X connect 32 0 41 0;
#X connect 32 1 44 0;
#X connect 33 0 30 0;
#X connect 33 0 47 0;
#X connect 34 0 30 0;
#X connect 34 0 48 0;
#X connect 35 0 33 0;
#X connect 36 0 34 0;
#X connect 38 0 3 0;
#X connect 39 0 30 0;
#X connect 39 0 47 0;
#X connect 40 0 30 0;
#X connect 40 0 48 0;
#X connect 41 0 42 0;
#X connect 41 1 35 0;
#X connect 41 2 39 0;
#X connect 42 0 30 0;
#X connect 42 0 47 0;
#X connect 43 0 30 0;
#X connect 43 0 48 0;
#X connect 44 0 40 0;
#X connect 44 1 36 0;
#X connect 44 2 43 0;
#X connect 45 0 35 0;