PROGRAM FILE 71: EXCEPTION - SUBSCRIPT TOO SMALL FOR                            
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0.                      
    ANSI STANDARD 6.5, 15.2, 15.4                                               
                                                                                
SECTION 71.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR                               
        TWO-DIMENSIONAL ARRAY, WITH DIM AND OPTION BASE 0.                      
                                                                                
THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         
RECOGNIZES A FATAL EXCEPTION WHEN A SUBSCRIPT EXCEEDS                           
THE EXPLICIT LOWER BOUND OF AN ARRAY.                                           
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              
       DISPLAYED, AND                                                           
                                                                                
    2) THE PROGRAM MUST TERMINATE UPON USE OF THE ILLEGAL                       
       SUBSCRIPT.                                                               
                                                                                
                               BEGIN TEST.                                      
                                                                                
ABOUT TO ASSIGN TO B( 3 ,3). ASSIGNMENT SHOULD BE OK.                           
HAVE ASSIGNED  17  TO B( 3 ,3).                                                 
                                                                                
ABOUT TO ASSIGN TO B( 2 ,3). ASSIGNMENT SHOULD BE OK.                           
HAVE ASSIGNED  18  TO B( 2 ,3).                                                 
                                                                                
ABOUT TO ASSIGN TO B( 1 ,3). ASSIGNMENT SHOULD BE OK.                           
HAVE ASSIGNED  19  TO B( 1 ,3).                                                 
                                                                                
ABOUT TO ASSIGN TO B( 0 ,3). ASSIGNMENT SHOULD BE OK.                           
HAVE ASSIGNED  20  TO B( 0 ,3).                                                 
                                                                                
ABOUT TO ASSIGN TO B(-1 ,3).*** EXCEPTION SHOULD OCCUR NOW ***                  
                                                                                
ERROR in line 300: Subscript out of range                                       
