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

'$lang: "qb"

Gosub subrutina

bucle:
Print "Bucle infinito"
Goto bucle
End

subrutina:
Print "En subrutina"
Sleep 100
Return
Sleep