tests/programs/fibonacci.bas

10 REM Fibonacci sequence - double precision
20 A# = 0 : B# = 1
30 FOR I = 1 TO 20
40 PRINT USING "##.  ##########"; I; A#
50 C# = A# + B#
60 A# = B#
70 B# = C#
80 NEXT I
90 PRINT "Fibonacci OK"
Phase 5: CI, terminal I/O, Sixel graphics, classic programs 2026-02-10 16:46:34 -05:00			`10 REM Fibonacci sequence - double precision`
			`20 A# = 0 : B# = 1`
			`30 FOR I = 1 TO 20`
			`40 PRINT USING "##. ##########"; I; A#`
			`50 C# = A# + B#`
			`60 A# = B#`
			`70 B# = C#`
			`80 NEXT I`
			`90 PRINT "Fibonacci OK"`