PROGRAM FILE 67: EXCEPTION - SUBSCRIPT TOO SMALL FOR                            
        ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1.                              
    ANSI STANDARD 6.5, 15.2, 15.4                                               
                                                                                
SECTION 67.1: EXCEPTION - SUBSCRIPT TOO SMALL FOR                               
        ONE-DIMENSIONAL ARRAY, WITH OPTION BASE 1.                              
                                                                                
THE OBJECT OF THIS TEST IS TO SEE WHETHER THE PROCESSOR                         
RECOGNIZES USE OF A ZERO SUBSCRIPT AS A FATAL EXCEPTION WHEN                    
OPTION BASE 1 HAS BEEN SPECIFIED.                                               
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTION MUST BE                              
       DISPLAYED, AND                                                           
                                                                                
    2) THE PROGRAM MUST TERMINATE UPON USE OF THE ZERO                          
       SUBSCRIPT.                                                               
                                                                                
                              BEGIN TEST.                                       
                                                                                
ABOUT TO ASSIGN TO A( 3 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  17  TO A( 3 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 2 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  18  TO A( 2 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 1 ). ASSIGNMENT SHOULD BE OK.                             
HAVE ASSIGNED  19  TO A( 1 ).                                                   
                                                                                
ABOUT TO ASSIGN TO A( 0 ).*** EXCEPTION SHOULD OCCUR NOW ***                    
                                                                                
ERROR in line 280: Subscript out of range                                       
