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 "ENDIF00"                           
"FIB="                                  
ARCL 02                                 
PROMPT                                  
RTN                                     
LBL "ENDIF00"                           
LBL "DO00"                              
RCL 00                                  
RCL 01                                  
+                                       
STO 00                                  
RCL 00                                  
STO 02                                  
RCL 04                                  
RCL 03                                  
X#Y?                                    
GTO "ENDIF01"                           
GTO "ENDDO00"                           
LBL "ENDIF01"                           
RCL 03                                  
1                                       
+                                       
STO 03                                  
RCL 00                                  
RCL 01                                  
+                                       
STO 01                                  
RCL 01                                  
STO 02                                  
RCL 04                                  
RCL 03                                  
X#Y?                                    
GTO "ENDIF02"                           
GTO "ENDDO00"                           
LBL "ENDIF02"                           
RCL 03                                  
1                                       
+                                       
STO 03                                  
GTO "DO00"                              
LBL "ENDDO00"                           
"FIB="                                  
ARCL 02                                 
PROMPT                                  
