1                                       
STO A                                   
1                                       
STO B                                   
1                                       
STO FIB                                 
3                                       
STO I                                   
INPUT N                                 
RCL I                                   
RCL N                                   
X<>Y                                    
X<Y?                                    
GTO "ENDIF00"                           
PRINT FIB                               
RTN                                     
LBL "ENDIF00"                           
LBL "DO00"                              
RCL A                                   
RCL B                                   
+                                       
STO A                                   
RCL A                                   
STO FIB                                 
RCL N                                   
RCL I                                   
X#Y?                                    
GTO "ENDIF01"                           
GTO "ENDDO00"                           
LBL "ENDIF01"                           
RCL I                                   
1                                       
+                                       
STO I                                   
RCL A                                   
RCL B                                   
+                                       
STO B                                   
RCL B                                   
STO FIB                                 
RCL N                                   
RCL I                                   
X#Y?                                    
GTO "ENDIF02"                           
GTO "ENDDO00"                           
LBL "ENDIF02"                           
RCL I                                   
1                                       
+                                       
STO I                                   
GTO "DO00"                              
LBL "ENDDO00"                           
PRINT FIB                               
