Hi and thanks everyone.

Using a combination of Lookup and assembler

the code is now 3768 !!!! beauty !

I noticed that lookup can reduce code but can also
increase code, so be carefull !

thanks

kind regards

Peter