RosettaCodeData/Task/Find-limit-of-recursion/True-BASIC/find-limit-of-recursion.basic

FUNCTION Recursion (i)
    PRINT i
    LET ext = Recursion(i + 1)
    LET Recursion = 0
END FUNCTION

LET ext = Recursion(0)
END