Impressum sg101a.cob

000100 IDENTIFICATION DIVISION.                                         SG1014.2
000200 PROGRAM-ID.                                                      SG1014.2
000300     SG101A.                                                      SG1014.2
000400 AUTHOR.                                                          SG1014.2
000500     FEDERAL COMPILER TESTING CENTER.                             SG1014.2
000600 INSTALLATION.                                                    SG1014.2
000700     GENERAL SERVICES ADMINISTRATION                              SG1014.2
000800     AUTOMATED DATA AND TELECOMMUNICATION SERVICE.                SG1014.2
000900     SOFTWARE DEVELOPMENT OFFICE.                                 SG1014.2
001000     5203 LEESBURG PIKE  SUITE 1100                               SG1014.2
001100     FALLS CHURCH VIRGINIA 22041.                                 SG1014.2
001200                                                                  SG1014.2
001300     PHONE   (703) 756-6153                                       SG1014.2
001400                                                                  SG1014.2
001500     " HIGH       ".                                              SG1014.2
001600 DATE-WRITTEN.                                                    SG1014.2
001700     CCVS-74 VERSION 4.0 - 1980 JULY 1.                           SG1014.2
001800     CREATION DATE     /    VALIDATION DATE                       SG1014.2
001900     "4.2 ".                                                      SG1014.2
002000 SECURITY.                                                        SG1014.2
002100     NONE.                                                        SG1014.2
002200       THE FOLLOWING FEATURES ARE TESTED BY THIS PROGRAM ---      SG1014.2
002300         THE ABILITY OF THE COMPILER TO ACCEPT 100 SEGMENTS       SG1014.2
002400         AND REFERENCE SEGMENTS GREATER THAN 49 IN THEIR INITIAL  SG1014.2
002500         STATE WITH SEGMENTS LESS THAN 50 IN THEIR LAST-USED      SG1014.2
002600         STATE                                                    SG1014.2
002700                                                                  SG1014.2
002800 ENVIRONMENT DIVISION.                                            SG1014.2
002900 CONFIGURATION SECTION.                                           SG1014.2
003000 SOURCE-COMPUTER.                                                 SG1014.2
003100     Card0130.                                                    SG1014.2
003200 OBJECT-COMPUTER.                                                 SG1014.2
003300     Card0131.                                                    SG1014.2
003400 INPUT-OUTPUT SECTION.                                            SG1014.2
003500 FILE-CONTROL.                                                    SG1014.2
003600     SELECT PRINT-FILE ASSIGN TO                                  SG1014.2
003700     "C0085" .                                                    SG1014.2
003800 DATA DIVISION.                                                   SG1014.2
003900 FILE SECTION.                                                    SG1014.2
004000 FD  PRINT-FILE                                                   SG1014.2
004100     LABEL RECORDS                                                SG1014.2
004200     Card0132                                                     SG1014.2
004300     DATA RECORD IS PRINT-REC DUMMY-RECORD.                       SG1014.2
004400 01  PRINT-REC PICTURE X(120).                                    SG1014.2
004500 01  DUMMY-RECORD PICTURE X(120).                                 SG1014.2
004600 WORKING-STORAGE SECTION.                                         SG1014.2
004700 77  TEST-CHECK                    PICTURE XXXX VALUE SPACE.      SG1014.2
004800 01  TEST-RESULTS.                                                SG1014.2
004900     02 FILLER                    PICTURE X VALUE SPACE.          SG1014.2
005000     02 FEATURE                   PICTURE X(20) VALUE SPACE.      SG1014.2
005100     02 FILLER                    PICTURE X VALUE SPACE.          SG1014.2
005200     02 P-OR-F                    PICTURE X(5) VALUE SPACE.       SG1014.2
005300     02 FILLER                    PICTURE X  VALUE SPACE.         SG1014.2
005400     02  PAR-NAME.                                                SG1014.2
005500       03 FILLER PICTURE X(12) VALUE SPACE.                       SG1014.2
005600       03  PARDOT-X PICTURE X  VALUE SPACE.                       SG1014.2
005700       03 DOTVALUE PICTURE 99  VALUE ZERO.                        SG1014.2
005800       03 FILLER PIC X(5) VALUE SPACE.                            SG1014.2
005900     02 FILLER PIC X(10) VALUE SPACE.                             SG1014.2
006000     02 RE-MARK PIC X(61).                                        SG1014.2
006100 01  TEST-COMPUTED.                                               SG1014.2
006200     02 FILLER PIC X(30) VALUE SPACE.                             SG1014.2
006300     02 FILLER PIC X(17) VALUE "       COMPUTED=".                SG1014.2
006400     02 COMPUTED-X.                                               SG1014.2
006500     03 COMPUTED-A                PICTURE X(20) VALUE SPACE.      SG1014.2
006600     03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9).       SG1014.2
006700     03 COMPUTED-0V18 REDEFINES COMPUTED-A  PICTURE -.9(18).      SG1014.2
006800     03 COMPUTED-4V14 REDEFINES COMPUTED-A  PICTURE -9(4).9(14).  SG1014.2
006900     03 COMPUTED-14V4 REDEFINES COMPUTED-A  PICTURE -9(14).9(4).  SG1014.2
007000     03       CM-18V0 REDEFINES COMPUTED-A.                       SG1014.2
007100         04 COMPUTED-18V0                   PICTURE -9(18).       SG1014.2
007200         04 FILLER                          PICTURE X.            SG1014.2
007300     03 FILLER PIC X(50) VALUE SPACE.                             SG1014.2
007400 01  TEST-CORRECT.                                                SG1014.2
007500     02 FILLER PIC X(30) VALUE SPACE.                             SG1014.2
007600     02 FILLER PIC X(17) VALUE "       CORRECT =".                SG1014.2
007700     02 CORRECT-X.                                                SG1014.2
007800     03 CORRECT-A                 PICTURE X(20) VALUE SPACE.      SG1014.2
007900     03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9).         SG1014.2
008000     03 CORRECT-0V18 REDEFINES CORRECT-A    PICTURE -.9(18).      SG1014.2
008100     03 CORRECT-4V14 REDEFINES CORRECT-A    PICTURE -9(4).9(14).  SG1014.2
008200     03 CORRECT-14V4 REDEFINES CORRECT-A    PICTURE -9(14).9(4).  SG1014.2
008300     03      CR-18V0 REDEFINES CORRECT-A.                         SG1014.2
008400         04 CORRECT-18V0                    PICTURE -9(18).       SG1014.2
008500         04 FILLER                          PICTURE X.            SG1014.2
008600     03 FILLER PIC X(50) VALUE SPACE.                             SG1014.2
008700 01  CCVS-C-1.                                                    SG1014.2
008800     02 FILLER PICTURE IS X(99) VALUE IS " FEATURE              PASG1014.2
008900-    "SS  PARAGRAPH-NAME                                          SG1014.2
009000-    "        REMARKS".                                           SG1014.2
009100     02 FILLER PICTURE IS X(20) VALUE IS SPACE.                   SG1014.2
009200 01  CCVS-C-2.                                                    SG1014.2
009300     02 FILLER PICTURE IS X VALUE IS SPACE.                       SG1014.2
009400     02 FILLER PICTURE IS X(6) VALUE IS "TESTED".                 SG1014.2
009500     02 FILLER PICTURE IS X(15) VALUE IS SPACE.                   SG1014.2
009600     02 FILLER PICTURE IS X(4) VALUE IS "FAIL".                   SG1014.2
009700     02 FILLER PICTURE IS X(94) VALUE IS SPACE.                   SG1014.2
009800 01  REC-SKL-SUB PICTURE 9(2) VALUE ZERO.                         SG1014.2
009900 01  REC-CT PICTURE 99 VALUE ZERO.                                SG1014.2
010000 01  DELETE-CNT                   PICTURE 999  VALUE ZERO.        SG1014.2
010100 01  ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO.                  SG1014.2
010200 01  INSPECT-COUNTER PIC 999 VALUE ZERO.                          SG1014.2
010300 01  PASS-COUNTER PIC 999 VALUE ZERO.                             SG1014.2
010400 01  TOTAL-ERROR PIC 999 VALUE ZERO.                              SG1014.2
010500 01  ERROR-HOLD PIC 999 VALUE ZERO.                               SG1014.2
010600 01  DUMMY-HOLD PIC X(120) VALUE SPACE.                           SG1014.2
010700 01  RECORD-COUNT PIC 9(5) VALUE ZERO.                            SG1014.2
010800 01  CCVS-H-1.                                                    SG1014.2
010900     02  FILLER   PICTURE X(27)  VALUE SPACE.                     SG1014.2
011000     02 FILLER PICTURE X(67) VALUE                                SG1014.2
011100     " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION  SG1014.2
011200-    " SYSTEM".                                                   SG1014.2
011300     02  FILLER     PICTURE X(26)  VALUE SPACE.                   SG1014.2
011400 01  CCVS-H-2.                                                    SG1014.2
011500     02 FILLER PICTURE X(52) VALUE IS                             SG1014.2
011600     "CCVS74 NCC  COPY, NOT FOR DISTRIBUTION.".                   SG1014.2
011700     02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET-  ".   SG1014.2
011800     02 TEST-ID PICTURE IS X(9).                                  SG1014.2
011900     02 FILLER PICTURE IS X(40) VALUE IS SPACE.                   SG1014.2
012000 01  CCVS-H-3.                                                    SG1014.2
012100     02  FILLER PICTURE X(34) VALUE                               SG1014.2
012200     " FOR OFFICIAL USE ONLY    ".                                SG1014.2
012300     02  FILLER PICTURE X(58) VALUE                               SG1014.2
012400     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SG1014.2
012500     02  FILLER PICTURE X(28) VALUE                               SG1014.2
012600     "  COPYRIGHT   1974 ".                                       SG1014.2
012700 01  CCVS-E-1.                                                    SG1014.2
012800     02 FILLER PICTURE IS X(52) VALUE IS SPACE.                   SG1014.2
012900     02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST-  ".        SG1014.2
013000     02 ID-AGAIN PICTURE IS X(9).                                 SG1014.2
013100     02 FILLER PICTURE X(45) VALUE IS                             SG1014.2
013200     " NTIS DISTRIBUTION COBOL 74".                               SG1014.2
013300 01  CCVS-E-2.                                                    SG1014.2
013400     02  FILLER                   PICTURE X(31)  VALUE            SG1014.2
013500     SPACE.                                                       SG1014.2
013600     02  FILLER                   PICTURE X(21)  VALUE SPACE.     SG1014.2
013700     02 CCVS-E-2-2.                                               SG1014.2
013800         03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE.            SG1014.2
013900         03 FILLER PICTURE IS X VALUE IS SPACE.                   SG1014.2
014000         03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED".      SG1014.2
014100 01  CCVS-E-3.                                                    SG1014.2
014200     02  FILLER PICTURE X(22) VALUE                               SG1014.2
014300     " FOR OFFICIAL USE ONLY".                                    SG1014.2
014400     02  FILLER PICTURE X(12) VALUE SPACE.                        SG1014.2
014500     02  FILLER PICTURE X(58) VALUE                               SG1014.2
014600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SG1014.2
014700     02  FILLER PICTURE X(13) VALUE SPACE.                        SG1014.2
014800     02 FILLER PIC X(15) VALUE " COPYRIGHT 1974".                 SG1014.2
014900 01  CCVS-E-4.                                                    SG1014.2
015000     02 CCVS-E-4-1 PIC XXX VALUE SPACE.                           SG1014.2
015100     02 FILLER PIC XXXX VALUE " OF ".                             SG1014.2
015200     02 CCVS-E-4-2 PIC XXX VALUE SPACE.                           SG1014.2
015300     02 FILLER PIC X(40) VALUE                                    SG1014.2
015400      "  TESTS WERE EXECUTED SUCCESSFULLY".                       SG1014.2
015500 01  XXINFO.                                                      SG1014.2
015600     02 FILLER PIC X(30) VALUE "        *** INFORMATION  ***".    SG1014.2
015700     02 INFO-TEXT.                                                SG1014.2
015800     04 FILLER PIC X(20) VALUE SPACE.                             SG1014.2
015900     04 XXCOMPUTED PIC X(20).                                     SG1014.2
016000     04 FILLER PIC X(5) VALUE SPACE.                              SG1014.2
016100     04 XXCORRECT PIC X(20).                                      SG1014.2
016200 01  HYPHEN-LINE.                                                 SG1014.2
016300     02 FILLER PICTURE IS X VALUE IS SPACE.                       SG1014.2
016400     02 FILLER PICTURE IS X(65) VALUE IS "************************SG1014.2
016500-    "*****************************************".                 SG1014.2
016600     02 FILLER PICTURE IS X(54) VALUE IS "************************SG1014.2
016700-    "******************************".                            SG1014.2
016800 01  CCVS-PGM-ID PIC X(6) VALUE                                   SG1014.2
016900     "SG101A".                                                    SG1014.2
017000 PROCEDURE DIVISION.                                              SG1014.2
017100 CCVS1 SECTION.                                                   SG1014.2
017200 OPEN-FILES.                                                      SG1014.2
017300     OPEN     OUTPUT PRINT-FILE.                                  SG1014.2
017400     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   SG1014.2
017500     MOVE    SPACE TO TEST-RESULTS.                               SG1014.2
017600     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             SG1014.2
017700     GO TO CCVS1-EXIT.                                            SG1014.2
017800 CLOSE-FILES.                                                     SG1014.2
017900     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   SG1014.2
018000 TERMINATE-CCVS.                                                  SG1014.2
018100     EXIT PROGRAM.                                                SG1014.2
018200 TERMINATE-CALL.                                                  SG1014.2
018300     STOP     RUN.                                                SG1014.2
018400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         SG1014.2
018500 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           SG1014.2
018600 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          SG1014.2
018700 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-CNT.          SG1014.2
018800     MOVE "****TEST DELETED****" TO RE-MARK.                      SG1014.2
018900 PRINT-DETAIL.                                                    SG1014.2
019000     IF REC-CT NOT EQUAL TO ZERO                                  SG1014.2
019100             MOVE "." TO PARDOT-X                                 SG1014.2
019200             MOVE REC-CT TO DOTVALUE.                             SG1014.2
019300     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      SG1014.2
019400     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               SG1014.2
019500        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 SG1014.2
019600          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 SG1014.2
019700     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              SG1014.2
019800     MOVE SPACE TO CORRECT-X.                                     SG1014.2
019900     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         SG1014.2
020000     MOVE     SPACE TO RE-MARK.                                   SG1014.2
020100 HEAD-ROUTINE.                                                    SG1014.2
020200     MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SG1014.2
020300     MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.   SG1014.2
020400     MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.   SG1014.2
020500 COLUMN-NAMES-ROUTINE.                                            SG1014.2
020600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SG1014.2
020700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SG1014.2
020800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SG1014.2
020900 END-ROUTINE.                                                     SG1014.2
021000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.SG1014.2
021100 END-RTN-EXIT.                                                    SG1014.2
021200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SG1014.2
021300 END-ROUTINE-1.                                                   SG1014.2
021400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      SG1014.2
021500      ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD.                   SG1014.2
021600      ADD PASS-COUNTER TO ERROR-HOLD.                             SG1014.2
021700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   SG1014.2
021800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            SG1014.2
021900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              SG1014.2
022000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                SG1014.2
022100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           SG1014.2
022200  END-ROUTINE-12.                                                 SG1014.2
022300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        SG1014.2
022400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      SG1014.2
022500         MOVE "NO " TO ERROR-TOTAL                                SG1014.2
022600         ELSE                                                     SG1014.2
022700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       SG1014.2
022800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           SG1014.2
022900     PERFORM WRITE-LINE.                                          SG1014.2
023000 END-ROUTINE-13.                                                  SG1014.2
023100     IF DELETE-CNT IS EQUAL TO ZERO                               SG1014.2
023200         MOVE "NO " TO ERROR-TOTAL  ELSE                          SG1014.2
023300         MOVE DELETE-CNT TO ERROR-TOTAL.                          SG1014.2
023400     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   SG1014.2
023500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SG1014.2
023600      IF   INSPECT-COUNTER EQUAL TO ZERO                          SG1014.2
023700          MOVE "NO " TO ERROR-TOTAL                               SG1014.2
023800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   SG1014.2
023900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            SG1014.2
024000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          SG1014.2
024100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SG1014.2
024200 WRITE-LINE.                                                      SG1014.2
024300     ADD 1 TO RECORD-COUNT.                                       SG1014.2
024400     IF RECORD-COUNT GREATER 50                                   SG1014.2
024500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          SG1014.2
024600         MOVE SPACE TO DUMMY-RECORD                               SG1014.2
024700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SG1014.2
024800         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             SG1014.2
024900         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     SG1014.2
025000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          SG1014.2
025100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          SG1014.2
025200         MOVE ZERO TO RECORD-COUNT.                               SG1014.2
025300     PERFORM WRT-LN.                                              SG1014.2
025400 WRT-LN.                                                          SG1014.2
025500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               SG1014.2
025600     MOVE SPACE TO DUMMY-RECORD.                                  SG1014.2
025700 BLANK-LINE-PRINT.                                                SG1014.2
025800     PERFORM WRT-LN.                                              SG1014.2
025900 FAIL-ROUTINE.                                                    SG1014.2
026000     IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.   SG1014.2
026100     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SG1014.2
026200     MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.    SG1014.2
026300     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SG1014.2
026400     GO TO FAIL-ROUTINE-EX.                                       SG1014.2
026500 FAIL-ROUTINE-WRITE.                                              SG1014.2
026600     MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE           SG1014.2
026700     MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.   SG1014.2
026800 FAIL-ROUTINE-EX. EXIT.                                           SG1014.2
026900 BAIL-OUT.                                                        SG1014.2
027000     IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.       SG1014.2
027100     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SG1014.2
027200 BAIL-OUT-WRITE.                                                  SG1014.2
027300     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  SG1014.2
027400     MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.     SG1014.2
027500 BAIL-OUT-EX. EXIT.                                               SG1014.2
027600 CCVS1-EXIT.                                                      SG1014.2
027700     EXIT.                                                        SG1014.2
027800 SECT-SG-01-001 SECTION 00.                                       SG1014.2
027900 SG-01-001.                                                       SG1014.2
028000     MOVE "SEGMENTATION" TO FEATURE.                              SG1014.2
028100     GO TO SEG-TEST-1.                                            SG1014.2
028200 l00  SECTION 00.                                                  SG1014.2
028300 PARA-00.                                                         SG1014.2
028400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
028500 RUN-THE-TESTS SECTION.                                           SG1014.2
028600 SEG-TEST-1.                                                      SG1014.2
028700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
028800     PERFORM l00.                                                  SG1014.2
028900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
029000         PERFORM PASS                                             SG1014.2
029100         GO TO SEG-WRITE-1.                                       SG1014.2
029200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
029300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
029400     PERFORM FAIL.                                                SG1014.2
029500     GO TO SEG-WRITE-1.                                           SG1014.2
029600 SEG-DELETE-1.                                                    SG1014.2
029700     PERFORM DE-LETE.                                             SG1014.2
029800 SEG-WRITE-1.                                                     SG1014.2
029900     MOVE "SEG-TEST-1  " TO PAR-NAME.                             SG1014.2
030000     PERFORM PRINT-DETAIL.                                        SG1014.2
030100 SEG-TEST-2.                                                      SG1014.2
030200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
030300     PERFORM l01.                                                  SG1014.2
030400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
030500         PERFORM PASS                                             SG1014.2
030600         GO TO SEG-WRITE-2.                                       SG1014.2
030700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
030800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
030900     PERFORM FAIL.                                                SG1014.2
031000     GO TO SEG-WRITE-2.                                           SG1014.2
031100 SEG-DELETE-2.                                                    SG1014.2
031200     PERFORM DE-LETE.                                             SG1014.2
031300 SEG-WRITE-2.                                                     SG1014.2
031400     MOVE "SEG-TEST-2  " TO PAR-NAME.                             SG1014.2
031500     PERFORM PRINT-DETAIL.                                        SG1014.2
031600 SEG-TEST-3.                                                      SG1014.2
031700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
031800     PERFORM l02.                                                  SG1014.2
031900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
032000         PERFORM PASS                                             SG1014.2
032100         GO TO SEG-WRITE-3.                                       SG1014.2
032200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
032300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
032400     PERFORM FAIL.                                                SG1014.2
032500     GO TO SEG-WRITE-3.                                           SG1014.2
032600 SEG-DELETE-3.                                                    SG1014.2
032700     PERFORM DE-LETE.                                             SG1014.2
032800 SEG-WRITE-3.                                                     SG1014.2
032900     MOVE "SEG-TEST-3  " TO PAR-NAME.                             SG1014.2
033000     PERFORM PRINT-DETAIL.                                        SG1014.2
033100 SEG-TEST-4.                                                      SG1014.2
033200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
033300     PERFORM l03.                                                  SG1014.2
033400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
033500         PERFORM PASS                                             SG1014.2
033600         GO TO SEG-WRITE-4.                                       SG1014.2
033700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
033800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
033900     PERFORM FAIL.                                                SG1014.2
034000     GO TO SEG-WRITE-4.                                           SG1014.2
034100 SEG-DELETE-4.                                                    SG1014.2
034200     PERFORM DE-LETE.                                             SG1014.2
034300 SEG-WRITE-4.                                                     SG1014.2
034400     MOVE "SEG-TEST-4  " TO PAR-NAME.                             SG1014.2
034500     PERFORM PRINT-DETAIL.                                        SG1014.2
034600 SEG-TEST-5.                                                      SG1014.2
034700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
034800     PERFORM l04.                                                  SG1014.2
034900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
035000         PERFORM PASS                                             SG1014.2
035100         GO TO SEG-WRITE-5.                                       SG1014.2
035200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
035300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
035400     PERFORM FAIL.                                                SG1014.2
035500     GO TO SEG-WRITE-5.                                           SG1014.2
035600 SEG-DELETE-5.                                                    SG1014.2
035700     PERFORM DE-LETE.                                             SG1014.2
035800 SEG-WRITE-5.                                                     SG1014.2
035900     MOVE "SEG-TEST-5  " TO PAR-NAME.                             SG1014.2
036000     PERFORM PRINT-DETAIL.                                        SG1014.2
036100 SEG-TEST-6.                                                      SG1014.2
036200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
036300     PERFORM l05.                                                  SG1014.2
036400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
036500         PERFORM PASS                                             SG1014.2
036600         GO TO SEG-WRITE-6.                                       SG1014.2
036700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
036800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
036900     PERFORM FAIL.                                                SG1014.2
037000     GO TO SEG-WRITE-6.                                           SG1014.2
037100 SEG-DELETE-6.                                                    SG1014.2
037200     PERFORM DE-LETE.                                             SG1014.2
037300 SEG-WRITE-6.                                                     SG1014.2
037400     MOVE "SEG-TEST-6  " TO PAR-NAME.                             SG1014.2
037500     PERFORM PRINT-DETAIL.                                        SG1014.2
037600 SEG-TEST-7.                                                      SG1014.2
037700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
037800     PERFORM l06.                                                  SG1014.2
037900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
038000         PERFORM PASS                                             SG1014.2
038100         GO TO SEG-WRITE-7.                                       SG1014.2
038200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
038300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
038400     PERFORM FAIL.                                                SG1014.2
038500     GO TO SEG-WRITE-7.                                           SG1014.2
038600 SEG-DELETE-7.                                                    SG1014.2
038700     PERFORM DE-LETE.                                             SG1014.2
038800 SEG-WRITE-7.                                                     SG1014.2
038900     MOVE "SEG-TEST-7  " TO PAR-NAME.                             SG1014.2
039000     PERFORM PRINT-DETAIL.                                        SG1014.2
039100 SEG-TEST-8.                                                      SG1014.2
039200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
039300     PERFORM l07.                                                  SG1014.2
039400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
039500         PERFORM PASS                                             SG1014.2
039600         GO TO SEG-WRITE-8.                                       SG1014.2
039700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
039800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
039900     PERFORM FAIL.                                                SG1014.2
040000     GO TO SEG-WRITE-8.                                           SG1014.2
040100 SEG-DELETE-8.                                                    SG1014.2
040200     PERFORM DE-LETE.                                             SG1014.2
040300 SEG-WRITE-8.                                                     SG1014.2
040400     MOVE "SEG-TEST-8  " TO PAR-NAME.                             SG1014.2
040500     PERFORM PRINT-DETAIL.                                        SG1014.2
040600 SEG-TEST-9.                                                      SG1014.2
040700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
040800     PERFORM l08.                                                  SG1014.2
040900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
041000         PERFORM PASS                                             SG1014.2
041100         GO TO SEG-WRITE-9.                                       SG1014.2
041200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
041300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
041400     PERFORM FAIL.                                                SG1014.2
041500     GO TO SEG-WRITE-9.                                           SG1014.2
041600 SEG-DELETE-9.                                                    SG1014.2
041700     PERFORM DE-LETE.                                             SG1014.2
041800 SEG-WRITE-9.                                                     SG1014.2
041900     MOVE "SEG-TEST-9  " TO PAR-NAME.                             SG1014.2
042000     PERFORM PRINT-DETAIL.                                        SG1014.2
042100 SEG-TEST-10.                                                     SG1014.2
042200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
042300     PERFORM l09.                                                  SG1014.2
042400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
042500         PERFORM PASS                                             SG1014.2
042600         GO TO SEG-WRITE-10.                                      SG1014.2
042700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
042800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
042900     PERFORM FAIL.                                                SG1014.2
043000     GO TO SEG-WRITE-10.                                          SG1014.2
043100 SEG-DELETE-10.                                                   SG1014.2
043200     PERFORM DE-LETE.                                             SG1014.2
043300 SEG-WRITE-10.                                                    SG1014.2
043400     MOVE "SEG-TEST-10 " TO PAR-NAME.                             SG1014.2
043500     PERFORM PRINT-DETAIL.                                        SG1014.2
043600 SEG-TEST-11.                                                     SG1014.2
043700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
043800     PERFORM l0.                                                  SG1014.2
043900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
044000         PERFORM PASS                                             SG1014.2
044100         GO TO SEG-WRITE-11.                                      SG1014.2
044200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
044300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
044400     PERFORM FAIL.                                                SG1014.2
044500     GO TO SEG-WRITE-11.                                          SG1014.2
044600 SEG-DELETE-11.                                                   SG1014.2
044700     PERFORM DE-LETE.                                             SG1014.2
044800 SEG-WRITE-11.                                                    SG1014.2
044900     MOVE "SEG-TEST-11 " TO PAR-NAME.                             SG1014.2
045000     PERFORM PRINT-DETAIL.                                        SG1014.2
045100 SEG-TEST-12.                                                     SG1014.2
045200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
045300     PERFORM l1.                                                  SG1014.2
045400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
045500         PERFORM PASS                                             SG1014.2
045600         GO TO SEG-WRITE-12.                                      SG1014.2
045700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
045800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
045900     PERFORM FAIL.                                                SG1014.2
046000     GO TO SEG-WRITE-12.                                          SG1014.2
046100 SEG-DELETE-12.                                                   SG1014.2
046200     PERFORM DE-LETE.                                             SG1014.2
046300 SEG-WRITE-12.                                                    SG1014.2
046400     MOVE "SEG-TEST-12 " TO PAR-NAME.                             SG1014.2
046500     PERFORM PRINT-DETAIL.                                        SG1014.2
046600 SEG-TEST-13.                                                     SG1014.2
046700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
046800     PERFORM l12.                                                  SG1014.2
046900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
047000         PERFORM PASS                                             SG1014.2
047100         GO TO SEG-WRITE-13.                                      SG1014.2
047200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
047300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
047400     PERFORM FAIL.                                                SG1014.2
047500     GO TO SEG-WRITE-13.                                          SG1014.2
047600 SEG-DELETE-13.                                                   SG1014.2
047700     PERFORM DE-LETE.                                             SG1014.2
047800 SEG-WRITE-13.                                                    SG1014.2
047900     MOVE "SEG-TEST-13 " TO PAR-NAME.                             SG1014.2
048000     PERFORM PRINT-DETAIL.                                        SG1014.2
048100 SEG-TEST-14.                                                     SG1014.2
048200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
048300     PERFORM l13.                                                  SG1014.2
048400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
048500         PERFORM PASS                                             SG1014.2
048600         GO TO SEG-WRITE-14.                                      SG1014.2
048700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
048800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
048900     PERFORM FAIL.                                                SG1014.2
049000     GO TO SEG-WRITE-14.                                          SG1014.2
049100 SEG-DELETE-14.                                                   SG1014.2
049200     PERFORM DE-LETE.                                             SG1014.2
049300 SEG-WRITE-14.                                                    SG1014.2
049400     MOVE "SEG-TEST-14 " TO PAR-NAME.                             SG1014.2
049500     PERFORM PRINT-DETAIL.                                        SG1014.2
049600 SEG-TEST-15.                                                     SG1014.2
049700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
049800     PERFORM l14.                                                  SG1014.2
049900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
050000         PERFORM PASS                                             SG1014.2
050100         GO TO SEG-WRITE-15.                                      SG1014.2
050200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
050300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
050400     PERFORM FAIL.                                                SG1014.2
050500     GO TO SEG-WRITE-15.                                          SG1014.2
050600 SEG-DELETE-15.                                                   SG1014.2
050700     PERFORM DE-LETE.                                             SG1014.2
050800 SEG-WRITE-15.                                                    SG1014.2
050900     MOVE "SEG-TEST-15 " TO PAR-NAME.                             SG1014.2
051000     PERFORM PRINT-DETAIL.                                        SG1014.2
051100 SEG-TEST-16.                                                     SG1014.2
051200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
051300     PERFORM l15.                                                  SG1014.2
051400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
051500         PERFORM PASS                                             SG1014.2
051600         GO TO SEG-WRITE-16.                                      SG1014.2
051700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
051800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
051900     PERFORM FAIL.                                                SG1014.2
052000     GO TO SEG-WRITE-16.                                          SG1014.2
052100 SEG-DELETE-16.                                                   SG1014.2
052200     PERFORM DE-LETE.                                             SG1014.2
052300 SEG-WRITE-16.                                                    SG1014.2
052400     MOVE "SEG-TEST-16 " TO PAR-NAME.                             SG1014.2
052500     PERFORM PRINT-DETAIL.                                        SG1014.2
052600 SEG-TEST-17.                                                     SG1014.2
052700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
052800     PERFORM l16.                                                  SG1014.2
052900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
053000         PERFORM PASS                                             SG1014.2
053100         GO TO SEG-WRITE-17.                                      SG1014.2
053200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
053300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
053400     PERFORM FAIL.                                                SG1014.2
053500     GO TO SEG-WRITE-17.                                          SG1014.2
053600 SEG-DELETE-17.                                                   SG1014.2
053700     PERFORM DE-LETE.                                             SG1014.2
053800 SEG-WRITE-17.                                                    SG1014.2
053900     MOVE "SEG-TEST-17 " TO PAR-NAME.                             SG1014.2
054000     PERFORM PRINT-DETAIL.                                        SG1014.2
054100 SEG-TEST-18.                                                     SG1014.2
054200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
054300     PERFORM l17.                                                  SG1014.2
054400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
054500         PERFORM PASS                                             SG1014.2
054600         GO TO SEG-WRITE-18.                                      SG1014.2
054700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
054800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
054900     PERFORM FAIL.                                                SG1014.2
055000     GO TO SEG-WRITE-18.                                          SG1014.2
055100 SEG-DELETE-18.                                                   SG1014.2
055200     PERFORM DE-LETE.                                             SG1014.2
055300 SEG-WRITE-18.                                                    SG1014.2
055400     MOVE "SEG-TEST-18 " TO PAR-NAME.                             SG1014.2
055500     PERFORM PRINT-DETAIL.                                        SG1014.2
055600 SEG-TEST-19.                                                     SG1014.2
055700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
055800     PERFORM l18.                                                  SG1014.2
055900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
056000         PERFORM PASS                                             SG1014.2
056100         GO TO SEG-WRITE-19.                                      SG1014.2
056200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
056300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
056400     PERFORM FAIL.                                                SG1014.2
056500     GO TO SEG-WRITE-19.                                          SG1014.2
056600 SEG-DELETE-19.                                                   SG1014.2
056700     PERFORM DE-LETE.                                             SG1014.2
056800 SEG-WRITE-19.                                                    SG1014.2
056900     MOVE "SEG-TEST-19 " TO PAR-NAME.                             SG1014.2
057000     PERFORM PRINT-DETAIL.                                        SG1014.2
057100 SEG-TEST-20.                                                     SG1014.2
057200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
057300     PERFORM l19.                                                  SG1014.2
057400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
057500         PERFORM PASS                                             SG1014.2
057600         GO TO SEG-WRITE-20.                                      SG1014.2
057700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
057800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
057900     PERFORM FAIL.                                                SG1014.2
058000     GO TO SEG-WRITE-20.                                          SG1014.2
058100 SEG-DELETE-20.                                                   SG1014.2
058200     PERFORM DE-LETE.                                             SG1014.2
058300 SEG-WRITE-20.                                                    SG1014.2
058400     MOVE "SEG-TEST-20 " TO PAR-NAME.                             SG1014.2
058500     PERFORM PRINT-DETAIL.                                        SG1014.2
058600 SEG-TEST-21.                                                     SG1014.2
058700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
058800     PERFORM l20.                                                  SG1014.2
058900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
059000         PERFORM PASS                                             SG1014.2
059100         GO TO SEG-WRITE-21.                                      SG1014.2
059200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
059300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
059400     PERFORM FAIL.                                                SG1014.2
059500     GO TO SEG-WRITE-21.                                          SG1014.2
059600 SEG-DELETE-21.                                                   SG1014.2
059700     PERFORM DE-LETE.                                             SG1014.2
059800 SEG-WRITE-21.                                                    SG1014.2
059900     MOVE "SEG-TEST-21 " TO PAR-NAME.                             SG1014.2
060000     PERFORM PRINT-DETAIL.                                        SG1014.2
060100 SEG-TEST-22.                                                     SG1014.2
060200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
060300     PERFORM l21.                                                  SG1014.2
060400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
060500         PERFORM PASS                                             SG1014.2
060600         GO TO SEG-WRITE-22.                                      SG1014.2
060700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
060800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
060900     PERFORM FAIL.                                                SG1014.2
061000     GO TO SEG-WRITE-22.                                          SG1014.2
061100 SEG-DELETE-22.                                                   SG1014.2
061200     PERFORM DE-LETE.                                             SG1014.2
061300 SEG-WRITE-22.                                                    SG1014.2
061400     MOVE "SEG-TEST-22 " TO PAR-NAME.                             SG1014.2
061500     PERFORM PRINT-DETAIL.                                        SG1014.2
061600 SEG-TEST-23.                                                     SG1014.2
061700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
061800     PERFORM l22.                                                  SG1014.2
061900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
062000         PERFORM PASS                                             SG1014.2
062100         GO TO SEG-WRITE-23.                                      SG1014.2
062200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
062300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
062400     PERFORM FAIL.                                                SG1014.2
062500     GO TO SEG-WRITE-23.                                          SG1014.2
062600 SEG-DELETE-23.                                                   SG1014.2
062700     PERFORM DE-LETE.                                             SG1014.2
062800 SEG-WRITE-23.                                                    SG1014.2
062900     MOVE "SEG-TEST-23 " TO PAR-NAME.                             SG1014.2
063000     PERFORM PRINT-DETAIL.                                        SG1014.2
063100 SEG-TEST-24.                                                     SG1014.2
063200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
063300     PERFORM l23.                                                  SG1014.2
063400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
063500         PERFORM PASS                                             SG1014.2
063600         GO TO SEG-WRITE-24.                                      SG1014.2
063700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
063800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
063900     PERFORM FAIL.                                                SG1014.2
064000     GO TO SEG-WRITE-24.                                          SG1014.2
064100 SEG-DELETE-24.                                                   SG1014.2
064200     PERFORM DE-LETE.                                             SG1014.2
064300 SEG-WRITE-24.                                                    SG1014.2
064400     MOVE "SEG-TEST-24 " TO PAR-NAME.                             SG1014.2
064500     PERFORM PRINT-DETAIL.                                        SG1014.2
064600 SEG-TEST-25.                                                     SG1014.2
064700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
064800     PERFORM l24.                                                  SG1014.2
064900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
065000         PERFORM PASS                                             SG1014.2
065100         GO TO SEG-WRITE-25.                                      SG1014.2
065200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
065300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
065400     PERFORM FAIL.                                                SG1014.2
065500     GO TO SEG-WRITE-25.                                          SG1014.2
065600 SEG-DELETE-25.                                                   SG1014.2
065700     PERFORM DE-LETE.                                             SG1014.2
065800 SEG-WRITE-25.                                                    SG1014.2
065900     MOVE "SEG-TEST-25 " TO PAR-NAME.                             SG1014.2
066000     PERFORM PRINT-DETAIL.                                        SG1014.2
066100 SEG-TEST-26.                                                     SG1014.2
066200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
066300     PERFORM l25.                                                  SG1014.2
066400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
066500         PERFORM PASS                                             SG1014.2
066600         GO TO SEG-WRITE-26.                                      SG1014.2
066700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
066800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
066900     PERFORM FAIL.                                                SG1014.2
067000     GO TO SEG-WRITE-26.                                          SG1014.2
067100 SEG-DELETE-26.                                                   SG1014.2
067200     PERFORM DE-LETE.                                             SG1014.2
067300 SEG-WRITE-26.                                                    SG1014.2
067400     MOVE "SEG-TEST-26 " TO PAR-NAME.                             SG1014.2
067500     PERFORM PRINT-DETAIL.                                        SG1014.2
067600 SEG-TEST-27.                                                     SG1014.2
067700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
067800     PERFORM l26.                                                  SG1014.2
067900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
068000         PERFORM PASS                                             SG1014.2
068100         GO TO SEG-WRITE-27.                                      SG1014.2
068200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
068300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
068400     PERFORM FAIL.                                                SG1014.2
068500     GO TO SEG-WRITE-27.                                          SG1014.2
068600 SEG-DELETE-27.                                                   SG1014.2
068700     PERFORM DE-LETE.                                             SG1014.2
068800 SEG-WRITE-27.                                                    SG1014.2
068900     MOVE "SEG-TEST-27 " TO PAR-NAME.                             SG1014.2
069000     PERFORM PRINT-DETAIL.                                        SG1014.2
069100 SEG-TEST-28.                                                     SG1014.2
069200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
069300     PERFORM l27.                                                  SG1014.2
069400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
069500         PERFORM PASS                                             SG1014.2
069600         GO TO SEG-WRITE-28.                                      SG1014.2
069700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
069800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
069900     PERFORM FAIL.                                                SG1014.2
070000     GO TO SEG-WRITE-28.                                          SG1014.2
070100 SEG-DELETE-28.                                                   SG1014.2
070200     PERFORM DE-LETE.                                             SG1014.2
070300 SEG-WRITE-28.                                                    SG1014.2
070400     MOVE "SEG-TEST-28 " TO PAR-NAME.                             SG1014.2
070500     PERFORM PRINT-DETAIL.                                        SG1014.2
070600 SEG-TEST-29.                                                     SG1014.2
070700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
070800     PERFORM l28.                                                  SG1014.2
070900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
071000         PERFORM PASS                                             SG1014.2
071100         GO TO SEG-WRITE-29.                                      SG1014.2
071200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
071300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
071400     PERFORM FAIL.                                                SG1014.2
071500     GO TO SEG-WRITE-29.                                          SG1014.2
071600 SEG-DELETE-29.                                                   SG1014.2
071700     PERFORM DE-LETE.                                             SG1014.2
071800 SEG-WRITE-29.                                                    SG1014.2
071900     MOVE "SEG-TEST-29 " TO PAR-NAME.                             SG1014.2
072000     PERFORM PRINT-DETAIL.                                        SG1014.2
072100 SEG-TEST-30.                                                     SG1014.2
072200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
072300     PERFORM l29.                                                  SG1014.2
072400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
072500         PERFORM PASS                                             SG1014.2
072600         GO TO SEG-WRITE-30.                                      SG1014.2
072700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
072800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
072900     PERFORM FAIL.                                                SG1014.2
073000     GO TO SEG-WRITE-30.                                          SG1014.2
073100 SEG-DELETE-30.                                                   SG1014.2
073200     PERFORM DE-LETE.                                             SG1014.2
073300 SEG-WRITE-30.                                                    SG1014.2
073400     MOVE "SEG-TEST-30 " TO PAR-NAME.                             SG1014.2
073500     PERFORM PRINT-DETAIL.                                        SG1014.2
073600 SEG-TEST-31.                                                     SG1014.2
073700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
073800     PERFORM l30.                                                  SG1014.2
073900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
074000         PERFORM PASS                                             SG1014.2
074100         GO TO SEG-WRITE-31.                                      SG1014.2
074200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
074300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
074400     PERFORM FAIL.                                                SG1014.2
074500     GO TO SEG-WRITE-31.                                          SG1014.2
074600 SEG-DELETE-31.                                                   SG1014.2
074700     PERFORM DE-LETE.                                             SG1014.2
074800 SEG-WRITE-31.                                                    SG1014.2
074900     MOVE "SEG-TEST-31 " TO PAR-NAME.                             SG1014.2
075000     PERFORM PRINT-DETAIL.                                        SG1014.2
075100 SEG-TEST-32.                                                     SG1014.2
075200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
075300     PERFORM l31.                                                  SG1014.2
075400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
075500         PERFORM PASS                                             SG1014.2
075600         GO TO SEG-WRITE-32.                                      SG1014.2
075700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
075800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
075900     PERFORM FAIL.                                                SG1014.2
076000     GO TO SEG-WRITE-32.                                          SG1014.2
076100 SEG-DELETE-32.                                                   SG1014.2
076200     PERFORM DE-LETE.                                             SG1014.2
076300 SEG-WRITE-32.                                                    SG1014.2
076400     MOVE "SEG-TEST-32 " TO PAR-NAME.                             SG1014.2
076500     PERFORM PRINT-DETAIL.                                        SG1014.2
076600 SEG-TEST-33.                                                     SG1014.2
076700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
076800     PERFORM l32.                                                  SG1014.2
076900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
077000         PERFORM PASS                                             SG1014.2
077100         GO TO SEG-WRITE-33.                                      SG1014.2
077200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
077300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
077400     PERFORM FAIL.                                                SG1014.2
077500     GO TO SEG-WRITE-33.                                          SG1014.2
077600 SEG-DELETE-33.                                                   SG1014.2
077700     PERFORM DE-LETE.                                             SG1014.2
077800 SEG-WRITE-33.                                                    SG1014.2
077900     MOVE "SEG-TEST-33 " TO PAR-NAME.                             SG1014.2
078000     PERFORM PRINT-DETAIL.                                        SG1014.2
078100 SEG-TEST-34.                                                     SG1014.2
078200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
078300     PERFORM l33.                                                  SG1014.2
078400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
078500         PERFORM PASS                                             SG1014.2
078600         GO TO SEG-WRITE-34.                                      SG1014.2
078700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
078800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
078900     PERFORM FAIL.                                                SG1014.2
079000     GO TO SEG-WRITE-34.                                          SG1014.2
079100 SEG-DELETE-34.                                                   SG1014.2
079200     PERFORM DE-LETE.                                             SG1014.2
079300 SEG-WRITE-34.                                                    SG1014.2
079400     MOVE "SEG-TEST-34 " TO PAR-NAME.                             SG1014.2
079500     PERFORM PRINT-DETAIL.                                        SG1014.2
079600 SEG-TEST-35.                                                     SG1014.2
079700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
079800     PERFORM l34.                                                  SG1014.2
079900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
080000         PERFORM PASS                                             SG1014.2
080100         GO TO SEG-WRITE-35.                                      SG1014.2
080200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
080300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
080400     PERFORM FAIL.                                                SG1014.2
080500     GO TO SEG-WRITE-35.                                          SG1014.2
080600 SEG-DELETE-35.                                                   SG1014.2
080700     PERFORM DE-LETE.                                             SG1014.2
080800 SEG-WRITE-35.                                                    SG1014.2
080900     MOVE "SEG-TEST-35 " TO PAR-NAME.                             SG1014.2
081000     PERFORM PRINT-DETAIL.                                        SG1014.2
081100 SEG-TEST-36.                                                     SG1014.2
081200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
081300     PERFORM l35.                                                  SG1014.2
081400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
081500         PERFORM PASS                                             SG1014.2
081600         GO TO SEG-WRITE-36.                                      SG1014.2
081700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
081800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
081900     PERFORM FAIL.                                                SG1014.2
082000     GO TO SEG-WRITE-36.                                          SG1014.2
082100 SEG-DELETE-36.                                                   SG1014.2
082200     PERFORM DE-LETE.                                             SG1014.2
082300 SEG-WRITE-36.                                                    SG1014.2
082400     MOVE "SEG-TEST-36 " TO PAR-NAME.                             SG1014.2
082500     PERFORM PRINT-DETAIL.                                        SG1014.2
082600 SEG-TEST-37.                                                     SG1014.2
082700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
082800     PERFORM l36.                                                  SG1014.2
082900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
083000         PERFORM PASS                                             SG1014.2
083100         GO TO SEG-WRITE-37.                                      SG1014.2
083200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
083300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
083400     PERFORM FAIL.                                                SG1014.2
083500     GO TO SEG-WRITE-37.                                          SG1014.2
083600 SEG-DELETE-37.                                                   SG1014.2
083700     PERFORM DE-LETE.                                             SG1014.2
083800 SEG-WRITE-37.                                                    SG1014.2
083900     MOVE "SEG-TEST-37 " TO PAR-NAME.                             SG1014.2
084000     PERFORM PRINT-DETAIL.                                        SG1014.2
084100 SEG-TEST-38.                                                     SG1014.2
084200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
084300     PERFORM l37.                                                  SG1014.2
084400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
084500         PERFORM PASS                                             SG1014.2
084600         GO TO SEG-WRITE-38.                                      SG1014.2
084700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
084800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
084900     PERFORM FAIL.                                                SG1014.2
085000     GO TO SEG-WRITE-38.                                          SG1014.2
085100 SEG-DELETE-38.                                                   SG1014.2
085200     PERFORM DE-LETE.                                             SG1014.2
085300 SEG-WRITE-38.                                                    SG1014.2
085400     MOVE "SEG-TEST-38 " TO PAR-NAME.                             SG1014.2
085500     PERFORM PRINT-DETAIL.                                        SG1014.2
085600 SEG-TEST-39.                                                     SG1014.2
085700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
085800     PERFORM l38.                                                  SG1014.2
085900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
086000         PERFORM PASS                                             SG1014.2
086100         GO TO SEG-WRITE-39.                                      SG1014.2
086200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
086300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
086400     PERFORM FAIL.                                                SG1014.2
086500     GO TO SEG-WRITE-39.                                          SG1014.2
086600 SEG-DELETE-39.                                                   SG1014.2
086700     PERFORM DE-LETE.                                             SG1014.2
086800 SEG-WRITE-39.                                                    SG1014.2
086900     MOVE "SEG-TEST-39 " TO PAR-NAME.                             SG1014.2
087000     PERFORM PRINT-DETAIL.                                        SG1014.2
087100 SEG-TEST-40.                                                     SG1014.2
087200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
087300     PERFORM l39.                                                  SG1014.2
087400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
087500         PERFORM PASS                                             SG1014.2
087600         GO TO SEG-WRITE-40.                                      SG1014.2
087700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
087800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
087900     PERFORM FAIL.                                                SG1014.2
088000     GO TO SEG-WRITE-40.                                          SG1014.2
088100 SEG-DELETE-40.                                                   SG1014.2
088200     PERFORM DE-LETE.                                             SG1014.2
088300 SEG-WRITE-40.                                                    SG1014.2
088400     MOVE "SEG-TEST-40 " TO PAR-NAME.                             SG1014.2
088500     PERFORM PRINT-DETAIL.                                        SG1014.2
088600 SEG-TEST-41.                                                     SG1014.2
088700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
088800     PERFORM l40.                                                  SG1014.2
088900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
089000         PERFORM PASS                                             SG1014.2
089100         GO TO SEG-WRITE-41.                                      SG1014.2
089200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
089300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
089400     PERFORM FAIL.                                                SG1014.2
089500     GO TO SEG-WRITE-41.                                          SG1014.2
089600 SEG-DELETE-41.                                                   SG1014.2
089700     PERFORM DE-LETE.                                             SG1014.2
089800 SEG-WRITE-41.                                                    SG1014.2
089900     MOVE "SEG-TEST-41 " TO PAR-NAME.                             SG1014.2
090000     PERFORM PRINT-DETAIL.                                        SG1014.2
090100 SEG-TEST-42.                                                     SG1014.2
090200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
090300     PERFORM l41.                                                  SG1014.2
090400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
090500         PERFORM PASS                                             SG1014.2
090600         GO TO SEG-WRITE-42.                                      SG1014.2
090700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
090800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
090900     PERFORM FAIL.                                                SG1014.2
091000     GO TO SEG-WRITE-42.                                          SG1014.2
091100 SEG-DELETE-42.                                                   SG1014.2
091200     PERFORM DE-LETE.                                             SG1014.2
091300 SEG-WRITE-42.                                                    SG1014.2
091400     MOVE "SEG-TEST-42 " TO PAR-NAME.                             SG1014.2
091500     PERFORM PRINT-DETAIL.                                        SG1014.2
091600 SEG-TEST-43.                                                     SG1014.2
091700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
091800     PERFORM l42.                                                  SG1014.2
091900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
092000         PERFORM PASS                                             SG1014.2
092100         GO TO SEG-WRITE-43.                                      SG1014.2
092200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
092300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
092400     PERFORM FAIL.                                                SG1014.2
092500     GO TO SEG-WRITE-43.                                          SG1014.2
092600 SEG-DELETE-43.                                                   SG1014.2
092700     PERFORM DE-LETE.                                             SG1014.2
092800 SEG-WRITE-43.                                                    SG1014.2
092900     MOVE "SEG-TEST-43 " TO PAR-NAME.                             SG1014.2
093000     PERFORM PRINT-DETAIL.                                        SG1014.2
093100 SEG-TEST-44.                                                     SG1014.2
093200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
093300     PERFORM l43.                                                  SG1014.2
093400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
093500         PERFORM PASS                                             SG1014.2
093600         GO TO SEG-WRITE-44.                                      SG1014.2
093700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
093800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
093900     PERFORM FAIL.                                                SG1014.2
094000     GO TO SEG-WRITE-44.                                          SG1014.2
094100 SEG-DELETE-44.                                                   SG1014.2
094200     PERFORM DE-LETE.                                             SG1014.2
094300 SEG-WRITE-44.                                                    SG1014.2
094400     MOVE "SEG-TEST-44 " TO PAR-NAME.                             SG1014.2
094500     PERFORM PRINT-DETAIL.                                        SG1014.2
094600 SEG-TEST-45.                                                     SG1014.2
094700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
094800     PERFORM l44.                                                  SG1014.2
094900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
095000         PERFORM PASS                                             SG1014.2
095100         GO TO SEG-WRITE-45.                                      SG1014.2
095200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
095300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
095400     PERFORM FAIL.                                                SG1014.2
095500     GO TO SEG-WRITE-45.                                          SG1014.2
095600 SEG-DELETE-45.                                                   SG1014.2
095700     PERFORM DE-LETE.                                             SG1014.2
095800 SEG-WRITE-45.                                                    SG1014.2
095900     MOVE "SEG-TEST-45 " TO PAR-NAME.                             SG1014.2
096000     PERFORM PRINT-DETAIL.                                        SG1014.2
096100 SEG-TEST-46.                                                     SG1014.2
096200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
096300     PERFORM l45.                                                  SG1014.2
096400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
096500         PERFORM PASS                                             SG1014.2
096600         GO TO SEG-WRITE-46.                                      SG1014.2
096700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
096800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
096900     PERFORM FAIL.                                                SG1014.2
097000     GO TO SEG-WRITE-46.                                          SG1014.2
097100 SEG-DELETE-46.                                                   SG1014.2
097200     PERFORM DE-LETE.                                             SG1014.2
097300 SEG-WRITE-46.                                                    SG1014.2
097400     MOVE "SEG-TEST-46 " TO PAR-NAME.                             SG1014.2
097500     PERFORM PRINT-DETAIL.                                        SG1014.2
097600 SEG-TEST-47.                                                     SG1014.2
097700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
097800     PERFORM l46.                                                  SG1014.2
097900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
098000         PERFORM PASS                                             SG1014.2
098100         GO TO SEG-WRITE-47.                                      SG1014.2
098200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
098300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
098400     PERFORM FAIL.                                                SG1014.2
098500     GO TO SEG-WRITE-47.                                          SG1014.2
098600 SEG-DELETE-47.                                                   SG1014.2
098700     PERFORM DE-LETE.                                             SG1014.2
098800 SEG-WRITE-47.                                                    SG1014.2
098900     MOVE "SEG-TEST-47 " TO PAR-NAME.                             SG1014.2
099000     PERFORM PRINT-DETAIL.                                        SG1014.2
099100 SEG-TEST-48.                                                     SG1014.2
099200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
099300     PERFORM l47.                                                  SG1014.2
099400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
099500         PERFORM PASS                                             SG1014.2
099600         GO TO SEG-WRITE-48.                                      SG1014.2
099700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
099800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
099900     PERFORM FAIL.                                                SG1014.2
100000     GO TO SEG-WRITE-48.                                          SG1014.2
100100 SEG-DELETE-48.                                                   SG1014.2
100200     PERFORM DE-LETE.                                             SG1014.2
100300 SEG-WRITE-48.                                                    SG1014.2
100400     MOVE "SEG-TEST-48 " TO PAR-NAME.                             SG1014.2
100500     PERFORM PRINT-DETAIL.                                        SG1014.2
100600 SEG-TEST-49.                                                     SG1014.2
100700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
100800     PERFORM l48.                                                  SG1014.2
100900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
101000         PERFORM PASS                                             SG1014.2
101100         GO TO SEG-WRITE-49.                                      SG1014.2
101200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
101300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
101400     PERFORM FAIL.                                                SG1014.2
101500     GO TO SEG-WRITE-49.                                          SG1014.2
101600 SEG-DELETE-49.                                                   SG1014.2
101700     PERFORM DE-LETE.                                             SG1014.2
101800 SEG-WRITE-49.                                                    SG1014.2
101900     MOVE "SEG-TEST-49 " TO PAR-NAME.                             SG1014.2
102000     PERFORM PRINT-DETAIL.                                        SG1014.2
102100 SEG-TEST-50.                                                     SG1014.2
102200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
102300     PERFORM l49.                                                  SG1014.2
102400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
102500         PERFORM PASS                                             SG1014.2
102600         GO TO SEG-WRITE-50.                                      SG1014.2
102700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
102800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
102900     PERFORM FAIL.                                                SG1014.2
103000     GO TO SEG-WRITE-50.                                          SG1014.2
103100 SEG-DELETE-50.                                                   SG1014.2
103200     PERFORM DE-LETE.                                             SG1014.2
103300 SEG-WRITE-50.                                                    SG1014.2
103400     MOVE "SEG-TEST-50 " TO PAR-NAME.                             SG1014.2
103500     PERFORM PRINT-DETAIL.                                        SG1014.2
103600 SEG-TEST-51.                                                     SG1014.2
103700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
103800     PERFORM l50.                                                  SG1014.2
103900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
104000         PERFORM PASS                                             SG1014.2
104100         GO TO SEG-WRITE-51.                                      SG1014.2
104200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
104300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
104400     PERFORM FAIL.                                                SG1014.2
104500     GO TO SEG-WRITE-51.                                          SG1014.2
104600 SEG-DELETE-51.                                                   SG1014.2
104700     PERFORM DE-LETE.                                             SG1014.2
104800 SEG-WRITE-51.                                                    SG1014.2
104900     MOVE "SEG-TEST-51 " TO PAR-NAME.                             SG1014.2
105000     PERFORM PRINT-DETAIL.                                        SG1014.2
105100 SEG-TEST-52.                                                     SG1014.2
105200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
105300     PERFORM l51.                                                  SG1014.2
105400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
105500         PERFORM PASS                                             SG1014.2
105600         GO TO SEG-WRITE-52.                                      SG1014.2
105700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
105800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
105900     PERFORM FAIL.                                                SG1014.2
106000     GO TO SEG-WRITE-52.                                          SG1014.2
106100 SEG-DELETE-52.                                                   SG1014.2
106200     PERFORM DE-LETE.                                             SG1014.2
106300 SEG-WRITE-52.                                                    SG1014.2
106400     MOVE "SEG-TEST-52 " TO PAR-NAME.                             SG1014.2
106500     PERFORM PRINT-DETAIL.                                        SG1014.2
106600 SEG-TEST-53.                                                     SG1014.2
106700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
106800     PERFORM l52.                                                  SG1014.2
106900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
107000         PERFORM PASS                                             SG1014.2
107100         GO TO SEG-WRITE-53.                                      SG1014.2
107200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
107300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
107400     PERFORM FAIL.                                                SG1014.2
107500     GO TO SEG-WRITE-53.                                          SG1014.2
107600 SEG-DELETE-53.                                                   SG1014.2
107700     PERFORM DE-LETE.                                             SG1014.2
107800 SEG-WRITE-53.                                                    SG1014.2
107900     MOVE "SEG-TEST-53 " TO PAR-NAME.                             SG1014.2
108000     PERFORM PRINT-DETAIL.                                        SG1014.2
108100 SEG-TEST-54.                                                     SG1014.2
108200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
108300     PERFORM l53.                                                  SG1014.2
108400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
108500         PERFORM PASS                                             SG1014.2
108600         GO TO SEG-WRITE-54.                                      SG1014.2
108700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
108800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
108900     PERFORM FAIL.                                                SG1014.2
109000     GO TO SEG-WRITE-54.                                          SG1014.2
109100 SEG-DELETE-54.                                                   SG1014.2
109200     PERFORM DE-LETE.                                             SG1014.2
109300 SEG-WRITE-54.                                                    SG1014.2
109400     MOVE "SEG-TEST-54 " TO PAR-NAME.                             SG1014.2
109500     PERFORM PRINT-DETAIL.                                        SG1014.2
109600 SEG-TEST-55.                                                     SG1014.2
109700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
109800     PERFORM l54.                                                  SG1014.2
109900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
110000         PERFORM PASS                                             SG1014.2
110100         GO TO SEG-WRITE-55.                                      SG1014.2
110200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
110300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
110400     PERFORM FAIL.                                                SG1014.2
110500     GO TO SEG-WRITE-55.                                          SG1014.2
110600 SEG-DELETE-55.                                                   SG1014.2
110700     PERFORM DE-LETE.                                             SG1014.2
110800 SEG-WRITE-55.                                                    SG1014.2
110900     MOVE "SEG-TEST-55 " TO PAR-NAME.                             SG1014.2
111000     PERFORM PRINT-DETAIL.                                        SG1014.2
111100 SEG-TEST-56.                                                     SG1014.2
111200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
111300     PERFORM l55.                                                  SG1014.2
111400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
111500         PERFORM PASS                                             SG1014.2
111600         GO TO SEG-WRITE-56.                                      SG1014.2
111700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
111800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
111900     PERFORM FAIL.                                                SG1014.2
112000     GO TO SEG-WRITE-56.                                          SG1014.2
112100 SEG-DELETE-56.                                                   SG1014.2
112200     PERFORM DE-LETE.                                             SG1014.2
112300 SEG-WRITE-56.                                                    SG1014.2
112400     MOVE "SEG-TEST-56 " TO PAR-NAME.                             SG1014.2
112500     PERFORM PRINT-DETAIL.                                        SG1014.2
112600 SEG-TEST-57.                                                     SG1014.2
112700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
112800     PERFORM l56.                                                  SG1014.2
112900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
113000         PERFORM PASS                                             SG1014.2
113100         GO TO SEG-WRITE-57.                                      SG1014.2
113200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
113300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
113400     PERFORM FAIL.                                                SG1014.2
113500     GO TO SEG-WRITE-57.                                          SG1014.2
113600 SEG-DELETE-57.                                                   SG1014.2
113700     PERFORM DE-LETE.                                             SG1014.2
113800 SEG-WRITE-57.                                                    SG1014.2
113900     MOVE "SEG-TEST-57 " TO PAR-NAME.                             SG1014.2
114000     PERFORM PRINT-DETAIL.                                        SG1014.2
114100 SEG-TEST-58.                                                     SG1014.2
114200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
114300     PERFORM l57.                                                  SG1014.2
114400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
114500         PERFORM PASS                                             SG1014.2
114600         GO TO SEG-WRITE-58.                                      SG1014.2
114700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
114800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
114900     PERFORM FAIL.                                                SG1014.2
115000     GO TO SEG-WRITE-58.                                          SG1014.2
115100 SEG-DELETE-58.                                                   SG1014.2
115200     PERFORM DE-LETE.                                             SG1014.2
115300 SEG-WRITE-58.                                                    SG1014.2
115400     MOVE "SEG-TEST-58 " TO PAR-NAME.                             SG1014.2
115500     PERFORM PRINT-DETAIL.                                        SG1014.2
115600 SEG-TEST-59.                                                     SG1014.2
115700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
115800     PERFORM l58.                                                  SG1014.2
115900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
116000         PERFORM PASS                                             SG1014.2
116100         GO TO SEG-WRITE-59.                                      SG1014.2
116200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
116300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
116400     PERFORM FAIL.                                                SG1014.2
116500     GO TO SEG-WRITE-59.                                          SG1014.2
116600 SEG-DELETE-59.                                                   SG1014.2
116700     PERFORM DE-LETE.                                             SG1014.2
116800 SEG-WRITE-59.                                                    SG1014.2
116900     MOVE "SEG-TEST-59 " TO PAR-NAME.                             SG1014.2
117000     PERFORM PRINT-DETAIL.                                        SG1014.2
117100 SEG-TEST-60.                                                     SG1014.2
117200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
117300     PERFORM l59.                                                  SG1014.2
117400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
117500         PERFORM PASS                                             SG1014.2
117600         GO TO SEG-WRITE-60.                                      SG1014.2
117700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
117800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
117900     PERFORM FAIL.                                                SG1014.2
118000     GO TO SEG-WRITE-60.                                          SG1014.2
118100 SEG-DELETE-60.                                                   SG1014.2
118200     PERFORM DE-LETE.                                             SG1014.2
118300 SEG-WRITE-60.                                                    SG1014.2
118400     MOVE "SEG-TEST-60 " TO PAR-NAME.                             SG1014.2
118500     PERFORM PRINT-DETAIL.                                        SG1014.2
118600 SEG-TEST-61.                                                     SG1014.2
118700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
118800     PERFORM l60.                                                  SG1014.2
118900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
119000         PERFORM PASS                                             SG1014.2
119100         GO TO SEG-WRITE-61.                                      SG1014.2
119200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
119300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
119400     PERFORM FAIL.                                                SG1014.2
119500     GO TO SEG-WRITE-61.                                          SG1014.2
119600 SEG-DELETE-61.                                                   SG1014.2
119700     PERFORM DE-LETE.                                             SG1014.2
119800 SEG-WRITE-61.                                                    SG1014.2
119900     MOVE "SEG-TEST-61 " TO PAR-NAME.                             SG1014.2
120000     PERFORM PRINT-DETAIL.                                        SG1014.2
120100 SEG-TEST-62.                                                     SG1014.2
120200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
120300     PERFORM l61.                                                  SG1014.2
120400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
120500         PERFORM PASS                                             SG1014.2
120600         GO TO SEG-WRITE-62.                                      SG1014.2
120700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
120800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
120900     PERFORM FAIL.                                                SG1014.2
121000     GO TO SEG-WRITE-62.                                          SG1014.2
121100 SEG-DELETE-62.                                                   SG1014.2
121200     PERFORM DE-LETE.                                             SG1014.2
121300 SEG-WRITE-62.                                                    SG1014.2
121400     MOVE "SEG-TEST-62 " TO PAR-NAME.                             SG1014.2
121500     PERFORM PRINT-DETAIL.                                        SG1014.2
121600 SEG-TEST-63.                                                     SG1014.2
121700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
121800     PERFORM l62.                                                  SG1014.2
121900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
122000         PERFORM PASS                                             SG1014.2
122100         GO TO SEG-WRITE-63.                                      SG1014.2
122200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
122300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
122400     PERFORM FAIL.                                                SG1014.2
122500     GO TO SEG-WRITE-63.                                          SG1014.2
122600 SEG-DELETE-63.                                                   SG1014.2
122700     PERFORM DE-LETE.                                             SG1014.2
122800 SEG-WRITE-63.                                                    SG1014.2
122900     MOVE "SEG-TEST-63 " TO PAR-NAME.                             SG1014.2
123000     PERFORM PRINT-DETAIL.                                        SG1014.2
123100 SEG-TEST-64.                                                     SG1014.2
123200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
123300     PERFORM l63.                                                  SG1014.2
123400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
123500         PERFORM PASS                                             SG1014.2
123600         GO TO SEG-WRITE-64.                                      SG1014.2
123700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
123800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
123900     PERFORM FAIL.                                                SG1014.2
124000     GO TO SEG-WRITE-64.                                          SG1014.2
124100 SEG-DELETE-64.                                                   SG1014.2
124200     PERFORM DE-LETE.                                             SG1014.2
124300 SEG-WRITE-64.                                                    SG1014.2
124400     MOVE "SEG-TEST-64 " TO PAR-NAME.                             SG1014.2
124500     PERFORM PRINT-DETAIL.                                        SG1014.2
124600 SEG-TEST-65.                                                     SG1014.2
124700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
124800     PERFORM l64.                                                  SG1014.2
124900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
125000         PERFORM PASS                                             SG1014.2
125100         GO TO SEG-WRITE-65.                                      SG1014.2
125200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
125300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
125400     PERFORM FAIL.                                                SG1014.2
125500     GO TO SEG-WRITE-65.                                          SG1014.2
125600 SEG-DELETE-65.                                                   SG1014.2
125700     PERFORM DE-LETE.                                             SG1014.2
125800 SEG-WRITE-65.                                                    SG1014.2
125900     MOVE "SEG-TEST-65 " TO PAR-NAME.                             SG1014.2
126000     PERFORM PRINT-DETAIL.                                        SG1014.2
126100 SEG-TEST-66.                                                     SG1014.2
126200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
126300     PERFORM l65.                                                  SG1014.2
126400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
126500         PERFORM PASS                                             SG1014.2
126600         GO TO SEG-WRITE-66.                                      SG1014.2
126700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
126800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
126900     PERFORM FAIL.                                                SG1014.2
127000     GO TO SEG-WRITE-66.                                          SG1014.2
127100 SEG-DELETE-66.                                                   SG1014.2
127200     PERFORM DE-LETE.                                             SG1014.2
127300 SEG-WRITE-66.                                                    SG1014.2
127400     MOVE "SEG-TEST-66 " TO PAR-NAME.                             SG1014.2
127500     PERFORM PRINT-DETAIL.                                        SG1014.2
127600 SEG-TEST-67.                                                     SG1014.2
127700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
127800     PERFORM l66.                                                  SG1014.2
127900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
128000         PERFORM PASS                                             SG1014.2
128100         GO TO SEG-WRITE-67.                                      SG1014.2
128200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
128300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
128400     PERFORM FAIL.                                                SG1014.2
128500     GO TO SEG-WRITE-67.                                          SG1014.2
128600 SEG-DELETE-67.                                                   SG1014.2
128700     PERFORM DE-LETE.                                             SG1014.2
128800 SEG-WRITE-67.                                                    SG1014.2
128900     MOVE "SEG-TEST-67 " TO PAR-NAME.                             SG1014.2
129000     PERFORM PRINT-DETAIL.                                        SG1014.2
129100 SEG-TEST-68.                                                     SG1014.2
129200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
129300     PERFORM l67.                                                  SG1014.2
129400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
129500         PERFORM PASS                                             SG1014.2
129600         GO TO SEG-WRITE-68.                                      SG1014.2
129700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
129800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
129900     PERFORM FAIL.                                                SG1014.2
130000     GO TO SEG-WRITE-68.                                          SG1014.2
130100 SEG-DELETE-68.                                                   SG1014.2
130200     PERFORM DE-LETE.                                             SG1014.2
130300 SEG-WRITE-68.                                                    SG1014.2
130400     MOVE "SEG-TEST-68 " TO PAR-NAME.                             SG1014.2
130500     PERFORM PRINT-DETAIL.                                        SG1014.2
130600 SEG-TEST-69.                                                     SG1014.2
130700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
130800     PERFORM l68.                                                  SG1014.2
130900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
131000         PERFORM PASS                                             SG1014.2
131100         GO TO SEG-WRITE-69.                                      SG1014.2
131200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
131300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
131400     PERFORM FAIL.                                                SG1014.2
131500     GO TO SEG-WRITE-69.                                          SG1014.2
131600 SEG-DELETE-69.                                                   SG1014.2
131700     PERFORM DE-LETE.                                             SG1014.2
131800 SEG-WRITE-69.                                                    SG1014.2
131900     MOVE "SEG-TEST-69 " TO PAR-NAME.                             SG1014.2
132000     PERFORM PRINT-DETAIL.                                        SG1014.2
132100 SEG-TEST-70.                                                     SG1014.2
132200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
132300     PERFORM l69.                                                  SG1014.2
132400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
132500         PERFORM PASS                                             SG1014.2
132600         GO TO SEG-WRITE-70.                                      SG1014.2
132700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
132800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
132900     PERFORM FAIL.                                                SG1014.2
133000     GO TO SEG-WRITE-70.                                          SG1014.2
133100 SEG-DELETE-70.                                                   SG1014.2
133200     PERFORM DE-LETE.                                             SG1014.2
133300 SEG-WRITE-70.                                                    SG1014.2
133400     MOVE "SEG-TEST-70 " TO PAR-NAME.                             SG1014.2
133500     PERFORM PRINT-DETAIL.                                        SG1014.2
133600 SEG-TEST-71.                                                     SG1014.2
133700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
133800     PERFORM l70.                                                  SG1014.2
133900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
134000         PERFORM PASS                                             SG1014.2
134100         GO TO SEG-WRITE-71.                                      SG1014.2
134200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
134300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
134400     PERFORM FAIL.                                                SG1014.2
134500     GO TO SEG-WRITE-71.                                          SG1014.2
134600 SEG-DELETE-71.                                                   SG1014.2
134700     PERFORM DE-LETE.                                             SG1014.2
134800 SEG-WRITE-71.                                                    SG1014.2
134900     MOVE "SEG-TEST-71 " TO PAR-NAME.                             SG1014.2
135000     PERFORM PRINT-DETAIL.                                        SG1014.2
135100 SEG-TEST-72.                                                     SG1014.2
135200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
135300     PERFORM l71.                                                  SG1014.2
135400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
135500         PERFORM PASS                                             SG1014.2
135600         GO TO SEG-WRITE-72.                                      SG1014.2
135700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
135800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
135900     PERFORM FAIL.                                                SG1014.2
136000     GO TO SEG-WRITE-72.                                          SG1014.2
136100 SEG-DELETE-72.                                                   SG1014.2
136200     PERFORM DE-LETE.                                             SG1014.2
136300 SEG-WRITE-72.                                                    SG1014.2
136400     MOVE "SEG-TEST-72 " TO PAR-NAME.                             SG1014.2
136500     PERFORM PRINT-DETAIL.                                        SG1014.2
136600 SEG-TEST-73.                                                     SG1014.2
136700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
136800     PERFORM l72.                                                  SG1014.2
136900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
137000         PERFORM PASS                                             SG1014.2
137100         GO TO SEG-WRITE-73.                                      SG1014.2
137200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
137300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
137400     PERFORM FAIL.                                                SG1014.2
137500     GO TO SEG-WRITE-73.                                          SG1014.2
137600 SEG-DELETE-73.                                                   SG1014.2
137700     PERFORM DE-LETE.                                             SG1014.2
137800 SEG-WRITE-73.                                                    SG1014.2
137900     MOVE "SEG-TEST-73 " TO PAR-NAME.                             SG1014.2
138000     PERFORM PRINT-DETAIL.                                        SG1014.2
138100 SEG-TEST-74.                                                     SG1014.2
138200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
138300     PERFORM l73.                                                  SG1014.2
138400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
138500         PERFORM PASS                                             SG1014.2
138600         GO TO SEG-WRITE-74.                                      SG1014.2
138700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
138800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
138900     PERFORM FAIL.                                                SG1014.2
139000     GO TO SEG-WRITE-74.                                          SG1014.2
139100 SEG-DELETE-74.                                                   SG1014.2
139200     PERFORM DE-LETE.                                             SG1014.2
139300 SEG-WRITE-74.                                                    SG1014.2
139400     MOVE "SEG-TEST-74 " TO PAR-NAME.                             SG1014.2
139500     PERFORM PRINT-DETAIL.                                        SG1014.2
139600 SEG-TEST-75.                                                     SG1014.2
139700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
139800     PERFORM l74.                                                  SG1014.2
139900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
140000         PERFORM PASS                                             SG1014.2
140100         GO TO SEG-WRITE-75.                                      SG1014.2
140200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
140300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
140400     PERFORM FAIL.                                                SG1014.2
140500     GO TO SEG-WRITE-75.                                          SG1014.2
140600 SEG-DELETE-75.                                                   SG1014.2
140700     PERFORM DE-LETE.                                             SG1014.2
140800 SEG-WRITE-75.                                                    SG1014.2
140900     MOVE "SEG-TEST-75 " TO PAR-NAME.                             SG1014.2
141000     PERFORM PRINT-DETAIL.                                        SG1014.2
141100 SEG-TEST-76.                                                     SG1014.2
141200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
141300     PERFORM l75.                                                  SG1014.2
141400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
141500         PERFORM PASS                                             SG1014.2
141600         GO TO SEG-WRITE-76.                                      SG1014.2
141700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
141800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
141900     PERFORM FAIL.                                                SG1014.2
142000     GO TO SEG-WRITE-76.                                          SG1014.2
142100 SEG-DELETE-76.                                                   SG1014.2
142200     PERFORM DE-LETE.                                             SG1014.2
142300 SEG-WRITE-76.                                                    SG1014.2
142400     MOVE "SEG-TEST-76 " TO PAR-NAME.                             SG1014.2
142500     PERFORM PRINT-DETAIL.                                        SG1014.2
142600 SEG-TEST-77.                                                     SG1014.2
142700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
142800     PERFORM l76.                                                  SG1014.2
142900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
143000         PERFORM PASS                                             SG1014.2
143100         GO TO SEG-WRITE-77.                                      SG1014.2
143200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
143300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
143400     PERFORM FAIL.                                                SG1014.2
143500     GO TO SEG-WRITE-77.                                          SG1014.2
143600 SEG-DELETE-77.                                                   SG1014.2
143700     PERFORM DE-LETE.                                             SG1014.2
143800 SEG-WRITE-77.                                                    SG1014.2
143900     MOVE "SEG-TEST-77 " TO PAR-NAME.                             SG1014.2
144000     PERFORM PRINT-DETAIL.                                        SG1014.2
144100 SEG-TEST-78.                                                     SG1014.2
144200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
144300     PERFORM l77.                                                  SG1014.2
144400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
144500         PERFORM PASS                                             SG1014.2
144600         GO TO SEG-WRITE-78.                                      SG1014.2
144700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
144800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
144900     PERFORM FAIL.                                                SG1014.2
145000     GO TO SEG-WRITE-78.                                          SG1014.2
145100 SEG-DELETE-78.                                                   SG1014.2
145200     PERFORM DE-LETE.                                             SG1014.2
145300 SEG-WRITE-78.                                                    SG1014.2
145400     MOVE "SEG-TEST-78 " TO PAR-NAME.                             SG1014.2
145500     PERFORM PRINT-DETAIL.                                        SG1014.2
145600 SEG-TEST-79.                                                     SG1014.2
145700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
145800     PERFORM l78.                                                  SG1014.2
145900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
146000         PERFORM PASS                                             SG1014.2
146100         GO TO SEG-WRITE-79.                                      SG1014.2
146200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
146300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
146400     PERFORM FAIL.                                                SG1014.2
146500     GO TO SEG-WRITE-79.                                          SG1014.2
146600 SEG-DELETE-79.                                                   SG1014.2
146700     PERFORM DE-LETE.                                             SG1014.2
146800 SEG-WRITE-79.                                                    SG1014.2
146900     MOVE "SEG-TEST-79 " TO PAR-NAME.                             SG1014.2
147000     PERFORM PRINT-DETAIL.                                        SG1014.2
147100 SEG-TEST-80.                                                     SG1014.2
147200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
147300     PERFORM l79.                                                  SG1014.2
147400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
147500         PERFORM PASS                                             SG1014.2
147600         GO TO SEG-WRITE-80.                                      SG1014.2
147700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
147800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
147900     PERFORM FAIL.                                                SG1014.2
148000     GO TO SEG-WRITE-80.                                          SG1014.2
148100 SEG-DELETE-80.                                                   SG1014.2
148200     PERFORM DE-LETE.                                             SG1014.2
148300 SEG-WRITE-80.                                                    SG1014.2
148400     MOVE "SEG-TEST-80 " TO PAR-NAME.                             SG1014.2
148500     PERFORM PRINT-DETAIL.                                        SG1014.2
148600 SEG-TEST-81.                                                     SG1014.2
148700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
148800     PERFORM l80.                                                  SG1014.2
148900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
149000         PERFORM PASS                                             SG1014.2
149100         GO TO SEG-WRITE-81.                                      SG1014.2
149200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
149300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
149400     PERFORM FAIL.                                                SG1014.2
149500     GO TO SEG-WRITE-81.                                          SG1014.2
149600 SEG-DELETE-81.                                                   SG1014.2
149700     PERFORM DE-LETE.                                             SG1014.2
149800 SEG-WRITE-81.                                                    SG1014.2
149900     MOVE "SEG-TEST-81 " TO PAR-NAME.                             SG1014.2
150000     PERFORM PRINT-DETAIL.                                        SG1014.2
150100 SEG-TEST-82.                                                     SG1014.2
150200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
150300     PERFORM l81.                                                  SG1014.2
150400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
150500         PERFORM PASS                                             SG1014.2
150600         GO TO SEG-WRITE-82.                                      SG1014.2
150700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
150800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
150900     PERFORM FAIL.                                                SG1014.2
151000     GO TO SEG-WRITE-82.                                          SG1014.2
151100 SEG-DELETE-82.                                                   SG1014.2
151200     PERFORM DE-LETE.                                             SG1014.2
151300 SEG-WRITE-82.                                                    SG1014.2
151400     MOVE "SEG-TEST-82 " TO PAR-NAME.                             SG1014.2
151500     PERFORM PRINT-DETAIL.                                        SG1014.2
151600 SEG-TEST-83.                                                     SG1014.2
151700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
151800     PERFORM l82.                                                  SG1014.2
151900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
152000         PERFORM PASS                                             SG1014.2
152100         GO TO SEG-WRITE-83.                                      SG1014.2
152200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
152300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
152400     PERFORM FAIL.                                                SG1014.2
152500     GO TO SEG-WRITE-83.                                          SG1014.2
152600 SEG-DELETE-83.                                                   SG1014.2
152700     PERFORM DE-LETE.                                             SG1014.2
152800 SEG-WRITE-83.                                                    SG1014.2
152900     MOVE "SEG-TEST-83 " TO PAR-NAME.                             SG1014.2
153000     PERFORM PRINT-DETAIL.                                        SG1014.2
153100 SEG-TEST-84.                                                     SG1014.2
153200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
153300     PERFORM l83.                                                  SG1014.2
153400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
153500         PERFORM PASS                                             SG1014.2
153600         GO TO SEG-WRITE-84.                                      SG1014.2
153700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
153800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
153900     PERFORM FAIL.                                                SG1014.2
154000     GO TO SEG-WRITE-84.                                          SG1014.2
154100 SEG-DELETE-84.                                                   SG1014.2
154200     PERFORM DE-LETE.                                             SG1014.2
154300 SEG-WRITE-84.                                                    SG1014.2
154400     MOVE "SEG-TEST-84 " TO PAR-NAME.                             SG1014.2
154500     PERFORM PRINT-DETAIL.                                        SG1014.2
154600 SEG-TEST-85.                                                     SG1014.2
154700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
154800     PERFORM l84.                                                  SG1014.2
154900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
155000         PERFORM PASS                                             SG1014.2
155100         GO TO SEG-WRITE-85.                                      SG1014.2
155200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
155300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
155400     PERFORM FAIL.                                                SG1014.2
155500     GO TO SEG-WRITE-85.                                          SG1014.2
155600 SEG-DELETE-85.                                                   SG1014.2
155700     PERFORM DE-LETE.                                             SG1014.2
155800 SEG-WRITE-85.                                                    SG1014.2
155900     MOVE "SEG-TEST-85 " TO PAR-NAME.                             SG1014.2
156000     PERFORM PRINT-DETAIL.                                        SG1014.2
156100 SEG-TEST-86.                                                     SG1014.2
156200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
156300     PERFORM l85.                                                  SG1014.2
156400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
156500         PERFORM PASS                                             SG1014.2
156600         GO TO SEG-WRITE-86.                                      SG1014.2
156700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
156800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
156900     PERFORM FAIL.                                                SG1014.2
157000     GO TO SEG-WRITE-86.                                          SG1014.2
157100 SEG-DELETE-86.                                                   SG1014.2
157200     PERFORM DE-LETE.                                             SG1014.2
157300 SEG-WRITE-86.                                                    SG1014.2
157400     MOVE "SEG-TEST-86 " TO PAR-NAME.                             SG1014.2
157500     PERFORM PRINT-DETAIL.                                        SG1014.2
157600 SEG-TEST-87.                                                     SG1014.2
157700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
157800     PERFORM l86.                                                  SG1014.2
157900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
158000         PERFORM PASS                                             SG1014.2
158100         GO TO SEG-WRITE-87.                                      SG1014.2
158200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
158300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
158400     PERFORM FAIL.                                                SG1014.2
158500     GO TO SEG-WRITE-87.                                          SG1014.2
158600 SEG-DELETE-87.                                                   SG1014.2
158700     PERFORM DE-LETE.                                             SG1014.2
158800 SEG-WRITE-87.                                                    SG1014.2
158900     MOVE "SEG-TEST-87 " TO PAR-NAME.                             SG1014.2
159000     PERFORM PRINT-DETAIL.                                        SG1014.2
159100 SEG-TEST-88.                                                     SG1014.2
159200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
159300     PERFORM l87.                                                  SG1014.2
159400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
159500         PERFORM PASS                                             SG1014.2
159600         GO TO SEG-WRITE-88.                                      SG1014.2
159700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
159800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
159900     PERFORM FAIL.                                                SG1014.2
160000     GO TO SEG-WRITE-88.                                          SG1014.2
160100 SEG-DELETE-88.                                                   SG1014.2
160200     PERFORM DE-LETE.                                             SG1014.2
160300 SEG-WRITE-88.                                                    SG1014.2
160400     MOVE "SEG-TEST-88 " TO PAR-NAME.                             SG1014.2
160500     PERFORM PRINT-DETAIL.                                        SG1014.2
160600 SEG-TEST-89.                                                     SG1014.2
160700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
160800     PERFORM l88.                                                  SG1014.2
160900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
161000         PERFORM PASS                                             SG1014.2
161100         GO TO SEG-WRITE-89.                                      SG1014.2
161200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
161300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
161400     PERFORM FAIL.                                                SG1014.2
161500     GO TO SEG-WRITE-89.                                          SG1014.2
161600 SEG-DELETE-89.                                                   SG1014.2
161700     PERFORM DE-LETE.                                             SG1014.2
161800 SEG-WRITE-89.                                                    SG1014.2
161900     MOVE "SEG-TEST-89 " TO PAR-NAME.                             SG1014.2
162000     PERFORM PRINT-DETAIL.                                        SG1014.2
162100 SEG-TEST-90.                                                     SG1014.2
162200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
162300     PERFORM l89.                                                  SG1014.2
162400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
162500         PERFORM PASS                                             SG1014.2
162600         GO TO SEG-WRITE-90.                                      SG1014.2
162700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
162800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
162900     PERFORM FAIL.                                                SG1014.2
163000     GO TO SEG-WRITE-90.                                          SG1014.2
163100 SEG-DELETE-90.                                                   SG1014.2
163200     PERFORM DE-LETE.                                             SG1014.2
163300 SEG-WRITE-90.                                                    SG1014.2
163400     MOVE "SEG-TEST-90 " TO PAR-NAME.                             SG1014.2
163500     PERFORM PRINT-DETAIL.                                        SG1014.2
163600 SEG-TEST-91.                                                     SG1014.2
163700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
163800     PERFORM l90.                                                  SG1014.2
163900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
164000         PERFORM PASS                                             SG1014.2
164100         GO TO SEG-WRITE-91.                                      SG1014.2
164200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
164300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
164400     PERFORM FAIL.                                                SG1014.2
164500     GO TO SEG-WRITE-91.                                          SG1014.2
164600 SEG-DELETE-91.                                                   SG1014.2
164700     PERFORM DE-LETE.                                             SG1014.2
164800 SEG-WRITE-91.                                                    SG1014.2
164900     MOVE "SEG-TEST-91 " TO PAR-NAME.                             SG1014.2
165000     PERFORM PRINT-DETAIL.                                        SG1014.2
165100 SEG-TEST-92.                                                     SG1014.2
165200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
165300     PERFORM l91.                                                  SG1014.2
165400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
165500         PERFORM PASS                                             SG1014.2
165600         GO TO SEG-WRITE-92.                                      SG1014.2
165700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
165800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
165900     PERFORM FAIL.                                                SG1014.2
166000     GO TO SEG-WRITE-92.                                          SG1014.2
166100 SEG-DELETE-92.                                                   SG1014.2
166200     PERFORM DE-LETE.                                             SG1014.2
166300 SEG-WRITE-92.                                                    SG1014.2
166400     MOVE "SEG-TEST-92 " TO PAR-NAME.                             SG1014.2
166500     PERFORM PRINT-DETAIL.                                        SG1014.2
166600 SEG-TEST-93.                                                     SG1014.2
166700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
166800     PERFORM l92.                                                  SG1014.2
166900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
167000         PERFORM PASS                                             SG1014.2
167100         GO TO SEG-WRITE-93.                                      SG1014.2
167200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
167300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
167400     PERFORM FAIL.                                                SG1014.2
167500     GO TO SEG-WRITE-93.                                          SG1014.2
167600 SEG-DELETE-93.                                                   SG1014.2
167700     PERFORM DE-LETE.                                             SG1014.2
167800 SEG-WRITE-93.                                                    SG1014.2
167900     MOVE "SEG-TEST-93 " TO PAR-NAME.                             SG1014.2
168000     PERFORM PRINT-DETAIL.                                        SG1014.2
168100 SEG-TEST-94.                                                     SG1014.2
168200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
168300     PERFORM l93.                                                  SG1014.2
168400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
168500         PERFORM PASS                                             SG1014.2
168600         GO TO SEG-WRITE-94.                                      SG1014.2
168700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
168800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
168900     PERFORM FAIL.                                                SG1014.2
169000     GO TO SEG-WRITE-94.                                          SG1014.2
169100 SEG-DELETE-94.                                                   SG1014.2
169200     PERFORM DE-LETE.                                             SG1014.2
169300 SEG-WRITE-94.                                                    SG1014.2
169400     MOVE "SEG-TEST-94 " TO PAR-NAME.                             SG1014.2
169500     PERFORM PRINT-DETAIL.                                        SG1014.2
169600 SEG-TEST-95.                                                     SG1014.2
169700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
169800     PERFORM l94.                                                  SG1014.2
169900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
170000         PERFORM PASS                                             SG1014.2
170100         GO TO SEG-WRITE-95.                                      SG1014.2
170200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
170300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
170400     PERFORM FAIL.                                                SG1014.2
170500     GO TO SEG-WRITE-95.                                          SG1014.2
170600 SEG-DELETE-95.                                                   SG1014.2
170700     PERFORM DE-LETE.                                             SG1014.2
170800 SEG-WRITE-95.                                                    SG1014.2
170900     MOVE "SEG-TEST-95 " TO PAR-NAME.                             SG1014.2
171000     PERFORM PRINT-DETAIL.                                        SG1014.2
171100 SEG-TEST-96.                                                     SG1014.2
171200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
171300     PERFORM l95.                                                  SG1014.2
171400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
171500         PERFORM PASS                                             SG1014.2
171600         GO TO SEG-WRITE-96.                                      SG1014.2
171700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
171800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
171900     PERFORM FAIL.                                                SG1014.2
172000     GO TO SEG-WRITE-96.                                          SG1014.2
172100 SEG-DELETE-96.                                                   SG1014.2
172200     PERFORM DE-LETE.                                             SG1014.2
172300 SEG-WRITE-96.                                                    SG1014.2
172400     MOVE "SEG-TEST-96 " TO PAR-NAME.                             SG1014.2
172500     PERFORM PRINT-DETAIL.                                        SG1014.2
172600 SEG-TEST-97.                                                     SG1014.2
172700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
172800     PERFORM l96.                                                  SG1014.2
172900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
173000         PERFORM PASS                                             SG1014.2
173100         GO TO SEG-WRITE-97.                                      SG1014.2
173200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
173300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
173400     PERFORM FAIL.                                                SG1014.2
173500     GO TO SEG-WRITE-97.                                          SG1014.2
173600 SEG-DELETE-97.                                                   SG1014.2
173700     PERFORM DE-LETE.                                             SG1014.2
173800 SEG-WRITE-97.                                                    SG1014.2
173900     MOVE "SEG-TEST-97 " TO PAR-NAME.                             SG1014.2
174000     PERFORM PRINT-DETAIL.                                        SG1014.2
174100 SEG-TEST-98.                                                     SG1014.2
174200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
174300     PERFORM l97.                                                  SG1014.2
174400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
174500         PERFORM PASS                                             SG1014.2
174600         GO TO SEG-WRITE-98.                                      SG1014.2
174700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
174800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
174900     PERFORM FAIL.                                                SG1014.2
175000     GO TO SEG-WRITE-98.                                          SG1014.2
175100 SEG-DELETE-98.                                                   SG1014.2
175200     PERFORM DE-LETE.                                             SG1014.2
175300 SEG-WRITE-98.                                                    SG1014.2
175400     MOVE "SEG-TEST-98 " TO PAR-NAME.                             SG1014.2
175500     PERFORM PRINT-DETAIL.                                        SG1014.2
175600 SEG-TEST-99.                                                     SG1014.2
175700     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
175800     PERFORM l98.                                                  SG1014.2
175900     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
176000         PERFORM PASS                                             SG1014.2
176100         GO TO SEG-WRITE-99.                                      SG1014.2
176200     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
176300     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
176400     PERFORM FAIL.                                                SG1014.2
176500     GO TO SEG-WRITE-99.                                          SG1014.2
176600 SEG-DELETE-99.                                                   SG1014.2
176700     PERFORM DE-LETE.                                             SG1014.2
176800 SEG-WRITE-99.                                                    SG1014.2
176900     MOVE "SEG-TEST-99 " TO PAR-NAME.                             SG1014.2
177000     PERFORM PRINT-DETAIL.                                        SG1014.2
177100 SEG-TEST-100.                                                    SG1014.2
177200     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
177300     PERFORM l99.                                                  SG1014.2
177400     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
177500         PERFORM PASS                                             SG1014.2
177600         GO TO SEG-WRITE-100.                                     SG1014.2
177700     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
177800     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
177900     PERFORM FAIL.                                                SG1014.2
178000     GO TO SEG-WRITE-100.                                         SG1014.2
178100 SEG-DELETE-100.                                                  SG1014.2
178200     PERFORM DE-LETE.                                             SG1014.2
178300 SEG-WRITE-100.                                                   SG1014.2
178400     MOVE "SEG-TEST-100" TO PAR-NAME.                             SG1014.2
178500     PERFORM PRINT-DETAIL.                                        SG1014.2
178600     GO TO SECOND-HALF.                                           SG1014.2
178700 l01  SECTION 01.                                                  SG1014.2
178800 PARA-01.                                                         SG1014.2
178900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
179000 l02  SECTION 02.                                                  SG1014.2
179100 PARA-02.                                                         SG1014.2
179200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
179300 l03  SECTION 03.                                                  SG1014.2
179400 PARA-03.                                                         SG1014.2
179500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
179600 l04  SECTION 04.                                                  SG1014.2
179700 PARA-04.                                                         SG1014.2
179800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
179900 l05  SECTION 05.                                                  SG1014.2
180000 PARA-05.                                                         SG1014.2
180100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
180200 l06  SECTION 06.                                                  SG1014.2
180300 PARA-06.                                                         SG1014.2
180400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
180500 l07  SECTION 07.                                                  SG1014.2
180600 PARA-07.                                                         SG1014.2
180700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
180800 l08  SECTION 08.                                                  SG1014.2
180900 PARA-08.                                                         SG1014.2
181000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
181100 l09  SECTION 09.                                                  SG1014.2
181200 PARA-09.                                                         SG1014.2
181300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
181400 l10  SECTION 10.                                                  SG1014.2
181500 PARA-10.                                                         SG1014.2
181600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
181700 l11  SECTION 11.                                                  SG1014.2
181800 PARA-11.                                                         SG1014.2
181900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
182000 l12  SECTION 12.                                                  SG1014.2
182100 PARA-12.                                                         SG1014.2
182200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
182300 l13  SECTION 13.                                                  SG1014.2
182400 PARA-13.                                                         SG1014.2
182500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
182600 l14  SECTION 14.                                                  SG1014.2
182700 PARA-14.                                                         SG1014.2
182800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
182900 l15  SECTION 15.                                                  SG1014.2
183000 PARA-15.                                                         SG1014.2
183100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
183200 l16  SECTION 16.                                                  SG1014.2
183300 PARA-16.                                                         SG1014.2
183400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
183500 l17  SECTION 17.                                                  SG1014.2
183600 PARA-17.                                                         SG1014.2
183700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
183800 l18  SECTION 18.                                                  SG1014.2
183900 PARA-18.                                                         SG1014.2
184000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
184100 l19  SECTION 19.                                                  SG1014.2
184200 PARA-19.                                                         SG1014.2
184300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
184400 l20  SECTION 20.                                                  SG1014.2
184500 PARA-20.                                                         SG1014.2
184600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
184700 l21  SECTION 21.                                                  SG1014.2
184800 PARA-21.                                                         SG1014.2
184900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
185000 l22  SECTION 22.                                                  SG1014.2
185100 PARA-22.                                                         SG1014.2
185200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
185300 l23  SECTION 23.                                                  SG1014.2
185400 PARA-23.                                                         SG1014.2
185500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
185600 l24  SECTION 24.                                                  SG1014.2
185700 PARA-24.                                                         SG1014.2
185800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
185900 l25  SECTION 25.                                                  SG1014.2
186000 PARA-25.                                                         SG1014.2
186100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
186200 l26  SECTION 26.                                                  SG1014.2
186300 PARA-26.                                                         SG1014.2
186400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
186500 l27  SECTION 27.                                                  SG1014.2
186600 PARA-27.                                                         SG1014.2
186700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
186800 l28  SECTION 28.                                                  SG1014.2
186900 PARA-28.                                                         SG1014.2
187000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
187100 l29  SECTION 29.                                                  SG1014.2
187200 PARA-29.                                                         SG1014.2
187300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
187400 l30  SECTION 30.                                                  SG1014.2
187500 PARA-30.                                                         SG1014.2
187600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
187700 l31  SECTION 31.                                                  SG1014.2
187800 PARA-31.                                                         SG1014.2
187900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
188000 l32  SECTION 32.                                                  SG1014.2
188100 PARA-32.                                                         SG1014.2
188200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
188300 l33  SECTION 33.                                                  SG1014.2
188400 PARA-33.                                                         SG1014.2
188500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
188600 l34  SECTION 34.                                                  SG1014.2
188700 PARA-34.                                                         SG1014.2
188800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
188900 l35  SECTION 35.                                                  SG1014.2
189000 PARA-35.                                                         SG1014.2
189100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
189200 l36  SECTION 36.                                                  SG1014.2
189300 PARA-36.                                                         SG1014.2
189400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
189500 l37  SECTION 37.                                                  SG1014.2
189600 PARA-37.                                                         SG1014.2
189700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
189800 l38  SECTION 38.                                                  SG1014.2
189900 PARA-38.                                                         SG1014.2
190000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
190100 l39  SECTION 39.                                                  SG1014.2
190200 PARA-39.                                                         SG1014.2
190300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
190400 l40  SECTION 40.                                                  SG1014.2
190500 PARA-40.                                                         SG1014.2
190600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
190700 l41  SECTION 41.                                                  SG1014.2
190800 PARA-41.                                                         SG1014.2
190900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
191000 l42  SECTION 42.                                                  SG1014.2
191100 PARA-42.                                                         SG1014.2
191200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
191300 l43  SECTION 43.                                                  SG1014.2
191400 PARA-43.                                                         SG1014.2
191500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
191600 l44  SECTION 44.                                                  SG1014.2
191700 PARA-44.                                                         SG1014.2
191800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
191900 l45  SECTION 45.                                                  SG1014.2
192000 PARA-45.                                                         SG1014.2
192100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
192200 l46  SECTION 46.                                                  SG1014.2
192300 PARA-46.                                                         SG1014.2
192400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
192500 l47  SECTION 47.                                                  SG1014.2
192600 PARA-47.                                                         SG1014.2
192700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
192800 l48  SECTION 48.                                                  SG1014.2
192900 PARA-48.                                                         SG1014.2
193000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
193100 l49  SECTION 49.                                                  SG1014.2
193200 PARA-49.                                                         SG1014.2
193300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
193400 SECOND-HALF SECTION 50.                                          SG1014.2
193500 SEG-TEST-101.                                                    SG1014.2
193600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
193700     PERFORM l50.                                                  SG1014.2
193800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
193900         PERFORM PASS                                             SG1014.2
194000         GO TO SEG-WRITE-101.                                     SG1014.2
194100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
194200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
194300     PERFORM FAIL.                                                SG1014.2
194400     GO TO SEG-WRITE-101.                                         SG1014.2
194500 SEG-DELETE-101.                                                  SG1014.2
194600     PERFORM DE-LETE.                                             SG1014.2
194700 SEG-WRITE-101.                                                   SG1014.2
194800     MOVE "SEG-TEST-101" TO PAR-NAME.                             SG1014.2
194900     PERFORM PRINT-DETAIL.                                        SG1014.2
195000 SEG-TEST-102.                                                    SG1014.2
195100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
195200     PERFORM l49.                                                  SG1014.2
195300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
195400         PERFORM PASS                                             SG1014.2
195500         GO TO SEG-WRITE-102.                                     SG1014.2
195600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
195700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
195800     PERFORM FAIL.                                                SG1014.2
195900     GO TO SEG-WRITE-102.                                         SG1014.2
196000 SEG-DELETE-102.                                                  SG1014.2
196100     PERFORM DE-LETE.                                             SG1014.2
196200 SEG-WRITE-102.                                                   SG1014.2
196300     MOVE "SEG-TEST-102" TO PAR-NAME.                             SG1014.2
196400     PERFORM PRINT-DETAIL.                                        SG1014.2
196500 SEG-TEST-103.                                                    SG1014.2
196600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
196700     PERFORM l48.                                                  SG1014.2
196800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
196900         PERFORM PASS                                             SG1014.2
197000         GO TO SEG-WRITE-103.                                     SG1014.2
197100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
197200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
197300     PERFORM FAIL.                                                SG1014.2
197400     GO TO SEG-WRITE-103.                                         SG1014.2
197500 SEG-DELETE-103.                                                  SG1014.2
197600     PERFORM DE-LETE.                                             SG1014.2
197700 SEG-WRITE-103.                                                   SG1014.2
197800     MOVE "SEG-TEST-103" TO PAR-NAME.                             SG1014.2
197900     PERFORM PRINT-DETAIL.                                        SG1014.2
198000 SEG-TEST-104.                                                    SG1014.2
198100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
198200     PERFORM l47.                                                  SG1014.2
198300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
198400         PERFORM PASS                                             SG1014.2
198500         GO TO SEG-WRITE-104.                                     SG1014.2
198600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
198700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
198800     PERFORM FAIL.                                                SG1014.2
198900     GO TO SEG-WRITE-104.                                         SG1014.2
199000 SEG-DELETE-104.                                                  SG1014.2
199100     PERFORM DE-LETE.                                             SG1014.2
199200 SEG-WRITE-104.                                                   SG1014.2
199300     MOVE "SEG-TEST-104" TO PAR-NAME.                             SG1014.2
199400     PERFORM PRINT-DETAIL.                                        SG1014.2
199500 SEG-TEST-105.                                                    SG1014.2
199600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
199700     PERFORM l46.                                                  SG1014.2
199800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
199900         PERFORM PASS                                             SG1014.2
200000         GO TO SEG-WRITE-105.                                     SG1014.2
200100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
200200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
200300     PERFORM FAIL.                                                SG1014.2
200400     GO TO SEG-WRITE-105.                                         SG1014.2
200500 SEG-DELETE-105.                                                  SG1014.2
200600     PERFORM DE-LETE.                                             SG1014.2
200700 SEG-WRITE-105.                                                   SG1014.2
200800     MOVE "SEG-TEST-105" TO PAR-NAME.                             SG1014.2
200900     PERFORM PRINT-DETAIL.                                        SG1014.2
201000 SEG-TEST-106.                                                    SG1014.2
201100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
201200     PERFORM l45.                                                  SG1014.2
201300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
201400         PERFORM PASS                                             SG1014.2
201500         GO TO SEG-WRITE-106.                                     SG1014.2
201600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
201700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
201800     PERFORM FAIL.                                                SG1014.2
201900     GO TO SEG-WRITE-106.                                         SG1014.2
202000 SEG-DELETE-106.                                                  SG1014.2
202100     PERFORM DE-LETE.                                             SG1014.2
202200 SEG-WRITE-106.                                                   SG1014.2
202300     MOVE "SEG-TEST-106" TO PAR-NAME.                             SG1014.2
202400     PERFORM PRINT-DETAIL.                                        SG1014.2
202500 SEG-TEST-107.                                                    SG1014.2
202600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
202700     PERFORM l44.                                                  SG1014.2
202800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
202900         PERFORM PASS                                             SG1014.2
203000         GO TO SEG-WRITE-107.                                     SG1014.2
203100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
203200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
203300     PERFORM FAIL.                                                SG1014.2
203400     GO TO SEG-WRITE-107.                                         SG1014.2
203500 SEG-DELETE-107.                                                  SG1014.2
203600     PERFORM DE-LETE.                                             SG1014.2
203700 SEG-WRITE-107.                                                   SG1014.2
203800     MOVE "SEG-TEST-107" TO PAR-NAME.                             SG1014.2
203900     PERFORM PRINT-DETAIL.                                        SG1014.2
204000 SEG-TEST-108.                                                    SG1014.2
204100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
204200     PERFORM l43.                                                  SG1014.2
204300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
204400         PERFORM PASS                                             SG1014.2
204500         GO TO SEG-WRITE-108.                                     SG1014.2
204600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
204700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
204800     PERFORM FAIL.                                                SG1014.2
204900     GO TO SEG-WRITE-108.                                         SG1014.2
205000 SEG-DELETE-108.                                                  SG1014.2
205100     PERFORM DE-LETE.                                             SG1014.2
205200 SEG-WRITE-108.                                                   SG1014.2
205300     MOVE "SEG-TEST-108" TO PAR-NAME.                             SG1014.2
205400     PERFORM PRINT-DETAIL.                                        SG1014.2
205500 SEG-TEST-109.                                                    SG1014.2
205600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
205700     PERFORM l42.                                                  SG1014.2
205800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
205900         PERFORM PASS                                             SG1014.2
206000         GO TO SEG-WRITE-109.                                     SG1014.2
206100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
206200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
206300     PERFORM FAIL.                                                SG1014.2
206400     GO TO SEG-WRITE-109.                                         SG1014.2
206500 SEG-DELETE-109.                                                  SG1014.2
206600     PERFORM DE-LETE.                                             SG1014.2
206700 SEG-WRITE-109.                                                   SG1014.2
206800     MOVE "SEG-TEST-109" TO PAR-NAME.                             SG1014.2
206900     PERFORM PRINT-DETAIL.                                        SG1014.2
207000 SEG-TEST-110.                                                    SG1014.2
207100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
207200     PERFORM l41.                                                  SG1014.2
207300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
207400         PERFORM PASS                                             SG1014.2
207500         GO TO SEG-WRITE-110.                                     SG1014.2
207600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
207700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
207800     PERFORM FAIL.                                                SG1014.2
207900     GO TO SEG-WRITE-110.                                         SG1014.2
208000 SEG-DELETE-110.                                                  SG1014.2
208100     PERFORM DE-LETE.                                             SG1014.2
208200 SEG-WRITE-110.                                                   SG1014.2
208300     MOVE "SEG-TEST-110" TO PAR-NAME.                             SG1014.2
208400     PERFORM PRINT-DETAIL.                                        SG1014.2
208500 SEG-TEST-111.                                                    SG1014.2
208600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
208700     PERFORM l40.                                                  SG1014.2
208800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
208900         PERFORM PASS                                             SG1014.2
209000         GO TO SEG-WRITE-111.                                     SG1014.2
209100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
209200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
209300     PERFORM FAIL.                                                SG1014.2
209400     GO TO SEG-WRITE-111.                                         SG1014.2
209500 SEG-DELETE-111.                                                  SG1014.2
209600     PERFORM DE-LETE.                                             SG1014.2
209700 SEG-WRITE-111.                                                   SG1014.2
209800     MOVE "SEG-TEST-111" TO PAR-NAME.                             SG1014.2
209900     PERFORM PRINT-DETAIL.                                        SG1014.2
210000 SEG-TEST-112.                                                    SG1014.2
210100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
210200     PERFORM l39.                                                  SG1014.2
210300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
210400         PERFORM PASS                                             SG1014.2
210500         GO TO SEG-WRITE-112.                                     SG1014.2
210600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
210700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
210800     PERFORM FAIL.                                                SG1014.2
210900     GO TO SEG-WRITE-112.                                         SG1014.2
211000 SEG-DELETE-112.                                                  SG1014.2
211100     PERFORM DE-LETE.                                             SG1014.2
211200 SEG-WRITE-112.                                                   SG1014.2
211300     MOVE "SEG-TEST-112" TO PAR-NAME.                             SG1014.2
211400     PERFORM PRINT-DETAIL.                                        SG1014.2
211500 SEG-TEST-113.                                                    SG1014.2
211600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
211700     PERFORM l38.                                                  SG1014.2
211800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
211900         PERFORM PASS                                             SG1014.2
212000         GO TO SEG-WRITE-113.                                     SG1014.2
212100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
212200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
212300     PERFORM FAIL.                                                SG1014.2
212400     GO TO SEG-WRITE-113.                                         SG1014.2
212500 SEG-DELETE-113.                                                  SG1014.2
212600     PERFORM DE-LETE.                                             SG1014.2
212700 SEG-WRITE-113.                                                   SG1014.2
212800     MOVE "SEG-TEST-113" TO PAR-NAME.                             SG1014.2
212900     PERFORM PRINT-DETAIL.                                        SG1014.2
213000 SEG-TEST-114.                                                    SG1014.2
213100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
213200     PERFORM l37.                                                  SG1014.2
213300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
213400         PERFORM PASS                                             SG1014.2
213500         GO TO SEG-WRITE-114.                                     SG1014.2
213600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
213700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
213800     PERFORM FAIL.                                                SG1014.2
213900     GO TO SEG-WRITE-114.                                         SG1014.2
214000 SEG-DELETE-114.                                                  SG1014.2
214100     PERFORM DE-LETE.                                             SG1014.2
214200 SEG-WRITE-114.                                                   SG1014.2
214300     MOVE "SEG-TEST-114" TO PAR-NAME.                             SG1014.2
214400     PERFORM PRINT-DETAIL.                                        SG1014.2
214500 SEG-TEST-115.                                                    SG1014.2
214600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
214700     PERFORM l36.                                                  SG1014.2
214800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
214900         PERFORM PASS                                             SG1014.2
215000         GO TO SEG-WRITE-115.                                     SG1014.2
215100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
215200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
215300     PERFORM FAIL.                                                SG1014.2
215400     GO TO SEG-WRITE-115.                                         SG1014.2
215500 SEG-DELETE-115.                                                  SG1014.2
215600     PERFORM DE-LETE.                                             SG1014.2
215700 SEG-WRITE-115.                                                   SG1014.2
215800     MOVE "SEG-TEST-115" TO PAR-NAME.                             SG1014.2
215900     PERFORM PRINT-DETAIL.                                        SG1014.2
216000 SEG-TEST-116.                                                    SG1014.2
216100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
216200     PERFORM l35.                                                  SG1014.2
216300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
216400         PERFORM PASS                                             SG1014.2
216500         GO TO SEG-WRITE-116.                                     SG1014.2
216600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
216700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
216800     PERFORM FAIL.                                                SG1014.2
216900     GO TO SEG-WRITE-116.                                         SG1014.2
217000 SEG-DELETE-116.                                                  SG1014.2
217100     PERFORM DE-LETE.                                             SG1014.2
217200 SEG-WRITE-116.                                                   SG1014.2
217300     MOVE "SEG-TEST-116" TO PAR-NAME.                             SG1014.2
217400     PERFORM PRINT-DETAIL.                                        SG1014.2
217500 SEG-TEST-117.                                                    SG1014.2
217600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
217700     PERFORM l34.                                                  SG1014.2
217800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
217900         PERFORM PASS                                             SG1014.2
218000         GO TO SEG-WRITE-117.                                     SG1014.2
218100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
218200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
218300     PERFORM FAIL.                                                SG1014.2
218400     GO TO SEG-WRITE-117.                                         SG1014.2
218500 SEG-DELETE-117.                                                  SG1014.2
218600     PERFORM DE-LETE.                                             SG1014.2
218700 SEG-WRITE-117.                                                   SG1014.2
218800     MOVE "SEG-TEST-117" TO PAR-NAME.                             SG1014.2
218900     PERFORM PRINT-DETAIL.                                        SG1014.2
219000 SEG-TEST-118.                                                    SG1014.2
219100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
219200     PERFORM l33.                                                  SG1014.2
219300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
219400         PERFORM PASS                                             SG1014.2
219500         GO TO SEG-WRITE-118.                                     SG1014.2
219600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
219700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
219800     PERFORM FAIL.                                                SG1014.2
219900     GO TO SEG-WRITE-118.                                         SG1014.2
220000 SEG-DELETE-118.                                                  SG1014.2
220100     PERFORM DE-LETE.                                             SG1014.2
220200 SEG-WRITE-118.                                                   SG1014.2
220300     MOVE "SEG-TEST-118" TO PAR-NAME.                             SG1014.2
220400     PERFORM PRINT-DETAIL.                                        SG1014.2
220500 SEG-TEST-119.                                                    SG1014.2
220600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
220700     PERFORM l32.                                                  SG1014.2
220800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
220900         PERFORM PASS                                             SG1014.2
221000         GO TO SEG-WRITE-119.                                     SG1014.2
221100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
221200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
221300     PERFORM FAIL.                                                SG1014.2
221400     GO TO SEG-WRITE-119.                                         SG1014.2
221500 SEG-DELETE-119.                                                  SG1014.2
221600     PERFORM DE-LETE.                                             SG1014.2
221700 SEG-WRITE-119.                                                   SG1014.2
221800     MOVE "SEG-TEST-119" TO PAR-NAME.                             SG1014.2
221900     PERFORM PRINT-DETAIL.                                        SG1014.2
222000 SEG-TEST-120.                                                    SG1014.2
222100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
222200     PERFORM l31.                                                  SG1014.2
222300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
222400         PERFORM PASS                                             SG1014.2
222500         GO TO SEG-WRITE-120.                                     SG1014.2
222600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
222700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
222800     PERFORM FAIL.                                                SG1014.2
222900     GO TO SEG-WRITE-120.                                         SG1014.2
223000 SEG-DELETE-120.                                                  SG1014.2
223100     PERFORM DE-LETE.                                             SG1014.2
223200 SEG-WRITE-120.                                                   SG1014.2
223300     MOVE "SEG-TEST-120" TO PAR-NAME.                             SG1014.2
223400     PERFORM PRINT-DETAIL.                                        SG1014.2
223500 SEG-TEST-121.                                                    SG1014.2
223600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
223700     PERFORM l30.                                                  SG1014.2
223800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
223900         PERFORM PASS                                             SG1014.2
224000         GO TO SEG-WRITE-121.                                     SG1014.2
224100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
224200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
224300     PERFORM FAIL.                                                SG1014.2
224400     GO TO SEG-WRITE-121.                                         SG1014.2
224500 SEG-DELETE-121.                                                  SG1014.2
224600     PERFORM DE-LETE.                                             SG1014.2
224700 SEG-WRITE-121.                                                   SG1014.2
224800     MOVE "SEG-TEST-121" TO PAR-NAME.                             SG1014.2
224900     PERFORM PRINT-DETAIL.                                        SG1014.2
225000 SEG-TEST-122.                                                    SG1014.2
225100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
225200     PERFORM l29.                                                  SG1014.2
225300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
225400         PERFORM PASS                                             SG1014.2
225500         GO TO SEG-WRITE-122.                                     SG1014.2
225600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
225700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
225800     PERFORM FAIL.                                                SG1014.2
225900     GO TO SEG-WRITE-122.                                         SG1014.2
226000 SEG-DELETE-122.                                                  SG1014.2
226100     PERFORM DE-LETE.                                             SG1014.2
226200 SEG-WRITE-122.                                                   SG1014.2
226300     MOVE "SEG-TEST-122" TO PAR-NAME.                             SG1014.2
226400     PERFORM PRINT-DETAIL.                                        SG1014.2
226500 SEG-TEST-123.                                                    SG1014.2
226600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
226700     PERFORM l28.                                                  SG1014.2
226800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
226900         PERFORM PASS                                             SG1014.2
227000         GO TO SEG-WRITE-123.                                     SG1014.2
227100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
227200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
227300     PERFORM FAIL.                                                SG1014.2
227400     GO TO SEG-WRITE-123.                                         SG1014.2
227500 SEG-DELETE-123.                                                  SG1014.2
227600     PERFORM DE-LETE.                                             SG1014.2
227700 SEG-WRITE-123.                                                   SG1014.2
227800     MOVE "SEG-TEST-123" TO PAR-NAME.                             SG1014.2
227900     PERFORM PRINT-DETAIL.                                        SG1014.2
228000 SEG-TEST-124.                                                    SG1014.2
228100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
228200     PERFORM l27.                                                  SG1014.2
228300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
228400         PERFORM PASS                                             SG1014.2
228500         GO TO SEG-WRITE-124.                                     SG1014.2
228600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
228700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
228800     PERFORM FAIL.                                                SG1014.2
228900     GO TO SEG-WRITE-124.                                         SG1014.2
229000 SEG-DELETE-124.                                                  SG1014.2
229100     PERFORM DE-LETE.                                             SG1014.2
229200 SEG-WRITE-124.                                                   SG1014.2
229300     MOVE "SEG-TEST-124" TO PAR-NAME.                             SG1014.2
229400     PERFORM PRINT-DETAIL.                                        SG1014.2
229500 SEG-TEST-125.                                                    SG1014.2
229600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
229700     PERFORM l26.                                                  SG1014.2
229800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
229900         PERFORM PASS                                             SG1014.2
230000         GO TO SEG-WRITE-125.                                     SG1014.2
230100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
230200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
230300     PERFORM FAIL.                                                SG1014.2
230400     GO TO SEG-WRITE-125.                                         SG1014.2
230500 SEG-DELETE-125.                                                  SG1014.2
230600     PERFORM DE-LETE.                                             SG1014.2
230700 SEG-WRITE-125.                                                   SG1014.2
230800     MOVE "SEG-TEST-125" TO PAR-NAME.                             SG1014.2
230900     PERFORM PRINT-DETAIL.                                        SG1014.2
231000 SEG-TEST-126.                                                    SG1014.2
231100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
231200     PERFORM l25.                                                  SG1014.2
231300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
231400         PERFORM PASS                                             SG1014.2
231500         GO TO SEG-WRITE-126.                                     SG1014.2
231600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
231700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
231800     PERFORM FAIL.                                                SG1014.2
231900     GO TO SEG-WRITE-126.                                         SG1014.2
232000 SEG-DELETE-126.                                                  SG1014.2
232100     PERFORM DE-LETE.                                             SG1014.2
232200 SEG-WRITE-126.                                                   SG1014.2
232300     MOVE "SEG-TEST-126" TO PAR-NAME.                             SG1014.2
232400     PERFORM PRINT-DETAIL.                                        SG1014.2
232500 SEG-TEST-127.                                                    SG1014.2
232600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
232700     PERFORM l24.                                                  SG1014.2
232800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
232900         PERFORM PASS                                             SG1014.2
233000         GO TO SEG-WRITE-127.                                     SG1014.2
233100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
233200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
233300     PERFORM FAIL.                                                SG1014.2
233400     GO TO SEG-WRITE-127.                                         SG1014.2
233500 SEG-DELETE-127.                                                  SG1014.2
233600     PERFORM DE-LETE.                                             SG1014.2
233700 SEG-WRITE-127.                                                   SG1014.2
233800     MOVE "SEG-TEST-127" TO PAR-NAME.                             SG1014.2
233900     PERFORM PRINT-DETAIL.                                        SG1014.2
234000 SEG-TEST-128.                                                    SG1014.2
234100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
234200     PERFORM l23.                                                  SG1014.2
234300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
234400         PERFORM PASS                                             SG1014.2
234500         GO TO SEG-WRITE-128.                                     SG1014.2
234600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
234700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
234800     PERFORM FAIL.                                                SG1014.2
234900     GO TO SEG-WRITE-128.                                         SG1014.2
235000 SEG-DELETE-128.                                                  SG1014.2
235100     PERFORM DE-LETE.                                             SG1014.2
235200 SEG-WRITE-128.                                                   SG1014.2
235300     MOVE "SEG-TEST-128" TO PAR-NAME.                             SG1014.2
235400     PERFORM PRINT-DETAIL.                                        SG1014.2
235500 SEG-TEST-129.                                                    SG1014.2
235600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
235700     PERFORM l22.                                                  SG1014.2
235800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
235900         PERFORM PASS                                             SG1014.2
236000         GO TO SEG-WRITE-129.                                     SG1014.2
236100     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
236200     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
236300     PERFORM FAIL.                                                SG1014.2
236400     GO TO SEG-WRITE-129.                                         SG1014.2
236500 SEG-DELETE-129.                                                  SG1014.2
236600     PERFORM DE-LETE.                                             SG1014.2
236700 SEG-WRITE-129.                                                   SG1014.2
236800     MOVE "SEG-TEST-129" TO PAR-NAME.                             SG1014.2
236900     PERFORM PRINT-DETAIL.                                        SG1014.2
237000 SEG-TEST-130.                                                    SG1014.2
237100     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
237200     PERFORM l21.                                                  SG1014.2
237300     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
237400         PERFORM PASS                                             SG1014.2
237500         GO TO SEG-WRITE-130.                                     SG1014.2
237600     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
237700     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
237800     PERFORM FAIL.                                                SG1014.2
237900     GO TO SEG-WRITE-130.                                         SG1014.2
238000 SEG-DELETE-130.                                                  SG1014.2
238100     PERFORM DE-LETE.                                             SG1014.2
238200 SEG-WRITE-130.                                                   SG1014.2
238300     MOVE "SEG-TEST-130" TO PAR-NAME.                             SG1014.2
238400     PERFORM PRINT-DETAIL.                                        SG1014.2
238500 SEG-TEST-131.                                                    SG1014.2
238600     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
238700     PERFORM l20.                                                  SG1014.2
238800     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
238900         PERFORM PASS                                             SG1014.2
239000         GO TO SEG-WRITE-131.                                     SG1014.2
239100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
239200     PERFORM FAIL.                                                SG1014.2
239300     GO TO SEG-WRITE-131.                                         SG1014.2
239400 SEG-DELETE-131.                                                  SG1014.2
239500     PERFORM DE-LETE.                                             SG1014.2
239600 SEG-WRITE-131.                                                   SG1014.2
239700     MOVE "SEG-TEST-131" TO PAR-NAME.                             SG1014.2
239800     PERFORM PRINT-DETAIL.                                        SG1014.2
239900 SEG-TEST-132.                                                    SG1014.2
240000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
240100     PERFORM l19.                                                  SG1014.2
240200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
240300         PERFORM PASS                                             SG1014.2
240400         GO TO SEG-WRITE-132.                                     SG1014.2
240500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
240600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
240700     PERFORM FAIL.                                                SG1014.2
240800     GO TO SEG-WRITE-132.                                         SG1014.2
240900 SEG-DELETE-132.                                                  SG1014.2
241000     PERFORM DE-LETE.                                             SG1014.2
241100 SEG-WRITE-132.                                                   SG1014.2
241200     MOVE "SEG-TEST-132" TO PAR-NAME.                             SG1014.2
241300     PERFORM PRINT-DETAIL.                                        SG1014.2
241400 SEG-TEST-133.                                                    SG1014.2
241500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
241600     PERFORM l18.                                                  SG1014.2
241700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
241800         PERFORM PASS                                             SG1014.2
241900         GO TO SEG-WRITE-133.                                     SG1014.2
242000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
242100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
242200     PERFORM FAIL.                                                SG1014.2
242300     GO TO SEG-WRITE-133.                                         SG1014.2
242400 SEG-DELETE-133.                                                  SG1014.2
242500     PERFORM DE-LETE.                                             SG1014.2
242600 SEG-WRITE-133.                                                   SG1014.2
242700     MOVE "SEG-TEST-133" TO PAR-NAME.                             SG1014.2
242800     PERFORM PRINT-DETAIL.                                        SG1014.2
242900 SEG-TEST-134.                                                    SG1014.2
243000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
243100     PERFORM l17.                                                  SG1014.2
243200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
243300         PERFORM PASS                                             SG1014.2
243400         GO TO SEG-WRITE-134.                                     SG1014.2
243500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
243600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
243700     PERFORM FAIL.                                                SG1014.2
243800     GO TO SEG-WRITE-134.                                         SG1014.2
243900 SEG-DELETE-134.                                                  SG1014.2
244000     PERFORM DE-LETE.                                             SG1014.2
244100 SEG-WRITE-134.                                                   SG1014.2
244200     MOVE "SEG-TEST-134" TO PAR-NAME.                             SG1014.2
244300     PERFORM PRINT-DETAIL.                                        SG1014.2
244400 SEG-TEST-135.                                                    SG1014.2
244500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
244600     PERFORM l16.                                                  SG1014.2
244700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
244800         PERFORM PASS                                             SG1014.2
244900         GO TO SEG-WRITE-135.                                     SG1014.2
245000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
245100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
245200     PERFORM FAIL.                                                SG1014.2
245300     GO TO SEG-WRITE-135.                                         SG1014.2
245400 SEG-DELETE-135.                                                  SG1014.2
245500     PERFORM DE-LETE.                                             SG1014.2
245600 SEG-WRITE-135.                                                   SG1014.2
245700     MOVE "SEG-TEST-135" TO PAR-NAME.                             SG1014.2
245800     PERFORM PRINT-DETAIL.                                        SG1014.2
245900 SEG-TEST-136.                                                    SG1014.2
246000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
246100     PERFORM l15.                                                  SG1014.2
246200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
246300         PERFORM PASS                                             SG1014.2
246400         GO TO SEG-WRITE-136.                                     SG1014.2
246500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
246600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
246700     PERFORM FAIL.                                                SG1014.2
246800     GO TO SEG-WRITE-136.                                         SG1014.2
246900 SEG-DELETE-136.                                                  SG1014.2
247000     PERFORM DE-LETE.                                             SG1014.2
247100 SEG-WRITE-136.                                                   SG1014.2
247200     MOVE "SEG-TEST-136" TO PAR-NAME.                             SG1014.2
247300     PERFORM PRINT-DETAIL.                                        SG1014.2
247400 SEG-TEST-137.                                                    SG1014.2
247500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
247600     PERFORM l14.                                                  SG1014.2
247700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
247800         PERFORM PASS                                             SG1014.2
247900         GO TO SEG-WRITE-137.                                     SG1014.2
248000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
248100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
248200     PERFORM FAIL.                                                SG1014.2
248300     GO TO SEG-WRITE-137.                                         SG1014.2
248400 SEG-DELETE-137.                                                  SG1014.2
248500     PERFORM DE-LETE.                                             SG1014.2
248600 SEG-WRITE-137.                                                   SG1014.2
248700     MOVE "SEG-TEST-137" TO PAR-NAME.                             SG1014.2
248800     PERFORM PRINT-DETAIL.                                        SG1014.2
248900 SEG-TEST-138.                                                    SG1014.2
249000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
249100     PERFORM l13.                                                  SG1014.2
249200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
249300         PERFORM PASS                                             SG1014.2
249400         GO TO SEG-WRITE-138.                                     SG1014.2
249500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
249600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
249700     PERFORM FAIL.                                                SG1014.2
249800     GO TO SEG-WRITE-138.                                         SG1014.2
249900 SEG-DELETE-138.                                                  SG1014.2
250000     PERFORM DE-LETE.                                             SG1014.2
250100 SEG-WRITE-138.                                                   SG1014.2
250200     MOVE "SEG-TEST-138" TO PAR-NAME.                             SG1014.2
250300     PERFORM PRINT-DETAIL.                                        SG1014.2
250400 SEG-TEST-139.                                                    SG1014.2
250500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
250600     PERFORM l12.                                                  SG1014.2
250700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
250800         PERFORM PASS                                             SG1014.2
250900         GO TO SEG-WRITE-139.                                     SG1014.2
251000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
251100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
251200     PERFORM FAIL.                                                SG1014.2
251300     GO TO SEG-WRITE-139.                                         SG1014.2
251400 SEG-DELETE-139.                                                  SG1014.2
251500     PERFORM DE-LETE.                                             SG1014.2
251600 SEG-WRITE-139.                                                   SG1014.2
251700     MOVE "SEG-TEST-139" TO PAR-NAME.                             SG1014.2
251800     PERFORM PRINT-DETAIL.                                        SG1014.2
251900 SEG-TEST-140.                                                    SG1014.2
252000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
252100     PERFORM l11.                                                  SG1014.2
252200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
252300         PERFORM PASS                                             SG1014.2
252400         GO TO SEG-WRITE-140.                                     SG1014.2
252500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
252600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
252700     PERFORM FAIL.                                                SG1014.2
252800     GO TO SEG-WRITE-140.                                         SG1014.2
252900 SEG-DELETE-140.                                                  SG1014.2
253000     PERFORM DE-LETE.                                             SG1014.2
253100 SEG-WRITE-140.                                                   SG1014.2
253200     MOVE "SEG-TEST-140" TO PAR-NAME.                             SG1014.2
253300     PERFORM PRINT-DETAIL.                                        SG1014.2
253400 SEG-TEST-141.                                                    SG1014.2
253500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
253600     PERFORM l10.                                                  SG1014.2
253700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
253800         PERFORM PASS                                             SG1014.2
253900         GO TO SEG-WRITE-141.                                     SG1014.2
254000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
254100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
254200     PERFORM FAIL.                                                SG1014.2
254300     GO TO SEG-WRITE-141.                                         SG1014.2
254400 SEG-DELETE-141.                                                  SG1014.2
254500     PERFORM DE-LETE.                                             SG1014.2
254600 SEG-WRITE-141.                                                   SG1014.2
254700     MOVE "SEG-TEST-141" TO PAR-NAME.                             SG1014.2
254800     PERFORM PRINT-DETAIL.                                        SG1014.2
254900 SEG-TEST-142.                                                    SG1014.2
255000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
255100     PERFORM l09.                                                  SG1014.2
255200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
255300         PERFORM PASS                                             SG1014.2
255400         GO TO SEG-WRITE-142.                                     SG1014.2
255500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
255600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
255700     PERFORM FAIL.                                                SG1014.2
255800     GO TO SEG-WRITE-142.                                         SG1014.2
255900 SEG-DELETE-142.                                                  SG1014.2
256000     PERFORM DE-LETE.                                             SG1014.2
256100 SEG-WRITE-142.                                                   SG1014.2
256200     MOVE "SEG-TEST-142" TO PAR-NAME.                             SG1014.2
256300     PERFORM PRINT-DETAIL.                                        SG1014.2
256400 SEG-TEST-143.                                                    SG1014.2
256500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
256600     PERFORM l08.                                                  SG1014.2
256700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
256800         PERFORM PASS                                             SG1014.2
256900         GO TO SEG-WRITE-143.                                     SG1014.2
257000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
257100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
257200     PERFORM FAIL.                                                SG1014.2
257300     GO TO SEG-WRITE-143.                                         SG1014.2
257400 SEG-DELETE-143.                                                  SG1014.2
257500     PERFORM DE-LETE.                                             SG1014.2
257600 SEG-WRITE-143.                                                   SG1014.2
257700     MOVE "SEG-TEST-143" TO PAR-NAME.                             SG1014.2
257800     PERFORM PRINT-DETAIL.                                        SG1014.2
257900 SEG-TEST-144.                                                    SG1014.2
258000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
258100     PERFORM l07.                                                  SG1014.2
258200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
258300         PERFORM PASS                                             SG1014.2
258400         GO TO SEG-WRITE-144.                                     SG1014.2
258500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
258600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
258700     PERFORM FAIL.                                                SG1014.2
258800     GO TO SEG-WRITE-144.                                         SG1014.2
258900 SEG-DELETE-144.                                                  SG1014.2
259000     PERFORM DE-LETE.                                             SG1014.2
259100 SEG-WRITE-144.                                                   SG1014.2
259200     MOVE "SEG-TEST-144" TO PAR-NAME.                             SG1014.2
259300     PERFORM PRINT-DETAIL.                                        SG1014.2
259400 SEG-TEST-145.                                                    SG1014.2
259500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
259600     PERFORM l06.                                                  SG1014.2
259700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
259800         PERFORM PASS                                             SG1014.2
259900         GO TO SEG-WRITE-145.                                     SG1014.2
260000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
260100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
260200     PERFORM FAIL.                                                SG1014.2
260300     GO TO SEG-WRITE-145.                                         SG1014.2
260400 SEG-DELETE-145.                                                  SG1014.2
260500     PERFORM DE-LETE.                                             SG1014.2
260600 SEG-WRITE-145.                                                   SG1014.2
260700     MOVE "SEG-TEST-145" TO PAR-NAME.                             SG1014.2
260800     PERFORM PRINT-DETAIL.                                        SG1014.2
260900 SEG-TEST-146.                                                    SG1014.2
261000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
261100     PERFORM l05.                                                  SG1014.2
261200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
261300         PERFORM PASS                                             SG1014.2
261400         GO TO SEG-WRITE-146.                                     SG1014.2
261500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
261600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
261700     PERFORM FAIL.                                                SG1014.2
261800     GO TO SEG-WRITE-146.                                         SG1014.2
261900 SEG-DELETE-146.                                                  SG1014.2
262000     PERFORM DE-LETE.                                             SG1014.2
262100 SEG-WRITE-146.                                                   SG1014.2
262200     MOVE "SEG-TEST-146" TO PAR-NAME.                             SG1014.2
262300     PERFORM PRINT-DETAIL.                                        SG1014.2
262400 SEG-TEST-147.                                                    SG1014.2
262500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
262600     PERFORM l04.                                                  SG1014.2
262700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
262800         PERFORM PASS                                             SG1014.2
262900         GO TO SEG-WRITE-147.                                     SG1014.2
263000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
263100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
263200     PERFORM FAIL.                                                SG1014.2
263300     GO TO SEG-WRITE-147.                                         SG1014.2
263400 SEG-DELETE-147.                                                  SG1014.2
263500     PERFORM DE-LETE.                                             SG1014.2
263600 SEG-WRITE-147.                                                   SG1014.2
263700     MOVE "SEG-TEST-147" TO PAR-NAME.                             SG1014.2
263800     PERFORM PRINT-DETAIL.                                        SG1014.2
263900 SEG-TEST-148.                                                    SG1014.2
264000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
264100     PERFORM l03.                                                  SG1014.2
264200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
264300         PERFORM PASS                                             SG1014.2
264400         GO TO SEG-WRITE-148.                                     SG1014.2
264500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
264600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
264700     PERFORM FAIL.                                                SG1014.2
264800     GO TO SEG-WRITE-148.                                         SG1014.2
264900 SEG-DELETE-148.                                                  SG1014.2
265000     PERFORM DE-LETE.                                             SG1014.2
265100 SEG-WRITE-148.                                                   SG1014.2
265200     MOVE "SEG-TEST-148" TO PAR-NAME.                             SG1014.2
265300     PERFORM PRINT-DETAIL.                                        SG1014.2
265400 SEG-TEST-149.                                                    SG1014.2
265500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
265600     PERFORM l02.                                                  SG1014.2
265700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
265800         PERFORM PASS                                             SG1014.2
265900         GO TO SEG-WRITE-149.                                     SG1014.2
266000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
266100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
266200     PERFORM FAIL.                                                SG1014.2
266300     GO TO SEG-WRITE-149.                                         SG1014.2
266400 SEG-DELETE-149.                                                  SG1014.2
266500     PERFORM DE-LETE.                                             SG1014.2
266600 SEG-WRITE-149.                                                   SG1014.2
266700     MOVE "SEG-TEST-149" TO PAR-NAME.                             SG1014.2
266800     PERFORM PRINT-DETAIL.                                        SG1014.2
266900 SEG-TEST-150.                                                    SG1014.2
267000     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
267100     PERFORM l01.                                                  SG1014.2
267200     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
267300         PERFORM PASS                                             SG1014.2
267400         GO TO SEG-WRITE-150.                                     SG1014.2
267500     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
267600     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
267700     PERFORM FAIL.                                                SG1014.2
267800     GO TO SEG-WRITE-150.                                         SG1014.2
267900 SEG-DELETE-150.                                                  SG1014.2
268000     PERFORM DE-LETE.                                             SG1014.2
268100 SEG-WRITE-150.                                                   SG1014.2
268200     MOVE "SEG-TEST-150" TO PAR-NAME.                             SG1014.2
268300     PERFORM PRINT-DETAIL.                                        SG1014.2
268400 SEG-TEST-151.                                                    SG1014.2
268500     MOVE SPACE TO TEST-CHECK.                                    SG1014.2
268600     PERFORM l00.                                                  SG1014.2
268700     IF TEST-CHECK EQUAL TO "GOOD"                                SG1014.2
268800         PERFORM PASS                                             SG1014.2
268900         GO TO SEG-WRITE-151.                                     SG1014.2
269000     MOVE SPACE TO COMPUTED-A.                                    SG1014.2
269100     MOVE "GOOD" TO CORRECT-A.                                    SG1014.2
269200     PERFORM FAIL.                                                SG1014.2
269300     GO TO SEG-WRITE-151.                                         SG1014.2
269400 SEG-DELETE-151.                                                  SG1014.2
269500     PERFORM DE-LETE.                                             SG1014.2
269600 SEG-WRITE-151.                                                   SG1014.2
269700     MOVE "SEG-TEST-151" TO PAR-NAME.                             SG1014.2
269800     PERFORM PRINT-DETAIL.                                        SG1014.2
269900     GO TO     CLOSE-FILES.                                       SG1014.2
270000 l50  SECTION 50.                                                  SG1014.2
270100 PARA-50.                                                         SG1014.2
270200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
270300 l51  SECTION 51.                                                  SG1014.2
270400 PARA-51.                                                         SG1014.2
270500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
270600 l52  SECTION 52.                                                  SG1014.2
270700 PARA-52.                                                         SG1014.2
270800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
270900 l53  SECTION 53.                                                  SG1014.2
271000 PARA-53.                                                         SG1014.2
271100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
271200 l54  SECTION 54.                                                  SG1014.2
271300 PARA-54.                                                         SG1014.2
271400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
271500 l55  SECTION 55.                                                  SG1014.2
271600 PARA-55.                                                         SG1014.2
271700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
271800 l56  SECTION 56.                                                  SG1014.2
271900 PARA-56.                                                         SG1014.2
272000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
272100 l57  SECTION 57.                                                  SG1014.2
272200 PARA-57.                                                         SG1014.2
272300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
272400 l58  SECTION 58.                                                  SG1014.2
272500 PARA-58.                                                         SG1014.2
272600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
272700 l59  SECTION 59.                                                  SG1014.2
272800 PARA-59.                                                         SG1014.2
272900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
273000 l60  SECTION 60.                                                  SG1014.2
273100 PARA-60.                                                         SG1014.2
273200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
273300 l61  SECTION 61.                                                  SG1014.2
273400 PARA-61.                                                         SG1014.2
273500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
273600 l62  SECTION 62.                                                  SG1014.2
273700 PARA-62.                                                         SG1014.2
273800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
273900 l63  SECTION 63.                                                  SG1014.2
274000 PARA-63.                                                         SG1014.2
274100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
274200 l64  SECTION 64.                                                  SG1014.2
274300 PARA-64.                                                         SG1014.2
274400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
274500 l65  SECTION 65.                                                  SG1014.2
274600 PARA-65.                                                         SG1014.2
274700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
274800 l66  SECTION 66.                                                  SG1014.2
274900 PARA-66.                                                         SG1014.2
275000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
275100 l67  SECTION 67.                                                  SG1014.2
275200 PARA-67.                                                         SG1014.2
275300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
275400 l68  SECTION 68.                                                  SG1014.2
275500 PARA-68.                                                         SG1014.2
275600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
275700 l69  SECTION 69.                                                  SG1014.2
275800 PARA-69.                                                         SG1014.2
275900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
276000 l70  SECTION 70.                                                  SG1014.2
276100 PARA-70.                                                         SG1014.2
276200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
276300 l71  SECTION 71.                                                  SG1014.2
276400 PARA-71.                                                         SG1014.2
276500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
276600 l72  SECTION 72.                                                  SG1014.2
276700 PARA-72.                                                         SG1014.2
276800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
276900 l73  SECTION 73.                                                  SG1014.2
277000 PARA-73.                                                         SG1014.2
277100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
277200 l74  SECTION 74.                                                  SG1014.2
277300 PARA-74.                                                         SG1014.2
277400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
277500 l75  SECTION 75.                                                  SG1014.2
277600 PARA-75.                                                         SG1014.2
277700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
277800 l76  SECTION 76.                                                  SG1014.2
277900 PARA-76.                                                         SG1014.2
278000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
278100 l77  SECTION 77.                                                  SG1014.2
278200 PARA-77.                                                         SG1014.2
278300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
278400 l78  SECTION 78.                                                  SG1014.2
278500 PARA-78.                                                         SG1014.2
278600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
278700 l79  SECTION 79.                                                  SG1014.2
278800 PARA-79.                                                         SG1014.2
278900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
279000 l80  SECTION 80.                                                  SG1014.2
279100 PARA-80.                                                         SG1014.2
279200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
279300 l81  SECTION 81.                                                  SG1014.2
279400 PARA-81.                                                         SG1014.2
279500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
279600 l82  SECTION 82.                                                  SG1014.2
279700 PARA-82.                                                         SG1014.2
279800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
279900 l83  SECTION 83.                                                  SG1014.2
280000 PARA-83.                                                         SG1014.2
280100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
280200 l84  SECTION 84.                                                  SG1014.2
280300 PARA-84.                                                         SG1014.2
280400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
280500 l85  SECTION 85.                                                  SG1014.2
280600 PARA-85.                                                         SG1014.2
280700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
280800 l86  SECTION 86.                                                  SG1014.2
280900 PARA-86.                                                         SG1014.2
281000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
281100 l87  SECTION 87.                                                  SG1014.2
281200 PARA-87.                                                         SG1014.2
281300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
281400 l88  SECTION 88.                                                  SG1014.2
281500 PARA-88.                                                         SG1014.2
281600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
281700 l89  SECTION 89.                                                  SG1014.2
281800 PARA-89.                                                         SG1014.2
281900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
282000 l90  SECTION 90.                                                  SG1014.2
282100 PARA-90.                                                         SG1014.2
282200     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
282300 l91  SECTION 91.                                                  SG1014.2
282400 PARA-91.                                                         SG1014.2
282500     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
282600 l92  SECTION 92.                                                  SG1014.2
282700 PARA-92.                                                         SG1014.2
282800     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
282900 l93  SECTION 93.                                                  SG1014.2
283000 PARA-93.                                                         SG1014.2
283100     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
283200 l94  SECTION 94.                                                  SG1014.2
283300 PARA-94.                                                         SG1014.2
283400     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
283500 l95  SECTION 95.                                                  SG1014.2
283600 PARA-95.                                                         SG1014.2
283700     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
283800 l96  SECTION 96.                                                  SG1014.2
283900 PARA-96.                                                         SG1014.2
284000     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
284100 l97  SECTION 97.                                                  SG1014.2
284200 PARA-97.                                                         SG1014.2
284300     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
284400 l98  SECTION 98.                                                  SG1014.2
284500 PARA-98.                                                         SG1014.2
284600     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2
284700 l99  SECTION 99.                                                  SG1014.2
284800 PARA-99.                                                         SG1014.2
284900     MOVE "GOOD" TO TEST-CHECK.                                   SG1014.2