gosub subrutina

bucle:
print "Bucle infinito"
goto bucle


subrutina:
print "En subrutina"
pause 10
return
end