Einfach mal für 'mc.q' Zahlen von 1 bis 12 einsetzen und schauen, was
rauskommt. Mit 'mc.l' funktioniert alles tadellos.
Code: Alles auswählen
Define mc.q
mc = q
Select mc
Case 1, 10 : mc = 0
Case 5 : mc = 1
Case 8 : mc = 2
Case 2, 3, 11 : mc = 3
Case 6 : mc = 4
Case 9, 12 : mc = 5
Case 4, 7 : mc = 6
EndSelect
Debug mc