#N canvas 190 79 441 403 10;
#X obj 214 40 receive #key;
#X obj 93 205 outlet;
#X obj 93 40 receive #keyname;
#X obj 93 91 pack;
#X obj 93 143 unpack;
#X floatatom 93 166 0 0 0;
#X obj 93 116 route 1 0;
#X obj 141 143 unpack;
#X floatatom 141 166 0 0 0;
#X text 27 171 down;
#X text 181 167 up;
#X obj 141 205 outlet;
#X obj 93 65 unpack f s;
#X msg 258 116 set \$1;
#X msg 258 141 BackSpace;
#X text 27 261 #keyname gives you a list of (for down) and zero (for
up) plus the according key/letter.;
#X text 28 300 #key gives out the asci-value;
#X connect 0 0 3 1;
#X connect 2 0 12 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 4 0;
#X connect 6 1 7 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 12 0 3 0;
#X connect 12 1 13 0;
#X connect 13 0 14 0;
