10 REM Leonardo numbers
20 LIMIT = 25
30 L0 = 1: L1 = 1: SUMA = 1
40 PRINT "Numeros de Leonardo (";L0;",";L1;",";SUMA;"):"
50 GOSUB 100
60 L0 = 0: L1 = 1: SUMA = 0
70 PRINT "Numeros de Fibonacci (";L0;",";L1;",";SUMA;"):"
80 GOSUB 100
90 END
100 IF LIMIT >= 1 THEN PRINT L0;
110 IF LIMIT >= 2 THEN PRINT L1;
120 FOR I = 3 TO LIMIT
130  PRINT L0 + L1 + SUMA;
140  TMP = L0: L0 = L1: L1 = TMP + L1 + SUMA
150 NEXT I
160 PRINT
170 RETURN