                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 060/060 ------           
       03251  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11340     
       03252  0 40200 0 01374 TESTA1 SUB ENDMK                                                        4F11341     
       03253  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11342     
       03254  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11343     
                                         TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS.    4F11344     
       03255  0 34000 0 01376 TESTB0 CAS COMMA                                                        4F11345     
       03256  0 02000 0 03260        TRA TESTB1                                                       4F11346     
       03257  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11347     
       03260  0 40200 0 01377 TESTB1 SUB CLOS                                                         4F11348     
       03261  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11349     
       03262  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11350     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK.    4F11351     
       03263  0 34000 0 01375 TESTC0 CAS OPEN                                                         4F11352     
       03264  0 02000 0 03266        TRA TESTC1                                                       4F11353     
       03265  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11354     
       03266  0 40200 0 01374 TESTC1 SUB ENDMK                                                        4F11355     
       03267  0 10000 4 00001        TZE 1,4                     * RETURN TO CALLER.                  4F11356     
       03270  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11357     
                                         TEST CHARACTER IN THE AC FOR ENDMARK.                        4F11358     
       03271  0 34000 0 01374 TESTD0 CAS ENDMK                                                        4F11359     
       03272  0 07400 4 03400 ERR77P TSX DIAG,4                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11360     
       03273  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11361     
       03274  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11362     
                                         TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS.               4F11363     
       03275  0 34000 0 01375 TESTE0 CAS OPEN                                                         4F11364     
       03276  0 02000 0 03300        TRA TESTE1                                                       4F11365     
       03277  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11366     
       03300  0 07400 4 03400 TESTE1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11367     
                                         TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS.             4F11368     
       03301  0 34000 0 01377 TESTF0 CAS CLOS                                                         4F11369     
       03302  0 02000 0 03304        TRA TESTF1                                                       4F11370     
       03303  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11371     
       03304  0 07400 4 03400 TESTF1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11372     
                                         TEST CHARACTER IN THE AC FOR COMMA.                          4F11373     
       03305  0 34000 0 01376 TESTG0 CAS COMMA                                                        4F11374     
       03306  0 02000 0 03310        TRA TESTG1                                                       4F11375     
       03307  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11376     
       03310  0 07400 4 03400 TESTG1 TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11377     
                                         TEST CHARACTER IN THE AC FOR NON-NUMERIC.                    4F11378     
       03311  0 34000 0 01417 TESTH0 CAS L(9)                                                         4F11379     
       03312  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11380     
       03313  0 76100 0 00000        NOP                                                              4F11381     
       03314  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11382     
                                         TEST CHARACTER IN THE AC FOR NUMERIC.                        4F11383     
       03315  0 34000 0 01417 TESTI0 CAS L(9)                                                         4F11384     
       03316  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11385     
       03317  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11386     
       03320  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11387     
                                          END OF PROGRAM TEST...                                      4F11388     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11389     
                                                                                                      4F11390     
                                         TET00,1/ CALLERS=CA000,CC000,C0100,C0200,C0300,C1300,C1400,  4F11391     
                                         C1500,C3000,C3100,SS000,FOR,SPC,CMA,EMK,LIB,VRA(VRD).        4F11392     
                                         TET00 MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS     4F11393     
