Added new example: Show Fibonacci numbers

skx · Feb 20, 2024 · 437b54e · 437b54e
1 parent c825bcb
commit 437b54e
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/examples/100-fibonacci.bas 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