Indizes gehen bei Bascom von 1 weg, nicht von 0

Ich mißtraue, dass das mit dem Compare so funzt.
1) mach ein Waitms 100 oder so in die Schleife (vor dem Next)

2) Versuch es mal ohne dem compare, setze OC1A direkt auf 0 u. 1
und mach ein nachvollziehbares Muster in das array. ob das ganze überhaupt so passt