PROGRAM FILE 160: ERROR - FUNCTION DEFINED MORE THAN ONCE.                      
    ANSI STANDARD 16.4                                                          
                                                                                
SECTION 160.1: ERROR - FUNCTION DEFINED MORE THAN ONCE.                         
                                                                                
THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS                         
DEFINED MORE THAN ONCE IN THE SAME PROGRAM.                                     
                                                                                
THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC.                     
TO PASS THIS TEST, THE PROCESSOR MUST EITHER:                                   
                                                                                
   1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION                    
      ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION                        
      BY THE PROCESSOR, OR                                                      
                                                                                
   2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE                      
                                                                                
SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL                           
FOR DETAILED CRITERIA.                                                          
                                                                                
             BEGIN TEST                                                         
                                                                                
1ST DEFINITION OF FND(R)=R+10                                                   
2ND DEFINITION OF FND(R)=R+100                                                  
                                                                                
ABOUT TO ATTEMPT INVOCATION OF FND(5).                                          
PROCESSOR HAS EVALUATED FND(5) =  105                                           
                                                                                
              END TEST                                                          
                                                                                
END PROGRAM 160                                                                 
