Re: Implementing GOTO/GOSUB

[David Given <dg@...>]

Asko Kauppi wrote:
[...]
>     #define __GOSUB(xx)  __retline='#'.. #__LINE__; __GOTO=xx; 
> __LABEL='#'.. #__LINE__
>     #define __RETURN     __GOTO=__retline

a = 10
__GOSUB(1)
end

__LABEL = 1
print(a)
if (a > 0) then
  a = a - 1
  __GOSUB(1)
end
__RETURN

--
[insert interesting .sig here]