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"