'$lang: "qb"

Gosub subrutina

bucle:
Print "Bucle infinito"
Goto bucle
End

subrutina:
Print "En subrutina"
Sleep 100
Return
Sleep