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
