I found it.

Code:
            else
                GOSUB Turn_top
            end
should be
Code:
            else
                GOSUB Turn_top
            endif
Thread can be closed.