Codelänge: 483Word = 966 Byte
Der Code belegt nur noch 956Bytes, wenn in Bascom unter Options/Compiler/Output die Option Optimize Code ausgewählt wird.

Soll keine Kritik sein, ich wollte es nur als Tipp erwähnen.