1                                       
STO 00                                  
1                                       
STO 01                                  
1                                       
STO 02                                  
3                                       
STO 03                                  
"N?"                                    
PROMPT                                  
STO 04                                  
RCL 03                                  
RCL 04                                  
X<>Y                                    
X<Y?                                    
GTO 00                                  
"FIB="                                  
ARCL 02                                 
PROMPT                                  
RTN                                     
LBL 00                                  
LBL 01                                  
RCL 00                                  
RCL 01                                  
+                                       
STO 00                                  
RCL 00                                  
STO 02                                  
RCL 04                                  
RCL 03                                  
X#Y?                                    
GTO 02                                  
GTO 03                                  
LBL 02                                  
RCL 03                                  
1                                       
+                                       
STO 03                                  
RCL 00                                  
RCL 01                                  
+                                       
STO 01                                  
RCL 01                                  
STO 02                                  
RCL 04                                  
RCL 03                                  
X#Y?                                    
GTO 04                                  
GTO 03                                  
LBL 04                                  
RCL 03                                  
1                                       
+                                       
STO 03                                  
GTO 01                                  
LBL 03                                  
"FIB="                                  
ARCL 02                                 
PROMPT                                  
