Move the GOTO parts into the CASE statements, there's no need to exit a CASE the way you do it since it'll go to the ENDSELECT automatically, anyway.
_________________________
There are two types of vessels, submarines and targets.