cls
print"Ecrivez votre texte"
input t$
n=length(t$)
for i=1 to n
l$=mid(t$,i,1)
code = asc(l$)
 print l$+" Code ASCII ->  "+code
next i
print
print "Message à décoder"
for i=1to n
l$=mid(t$,i,1)
code = asc(l$)
print code+",";
next i
print"32"