Hi, Darrel

Thanks for the comments, They have been already corrected, and few new lines added !!!

one more bug ( ! ) is that I should have Written

Echantillon = Voiesafe[I]
WRITE 2*I-1, echantillon.lowbyte
WRITE 2*I, echantillon.highbyte

to get right values in the right place

If you want me to fully translate it ...I will !

Have a nice day

Alain