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