RosettaCodeData/Task/Find-limit-of-recursion/ZX-Spectrum-Basic/find-limit-of-recursion.basic
2023-07-01 13:44:08 -04:00

6 lines
153 B
Text

10 LET d=0: REM depth
100 PRINT AT 1,1; "Recursion depth: ";d
110 LET d=d+1
120 GO SUB 100: REM recursion
130 RETURN: REM this is never reached
200 STOP