In your cw and ccw subroutines, change your "Goto Main" line to "Return".

Paul Borgmeier
Salt Lake City, Utah
USA