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

10 LET N = -32767
20 LET M = 0
30 LET N = N + 1
40 IF N = 32767 THEN LET M = M + 1
50 IF N = 32767 THEN PRINT M," x 2^16"
60 IF N = 32767 THEN LET N = -N
70 GOSUB 30