Hey JB beats BaCon and FreeBasic with Recursive Limit

[plus]

Just found this Rosetta Code Challenge today:
rosettacode.org/wiki/Find_limit_of_recursion#BASIC

Here is code I tested:
' Recursion Limit
' https://rosettacode.org/wiki/Find_limit_of_recursion#BASIC

call HowRecursive 1

sub HowRecursive i
   print i
   call HowRecursive i + 1
end sub


Output


BaCon


FreeBasic


Oh looks like LB reports even more than JB and allot more using [GoSub]

'subroutine recursion limit- end up on 475000

call test 1

sub test n
if n mod 1000 = 0 then locate 1,1: print n
call test n+1
end sub
'gosub recursion limit- end up on 5767000
[test]
n = n+1
if n mod 1000 = 0 then locate 1,1: print n
gosub [test]