'$lang: "qb"
Gosub subrutina
bucle:
Print "Bucle infinito"
Goto bucle
End
subrutina:
Print "En subrutina"
Sleep 100
Return
Sleep