                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 075/075 ------           
       04250  0 02000 0 04030        TRA C0202                   * CONTINUE BY USING PROGRAM C02.     4F12114     
                                          END OF PROGRAM C1000.                                       4F12115     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12116     
                                                                                                      4F12117     
                                         C1100/ CALLS=C0190,C0180,TEST..,GETIFN,CIT00.                4F12118     
                                         C1100 PROCESSES SENSE LIGHT STATMENTS.                       4F12119     
       04251  0 07400 2 01654 C1100  TSX C0180X,2                * GO FORM BINARY EQUIV OF SL NUMBER. 4F12120     
       04252  0 07400 4 03271        TSX TESTD0,4                * THE NEXT NB CHARACTER SHD BE ENDMK.4F12122     
       04253  0 50000 0 01112        CLA 1G                        STORE SENSE LIGHT NUMBER           4F12123     
       04254  0 40000 0 01440        ADD L(96)                     PLUS 96                            4F12124     
       04255  0 76700 0 00022        ALS 18                        IN DECR                            4F12125     
       04256  0 60100 0 01112        STO 1G                        OF 1G.                             4F12126     
       04257  0 07400 4 02366        TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12127     
       04260  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY.   4F12128     
       04261  0 00000 0 01105        PZE 1C                        WORD1--DECR = INTFORMNO (LOCATION) 4F12129     
       04262  0 00000 0 01565        PZE L(PSE)                    WORD2--PSE000 (OP AND DECREMENT)   4F12130     
       04263  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS PART)       4F12131     
       04264  0 00000 0 01112        PZE 1G                        WORD4--DECR = 96+ALPHA,REST ZEROS. 4F12132     
 D     04265  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12133     
                                          END OF PROGRAM C1100.                                       4F12134     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12135     
                                                                                                      4F12136     
                                         C1200/ CALLS=C0190,C0160,TEST..,DIM.SR,DIAG,C0180,DRTABS.    4F12137     
                                         C1200 PROCESSES DIMENSION STATEMENTS.                        4F12138     
       04266  0 07400 4 01707 C1200  TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12139     
       04267  0 07400 2 01624        TSX C0160,2                 * THE VARIABLE SYMBOL.               4F12140     
       04270  0 07400 4 03275        TSX TESTE0,4                * NEXT NB CHARACTER SHOULD BE LPAREN.4F12141     
       04271  0 50000 0 01112        CLA 1G                        PUT VARIABLE SYMBOL                4F12142     
       04272  0 60100 0 01105        STO 1C                        IN 1C.                             4F12143     
       04273  0 60100 0 01130        STO E+2                       ALSO IN E+2. THEN                  4F12144     
       04274  0 07400 4 01771        TSX DIM1SR,4                * GO SEARCH DIM1 TABLE.              4F12145     
       04275  0 02000 0 04277        TRA C1280                     THEN IF NOT                        4F12146     
       04276  0 02000 0 04304        TRA C1299                     FOUND,                             4F12147     
       04277  0 07400 4 01775 C1280  TSX DIM2SR,4                * GO SEARCH DIM2 TABLE.              4F12148     
       04300  0 02000 0 04302        TRA C1281                     THEN IF NOT                        4F12149     
       04301  0 02000 0 04304        TRA C1299                     FOUND,                             4F12150     
       04302  0 07400 4 02005 C1281  TSX DIM3SR,4                * GO SEARCH DIM3 TABLE.              4F12151     
       04303  0 02000 0 04305        TRA C1282                     DO NOT CONTUINUE IF                4F12152     
       04304  0 07400 4 03400 C1299  TSX DIAG,4                  * VARIABLE PREVIOUSLY APPEARED.      4F12153     
       04305  0 07400 2 01654 C1282  TSX C0180X,2                * GO FORM BINARY EQUIV OF D1.        4F12154     
       04306  0 40200 0 01377        SUB CLOS                      IF NOT 1 DIMENSION,                4F12155     
       04307  0 10000 0 04330        TZE C1210                     THEN                               4F12156     
       04310  0 50000 0 01112        CLA 1G                        PUT D1                             4F12157     
       04311  0 76700 0 00022        ALS 18                        IN DECR                            4F12158     
       04312  0 60100 0 01106        STO 1C+1                      OF 1C+1.                           4F12159     
       04313  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF D2.        4F12160     
       04314  0 40200 0 01377        SUB CLOS                      IF NOT 2 DIMENSION,                4F12163     
       04315  0 10000 0 04334        TZE C1220                     THEN                               4F12164     
       04316  0 50000 0 01112        CLA 1G                        PUT D2                             4F12165     
       04317  0 62100 0 01106        STA 1C+1                      IN ADDRESS OF 1C+1.                4F12166     
       04320  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF D3.        4F12168     
       04321  0 40200 0 01377        SUB CLOS                      IF MORE THAN 3 DIMENSIONS,         4F12169     
       04322  0 10000 0 04324        TZE *+2                       THIS IS AN                         4F12170     
       04323  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12171     
