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