So problem gelöst
ich hatte ein logischen fehler drin . Ich musste einfach meine laufvariabel j (j gibt die phase des zuges an) nach hinten verschieben ans ende der prozedure. fui-talk hat mich drauf gebracht (irgentwie ist es mir in den kopf geschpßen beim lesen seinen beitrags)
danke für alle bemühungen
ich hänge mal für interresiete das halb fertige programm an