Reemplaza el ciclo que tienes con GOTO con un WHILE...WEND. Es muy recomendado usar estructuras definidas en vez de usar GOTOs. Para hacer esto solo reemplaza el @P con WHILE TRUE y el GOTO @P con WEND. Tabula todo lo que esta dentro del ciclo. Es decir, pon un espacio antes de cada linea del código dentro del ciclo. Esto mejora la legibilidad del código.