#Include "largeint.bi"
Dim g As String, tim As Double
Dim As Integer n, nx = 1221 '          set max.index
Const p0 = 0, p1 = 1 '                 largeint pointers
n = LargeInit(p1, "fibonacc") '        initialize library
Cls : tim = Timer
Locate 1, 2

Letf(p0, 0): Letf(p1, 1) '             main
For n = 1 To nx
   Add(p0, p1): Swp(p0, p1) '          F_n = F_n-2 + F_n-1
   g = "F" + Ltrim(Str(n)) + ": "
   Printn(p0, g, "", 2)
Next n
n = Int(Bitl(p1) * 0.60206)
Printr(p0, p1, "phi = ", n, 1) '       golden ratio phi = F_n-1/ F_n

g = Str(Csng(Timer - tim))
Prints("Timer: " + g + " s", 1)
Term(): Sleep