                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 069/069 ------           
       03643  1 77777 1 03620        TXI CC001,1,-1                COUNT ENTRY, AND BEGIN AGAIN.      4F11789     
       03644  0 50000 1 06246 CC007  CLA T,1                       IF THE CURRENT STATEMENT IS        4F11790     
       03645  0 12000 1 06246        TPL T,1                       OF THE NON-EXCUTABLE TYPE,         4F11791     
       03646 -0 63400 1 01107        SXD 1C+2,1                    THEN                               4F11792     
       03647  0 07400 1 03321        TSX TET00,1                 * GO ENTER EIFNO IN THE              4F11793     
       03650  0 00000 0 00016        PZE 14                        NONEXC TABLE.                      4F11794     
       03651 -0 53400 1 01107        LXD 1C+2,1                    AND THEN                           4F11795     
       03652  0 02000 1 06246 CC008  TRA T,1                     * TAKE INDICATED TRANSFER.           4F11796     
                                          END OF PROGRAM CC000.                                       4F11797     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11798     
                                                                                                      4F11799     
                                         STATEA/2-PROCESS CONTROL AND SPECIFICATION STATEMENTS=       4F11800     
                                                                                                      4F11801     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11802     
                                                                                                      4F11803     
                                         C0100/ CALLS=GETIFN,C0190,TEST..,C0180,C0160,C0150,TET00.    4F11804     
                                         C0100 PROCESSES DO STATEMENTS.                               4F11805     
       03653  0 07400 4 02366 C0100  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F11806     
       03654  0 07400 4 01707        TSX C0190,4                 * OBTAIN 1ST NON-BLANK CHARACTER     4F11807     
       03655  0 07400 4 03315        TSX TESTI0,4                * WHICH SHOULD BE NUMERIC.           4F11808     
       03656  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BIN EQUIV OF BETA.4F11809     
       03657  0 60100 0 01113        STO 2G                        SAVE THE 1ST CHAR OF SUBSCRIPT.    4F11810     
       03660  0 50000 0 01112        CLA 1G                        TAKE CONVERTED RESULT FOR BETA     4F11811     
       03661  0 62100 0 01105        STA 1C                        AND STORE IN ADDR OF 1C.           4F11812     
       03662  0 50000 0 01113        CLA 2G                        1C IS NOW COMPETE EXCEPT FOR TAG.  4F11813     
       03663  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE SUBSCRIPT.        4F11814     
       03664  0 50000 0 01112        CLA 1G                        STORE SUBSCRIPT                    4F11815     
       03665  0 60100 0 01106        STO 1C+1                       IN 1C+1.                          4F11816     
       03666  0 07400 2 01604        TSX C0150,2                 * OBTIAN IN 1G THE PROPER N1.        4F11817     
       03667  0 50000 0 01112        CLA 1G                        STORE N1                           4F11818     
       03670  0 60100 0 01107        STO 1C+2                      IN 1C+2.                           4F11819     
       03671 -0 50000 0 01353        CAL I                         OBTAIN I IN LOGICAL ACC AND        4F11820     
       03672  0 77100 0 00022        ARS 18                        STORE IN POS 18 OF 1C              4F11821     
       03673 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11822     
       03674  0 07400 2 01604        TSX C0150,2                 * OBTAIN IN 1G THE PROPER N2.        4F11823     
       03675  0 07400 4 03247        TSX TESTA0,4                * TEST THE AC FOR COMMA OR ENDMARK.  4F11824     
       03676 -0 10000 0 03701        TNZ C0113                     IF ENDMARK, THEN                   4F11825     
       03677 -0 77300 0 00037        RQL 31                        CREATE ONE IN MQ FOR N3            4F11826     
       03700 -0 60000 0 01365        STQ RESIDU                    AND PLACE IN RESIDU.               4F11827     
       03701  0 50000 0 01112 C0113  CLA 1G                        STORE N2                           4F11828     
       03702  0 60100 0 01110        STO 1C+3                      IN 1C+3.                           4F11829     
       03703 -0 50000 0 01353        CAL I                         OBTAIN I IN LOG ACC AND            4F11830     
       03704  0 77100 0 00023        ARS 19                        STORE IN POS 19 OF 1C              4F11831     
       03705 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11832     
       03706  0 07400 2 01604        TSX C0150,2                 * OBTAIN IN 1G THE PROPER N3.        4F11833     
       03707  0 07400 4 03271        TSX TESTD0,4                * THE AC SHOULD CONTIAN AN ENDMARK.  4F11834     
       03710  0 50000 0 01112        CLA 1G                        STORE N3                           4F11835     
       03711  0 60100 0 01111        STO 1C+4                      IN 1C+4.                           4F11836     
       03712 -0 50000 0 01353        CAL I                         OBTAIN I IN LOG ACC AND            4F11837     
       03713  0 77100 0 00024        ARS 20                        STORE IN POS 20 OF 1C              4F11838     
       03714 -0 60200 0 01105        ORS 1C                        0 IF NUMERIC, OR 1 IF NON-NUMERIC. 4F11839     
       03715  0 07400 1 03321        TSX TET00,1                 * GO TO TET PROGRAM TO ENTER         4F11840     
       03716  0 00000 0 00001        PZE 1                         1C,1C+1,..1C+4 IN TDO TABLE 1.     4F11841     
 D     03717  1 00000 0 03440        TXI CA010,0                 * EXTI TO PROCESS NEXT STATEMENT.    4F11842     
