Loop control logic revisited

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

In the "Humorous Enhancements" thread recently, there was a sub-thread with
logically challenged code snippets.  Here's one that uses LEAVE that isn't
(I don't think) a style issue although it's harmless.  Here is the entire
main line (edited for brevity, but with the logic completely intact. Nothing
happens in the main line after the end of the loop.  

     C           *IN03     DOUEQ*ON                                     
     C                     EXFMTSL900S01                                
                              
     C*                                                                 
     C                     SELEC                                        
     C*                                                                 
     C           *IN03     WHEQ *ON                                     
     C                     MOVE *ON       *INLR                         
     C                     LEAVE                                        
     C*                                                                 
     C           *IN08     WHEQ *ON                                     
     C*  Do F8 stuff                                    
             
     C*                                                                 
     C                     OTHER                                        
     C*  Do enter key stuff                                          
                                         
     C*                                                                 
     C                     ENDSL                                        
     C                     ENDDO                                        
     C/EJECT                                                            
     
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---