<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set carattere1 "A"
.f.text insert end "carattere di partenza = $carattere1
"
binary scan $carattere1 c valore_ascii
.f.text insert end "il suo valore ascii = $valore_ascii
"
set carattere2 [format "%c" $valore_ascii ]
.f.text insert end "riscrivo il carattere di prima a partire dal suo codice ascii = $carattere2
"
]]>
ascii.tcl