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
Bookmarks