RosettaCodeData/Task/Leonardo-numbers/IS-BASIC/leonardo-numbers.basic
2023-07-01 13:44:08 -04:00

8 lines
221 B
Text

100 PROGRAM "Leonardo.bas"
110 INPUT PROMPT "Enter values of L0, L1, and ADD, separated by comas: ":L0,L1,ADD
120 PRINT L0;L1;
130 FOR I=3 TO 25
140 LET T=L1:LET L1=L1+L0+ADD:LET L0=T
160 PRINT L1;
170 NEXT
180 PRINT