gosub subrutina

label bucle
print "Bucle infinito"
goto bucle
end

label subrutina
print "En subrutina"
wait 10
return
end