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