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 IF LIMIT < 3 THEN 170: REM In MSX, FOR works like REPEAT
130 FOR I = 3 TO LIMIT
140  PRINT L0 + L1 + SUMA;
150  TMP = L0: L0 = L1: L1 = TMP + L1 + SUMA
160 NEXT I
170 PRINT
180 RETURN