14 lines
132 B
Text
14 lines
132 B
Text
'$lang: "qb"
|
|
|
|
Gosub subrutina
|
|
|
|
bucle:
|
|
Print "Bucle infinito"
|
|
Goto bucle
|
|
End
|
|
|
|
subrutina:
|
|
Print "En subrutina"
|
|
Sleep 100
|
|
Return
|
|
Sleep
|