From 437b54e80e2a31627bbaf8797f600cc2de4f3e0c Mon Sep 17 00:00:00 2001 From: Steve Kemp Date: Tue, 20 Feb 2024 18:16:35 +0200 Subject: [PATCH] Added new example: Show Fibonacci numbers --- examples/100-fibonacci.bas | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 examples/100-fibonacci.bas diff --git a/examples/100-fibonacci.bas b/examples/100-fibonacci.bas new file mode 100644 index 0000000..38b6c76 --- /dev/null +++ b/examples/100-fibonacci.bas @@ -0,0 +1,10 @@ +10 LET MAX = 50000 +20 LET X = 1 : LET Y = 1 +30 IF X > MAX THEN GOTO 100 +40 PRINT X, "\n" +50 X = X + Y +60 IF Y > MAX THEN GOTO 100 +70 PRINT Y, "\n" +80 Y = X + Y +90 GOTO 30 +100 END \ No newline at end of file