cls
print "Message à décoder"
input message$
b=explode (message$,",")
print
for t = 0 to b[?]-1
   print "b["+t+"]=" + b[t]+ " -> "+chr(b[t])
next t
print
Print "Message décodé:"
for t = 0 to b[?]-1
print chr(b[t]);
next t