                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 076/076 ------           
       04324  0 50000 0 01112        CLA 1G                        IF 3 DIMENSION, PUT D3             4F12172     
       04325  0 60100 0 01107        STO 1C+2                      IN 1C+2, AND                       4F12173     
       04326  0 07400 4 00467        TSX DIM3IX,4                * GO MAKE DIM3 ENTRY.                4F12174     
 D     04327  1 00000 0 04337        TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12175     
       04330  0 50000 0 01112 C1210  CLA 1G                        IF 1 DIMENSION, PUT D1             4F12176     
       04331  0 60100 0 01106        STO 1C+1                      IN 1C+1, AND                       4F12177     
       04332  0 07400 4 00455        TSX DIM1IX,4                * GO MAKE DIM1 ENTRY. THEN           4F12178     
 D     04333  1 00000 0 04337        TXI C1201,0                   GO TO TEST FOR END OF STATEMENT.   4F12179     
       04334  0 50000 0 01112 C1220  CLA 1G                        IF 2 DIMENSIONS, PUT D2 IN         4F12180     
       04335  0 62100 0 01106        STA 1C+1                      ADDRESS PART OF 1C+1. AND          4F12181     
       04336  0 07400 4 00462        TSX DIM2IX,4                * GO MAKE DIM2 ENTRY. THEN           4F12182     
       04337  0 07400 4 01707 C1201  TSX C0190,4                 * OBTAIN NB CHAR FOLLOWING RPAREN.   4F12183     
       04340  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12184     
       04341 -0 10000 0 04266        TNZ C1200                     IF CHARACTER IS ENDMAKR, THEN      4F12185     
 D     04342  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATMENT.     4F12186     
                                          END OF PROGRAM C1200.                                       4F12187     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12188     
                                                                                                      4F12189     
                                         C1300/ CALLS=C0901,TET00,CIT00.                              4F12190     
                                         C1300 PROCESSES STOP STATEMENTS.                             4F12191     
       04343  0 07400 1 03321 C1300  TSX TET00,1                 * GO MAKE EIFNO ENTRY                4F12192     
       04344  0 00000 0 00017        PZE 15                        IN TSTOP TABLE.                    4F12193     
       04345  0 07400 2 04171        TSX C0901,2                 * USE C0900 TO BEGIN PROCESSING.     4F12194     
       04346  0 07400 4 01731        TSX CIT00,4                 * GO MAKE FOLLOWING CIT ENTRY=       4F12195     
       04347  0 00000 0 01406        PZE L(0)                      WORD1--ALL ZEROS                   4F12196     
       04350  0 00000 0 01601        PZE L(TRA)                    WORD2--TRA000 (OP+DECR)            4F12197     
       04351  0 00000 0 01106        PZE 1C+1                      WORD3--DECR = INTFORMNO (SYMBOL)   4F12198     
       04352  0 00000 0 01406        PZE L(0)                      WORD4--ZEROS (REL ADDR AND TAG)    4F12199     
 D     04353  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12200     
                                          END OF PROGRAM C1300.                                       4F12201     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12202     
                                                                                                      4F12203     
                                         C1400/ CALLS=C0190,C0180,TEST..,TET00.                       4F12204     
                                         C1400 PROCESS FREQUENCY STATEMENTS.                          4F12205     
       04354  0 07400 2 01654 C1400  TSX C0180X,2                * GO FORM BINARY EQUIV OF EFN.       4F12206     
       04355  0 07400 4 03275        TSX TESTE0,4                * CHARACTER SHOULD BE A LPAREN.      4F12208     
       04356  0 50200 0 01112        CLS 1G                        CHANGE SIGN OF SYMBOL              4F12209     
       04357  0 60100 0 01112        STO 1G                        TO MINUS.                          4F12210     
       04360  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER         4F12211     
       04361  0 00000 0 00007        PZE 7                                                            4F12212     
       04362  0 07400 2 01654 C1401  TSX C0180X,2                * GO FORM BINARY EQUIV OF M(1).      4F12213     
       04363  0 60100 0 01105        STO 1C                        SAVE CHAR IN ACC.                  4F12215     
       04364  0 07400 1 03321        TSX TET00,1                 * GO TO PROGRAM TET TO ENTER M(1)    4F12216     
       04365  0 00000 0 00007        PZE 7                         INTO TABLE FRET (TABLE7), AND      4F12217     
       04366  0 50000 0 01105        CLA 1C                        RESTORE CHAR IN ACC, AND           4F12218     
       04367  0 07400 4 03255        TSX TESTB0,4                * TEST FOR , OR ).                   4F12219     
       04370 -0 10000 0 04362        TNZ C1401                     IF RIGHT PARENTHESIS, THEN         4F12220     
       04371  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NBCHAR, AND     4F12221     
       04372  0 07400 4 03247        TSX TESTA0,4                * TEST FOR COMMA OR ENDMARK.         4F12222     
       04373 -0 10000 0 04354        TNZ C1400                     IF ENDMAKE, THIS STATEMENT IS DONE.4F12223     
 D     04374  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12224     
                                          END OF PROGRAM C1400.                                       4F12225     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12226     
                                                                                                      4F12227     
