Two comments on stuff that stood out
get rid of goto
get rid of recursive calling of Clock1; you have conditions where Clock1 calls Clock1 calls Clock1
Two comments on stuff that stood out
get rid of goto
get rid of recursive calling of Clock1; you have conditions where Clock1 calls Clock1 calls Clock1