#N canvas 366 166 450 314 10;
#X obj 385 82 key;
#X floatatom 384 115 5 0 0 0 - - -, f 5;
#X obj 62 122 hradio 15 1 0 13 empty empty empty 1 -8 0 10 -262144
-1 -1 2;
#X obj 63 106 hradio 15 1 0 10 empty empty empty 0 0 0 10 -262144 -45076
-1 0;
#X floatatom 231 108 5 0 0 1 - - -, f 5;
#X obj 213 108 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113
-1 -1;
#X floatatom 173 155 5 0 0 0 - - -, f 5;
#X obj 241 121 ro;
#X obj 350 140 keyname;
#X obj 176 176 tabwrite keymap;
#X symbolatom 349 161 10 0 0 0 - - -, f 10;
#X obj 54 190 tabread keymap;
#X obj 105 167 key;
#X floatatom 81 209 5 0 0 0 - - -, f 5;
#N canvas 150 208 450 300 ro-file 0;
#X restore 66 270 pd ro-file;
#X obj 285 271 table keymap 128;
#X msg 277 236 \; keymap read keymap.txt;
#X msg 278 204 \; keymap write keymap.txt;
#X text 286 183 to save & retrieve map:;
#X text 246 78 |;
#X text 288 27 keypress here sets x;
#X text 286 43 value in table |;
#X text 388 55 v;
#X text 13 254 below in new file ro.pd \, then reload.;
#X text 54 5 To write a scale to text keyboard via radio buttons:;
#X text 15 65 Then use buttons to set desired numerical note value
and;
#X text 14 244 Before first use \, save contents of subpatch;
#X text 18 154 value associated w key;
#X text 21 167 in table:;
#X text 16 143 Use tabread to retrieve;
#X text 6 87 bang here to enter it into table: v v;
#X connect 0 0 1 0;
#X connect 0 0 9 1;
#X connect 2 0 7 1;
#X connect 3 0 7 2;
#X connect 5 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 6 0;
#X connect 7 1 9 0;
#X connect 8 1 10 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
