19 lines
496 B
Plaintext
19 lines
496 B
Plaintext
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
|