                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 067/067 ------           
                                         CD000/ CALLS=C0190X,C0190,DIAG.                              4F11681     
                                         CD000 SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS.            4F11682     
       03503  0 07400 4 01671 CD000  TSX C0190X,4                * SET SCAN TO PICK UP 1ST CHARACTER. 4F11683     
       03504  0 07400 1 03534 CD001  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684     
       03505  0 34000 0 01376        CAS COMMA                     SCAN                               4F11685     
 D     03506  1 00000 0 03510        TXI CD002,0                   FOR                                4F11686     
 D     03507  1 00000 0 03512        TXI CD003,0                   HOLLERITH                          4F11687     
       03510  0 40200 0 01375 CD002  SUB OPEN                      SPECIFICATION                      4F11688     
       03511 -0 10000 0 03504        TNZ CD001                     WHICH                              4F11689     
       03512  0 07400 1 03534 CD003  TSX CD900,1                 * CAN BE=                            4F11690     
       03513  0 40200 0 01373        SUB L(10)                     , N H                              4F11691     
       03514  0 12000 0 03504        TPL CD001                     OR = ( N H.                        4F11692     
       03515  0 07400 1 03534 CD004  TSX CD900,1                 * IF NOT ENDMARK OR ILLEGAL CHARACTER4F11693     
       03516  0 34000 0 01417        CAS L(9)                      CONTINUE SCAN.                     4F11694     
 D     03517  1 00000 0 03522        TXI CD005,0                   N                                  4F11695     
 D     03520  1 00000 0 03515        TXI CD004,0                   IS                                 4F11696     
 D     03521  1 00000 0 03515        TXI CD004,0                   A                                  4F11697     
       03522  0 34000 0 01423 CD005  CAS L(H)                      FIXED                              4F11698     
 D     03523  1 00000 0 03505        TXI CD001+1,0                 POINT                              4F11699     
 D     03524  1 00000 0 03526        TXI CD700,0                   INTEGER.                           4F11700     
 D     03525  1 00000 0 03505        TXI CD001+1,0                 X                                  4F11701     
 T     03526  0 07400 0 01723 CD700  TSX C0194                   * GO GET NEXT NONBLANK CHARACTER,    4F11702     
       03527  0 34000 0 01374        CAS ENDMK                     AND IF ENDMARK,                    4F11703     
 D     03530  1 00000 0 03532        TXI CD701,0                   THEN SKIP                          4F11704     
 D     03531  1 00000 0 03616        TXI CC000,0                 * TO NON-ARITHMETIC CLASSIFICATION.  4F11705     
       03532  0 07400 1 03543 CD701  TSX CD600,1                 * SINCE HOLLERITH HAS BEEN FOUND,    4F11706     
 D     03533  1 00000 0 03526        TXI CD700,0                   THEN $ IS LEGAL IN FORMAT TEST.    4F11707     
       03534  0 07400 4 01707 CD900  TSX C0190,4                 * OBTAIN NEXT NONBLANK CHARACTER,    4F11708     
       03535  0 34000 0 01374        CAS ENDMK                     AND IF NOT                         4F11709     
 D     03536  1 00000 0 03540        TXI CD800,0                   ENDMARK, THEN SKIP                 4F11710     
 D     03537  1 00000 0 03562        TXI CB000,0                 * EXIT TO ARITH/NON-ARITH SCAN.      4F11711     
       03540  0 34000 0 01427 CD800  CAS SPECOP                    CHECK FOR $                        4F11712     
 D     03541  1 00000 0 03546        TXI CD601,0                   WHICH, UNLESS HOLERITH, IS AN      4F11713     
       03542  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11714     
       03543  0 34000 0 01435 CD600  CAS PM                        CHECK FOR RECORD MARK              4F11715     
       03544  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11716     
       03545  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11717     
       03546  0 34000 0 01426 CD601  CAS CHAR3                     CHECK FOR MINUS ZERO               4F11718     
       03547  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11719     
       03550  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11720     
       03551  0 34000 0 01424        CAS CHAR2                     CHECK FOR PLUS ZERO                4F11721     
       03552  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11722     
       03553  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11723     
       03554  0 34000 0 01420        CAS MINUS                     CHECK FOR MINUS SIGN               4F11724     
       03555  0 02000 1 00001        TRA 1,1                       WHICH IS AN                        4F11725     
       03556  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11726     
       03557  0 40200 0 01373        SUB TEN                       CHECK FOR TEN                      4F11727     
       03560 -0 10000 1 00001        TNZ 1,1                       WHICH IS AN                        4F11728     
       03561  0 07400 4 03400        TSX DIAG,4                  * ERROR -- GO TO DIAGNOSTIC.         4F11729     
                                          END OF PROGRAM CD000.                                       4F11730     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11731     
                                                                                                      4F11732     
                                         CB000/ CALLS=C0190X,C0190,DIAG.                              4F11733     
                                         CB000 CLASSIFIES STATEMENT AS ARITHMETIC OR NON-ARITHMETIC.  4F11734     
