bwBASIC/NBS2/P203.OUT

PROGRAM FILE 203: EFFECT OF ZONES AND MARGIN ON PRINT.
    ANSI STANDARD 12.4, 12.2

THIS TEST IS CONCERNED WITH THE VARIOUS RULES GOVERNING THE
INTERACTION OF ZONE-WIDTH, MARGIN-WIDTH, COLUMNAR POSITION,
AND PRINT-SEPARATORS AS DESCRIBED IN THE STANDARD.

PLEASE ENTER ZONE-WIDTH FOR THIS IMPLEMENTATION.
? 15
PLEASE ENTER MARGIN FOR THIS IMPLEMENTATION.
? 80
PLEASE ENTER NUMBER OF PRINT ZONES ON A LINE.
? 6

THROUGHOUT THESE TESTS, PAIRS OF OUTPUTS WILL BE PRINTED.
THE FIRST OF WHICH IS GENERATED ACCORDING TO THE INFORMATION
JUST SUPPLIED, AND THE SECOND OF WHICH REPRESENTS THE 
FEATURE BEING TESTED. THESE TWO OUTPUTS MUST BE IDENTICAL
FOR THE TEST TO PASS.

SECTION 203.1: COMMA ADVANCES COLUMNAR POSITION TO NEXT
        PRINT-ZONE.

                    BEGIN TEST.

COMMA ADVANCED TO THE BEGINNING OF EACH OF THE  6  PRINT ZONES:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 1 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
A              A              A              A              A              B
A              A              A              A              A              B

PRINT-STATEMENT CONTAINING ONLY A COMMA ADVANCES TO NEXT PRINT-ZONE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 2 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
C                             D
C                             D

IF COLUMNAR POSITION IS THE LAST POSITION IN A ZONE, 
A COMMA ADVANCES ONE SPACE TO THE NEXT ZONE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 3 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
             E F
             E F

IF COLUMNAR POSITION IS THE FIRST POSITION IN A ZONE,
A COMMA ADVANCES ONE FULL ZONE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 4 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
              G               H
              G               H

LEADING COMMAS IN A PRINT-STATEMENT SKIP PRINT-ZONES:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 5 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
                              I
                              I

IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN 
***  TEST PASSED  ***

                  END TEST.


SECTION 203.2: INTERACTION OF TAB AND MARGIN.

                  BEGIN TEST.


TABBING TO A POSITION < COLUMNAR POSITION FORCES A NEW LINE:

THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS
SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 1 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
    A
    B
    A
    B

TABBING TO A POSITION >= COLUMNAR POSITION DOES NOT
FORCE A NEW LINE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 2 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
    CD
    CD

TABBING TO A POSITION, N > MARGIN, M, CAUSES TAB TO
N - M*INT((N-1)/M):

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 3 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
  E
  E

IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN 
***  TEST PASSED  ***

                  END TEST.


SECTION 203.3: MARGIN OVERFLOW.

                  BEGIN TEST.

IF A PRINT-ITEM DOESN'T FIT IN REMAINDER OF CURRENT LINE,
IT FORCES A NEW LINE BEFORE PRINTING:

THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS
SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 1 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
                                                                              A
BC
                                                                              A
BC

FULL LENGTH OF MARGIN IS USED BEFORE FORCING NEW LINE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 2 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
                                                                              DE
F
                                                                              DE
F

FILL RIGHTMOST POSITION OF LAST ZONE:

THE TWO LINES FOLLOWING THE COLUMN NUMBERS SHOULD BE
IDENTICAL, CASE # 3 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
                                                                               G
                                                                               G

IF COLUMNAR POSITION IS IN LAST ZONE, A COMMA FORCES A NEW LINE:

THE FIRST TWO LINES (1 & 2) FOLLOWING THE COLUMN NUMBERS
SHOULD BE IDENTICAL TO THE NEXT TWO (3 & 4), CASE # 4 
0000000001111111111222222222233333333334444444444555555555566666666667777777777
1234567890123456789012345678901234567890123456789012345678901234567890123456789
H
I
H                                                                          
I

IF ALL THE ABOVE PAIRS ARE IDENTICAL, THEN 
***  TEST PASSED  ***

                  END TEST.


END PROGRAM 203

Program interrupted at line 1990