PROGRAM FILE 8: EXCEPTION - TAB ARGUMENT                                        
        LESS THAN ONE.                                                          
    ANSI STANDARD 12.5                                                          
                                                                                
TO PASS THIS TEST:                                                              
                                                                                
    1) A MESSAGE IDENTIFYING THE EXCEPTIONS MUST BE                             
       DISPLAYED, AND                                                           
                                                                                
    2) THE ARGUMENT TO TAB MUST BE REPLACED WITH A                              
       VALUE OF ONE AND EXECUTION CONTINUES.                                    
                                                                                
SECTION 8.1: TAB ARGUMENT IS 0.                                                 
                                                                                
                               BEGIN TEST.                                      
                                                                                
000000000111111111122222222223333333333444444444455555555556                    
123456789012345678901234567890123456789012345678901234567890                    
*** WARNING: INVALID TAB() ***                                                  
X                                                                               
                                                                                
*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A                         
    SYSTEM MESSAGE IDENTIFYING THE EXCEPTION  ***                               
                                                                                
                                END TEST.                                       
                                                                                
SECTION 8.2: TAB ARGUMENT IS NEGATIVE.                                          
                                                                                
                               BEGIN TEST.                                      
                                                                                
000000000111111111122222222223333333333444444444455555555556                    
123456789012345678901234567890123456789012345678901234567890                    
*** WARNING: INVALID TAB() ***                                                  
X                                                                               
                                                                                
*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A                         
    SYSTEM MESSAGE IDENTIFYING THE EXCEPTION  ***                               
                                                                                
                                END TEST.                                       
                                                                                
                                                                                
SECTION 8.3: ROUNDED TAB ARGUMENT EQUAL TO ONE.                                 
                                                                                
                                 BEGIN TEST.                                    
                                                                                
000000000111111111122222222223333333333444444444455555555556                    
123456789012345678901234567890123456789012345678901234567890                    
X                                                                               
                                                                                
***  TEST PASSED IF AN X IS PRINTED IN COLUMN 1                                 
     AND NO EXCEPTION IS REPORTED ***                                           
                                                                                
                                   END TEST.                                    
                                                                                
SECTION 8.4: FRACTIONAL TAB ARGUMENT LESS THAN ONE AFTER                        
        ROUNDING                                                                
                                                                                
                               BEING TEST.                                      
                                                                                
000000000111111111122222222223333333333444444444455555555556                    
123456789012345678901234567890123456789012345678901234567890                    
*** WARNING: INVALID TAB() ***                                                  
X                                                                               
                                                                                
*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A                         
    SYSTEM MESSAGE IDENTIFYING THE EXCEPTION  ***                               
                                                                                
                                END TEST.                                       
                                                                                
END PROGRAM 8                                                                   
