DEFINT A-B, D-Z
DEFLNG C
REM $INCLUDE: 'largeint.bi'
CONST p0 = 0, p1 = 1, r = 2 '          largeint pointers
t = LargeInit(r, "fibonacc")
CLS : tim# = TIMER
LOCATE 1, 2: lt = 2451 '               set max.index

Letf p0, 0: Letf p1, 1
FOR t = 1 TO lt
   Add p0, p1: Swp p0, p1 '            F_n = F_n-2 + F_n-1
   g$ = "F" + LTRIM$(STR$(t)) + ": "
   Printn p0, g$, "", 2
NEXT t
Setl r, INT(Bitl(p1) * .60206)
Printr p0, p1, r, "phi = ", "" '       golden ratio phi = F_n-1/ F_n

g$ = STR$(CSNG(TIMER - tim#))
Prints "Timer:" + g$ + " s", 1
CALL Term
SYSTEM