RosettaCodeData/Task/Flow-control-structures/Yabasic/flow-control-structures.basic

gosub subrutina

label bucle
print "Bucle infinito"
goto bucle
end

label subrutina
print "En subrutina"
wait 10
return
end