LBL 'FIBO'  ; Key: 15
'FIBONACCI'
AVIEW
PSE
FIX 00
'N ?'
PROMPT
STO 00
1
STO 01
0
STO 02
LBL 41
RCL 00
1
-
STO 00
X=0?
GTO 42
RCL 01
RCL 02
+
STO 03
RCL 01
STO 02
RCL 03
STO 01
GTO 41
LBL 42
RCL 03
STOP
END