                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 071/071 ------           
       04000  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA00P (OP AND DECR)       4F11897     
       04001  0 00000 0 01110        PZE 1C+3                      WORD 3--VARIABLE N (ADDRESS)       4F11898     
       04002  0 00000 0 01406        PZE L(0)                      WORD 4--00000 (REL ADDR AND TAG).  4F11899     
       04003  0 02000 0 04030        TRA C0202                     GO TO ENTER 1C,1C+1 INTO TIFGO.    4F11900     
       04004  0 07400 4 01707 C0220  TSX C0190,4                 * EXAMINE NEXT NB CHARACTER,         4F11901     
       04005  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE A COMMA.           4F11902     
       04006  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR, AND    4F11903     
       04007  0 07400 2 01624        TSX C0160,2                 * OBTAIN IN 1G THE FXF-PT. VARIABLE. 4F11904     
       04010  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F11905     
       04011  0 50000 0 01407        CLA L(1)                      PREPARE PROPER FORM OF SUBSCRIPT   4F11906     
       04012  0 60100 0 01131        STO E+3                       COMBINATION AS                     4F11907     
       04013  0 60100 0 01100        STO DIMCTR                    INPUT TO SUBSCRIPT ANALYSIS=       4F11908     
       04014  0 50000 0 01112        CLA 1G                        E+3 = 1ST COEFFICIENT.             4F11909     
       04015  0 60100 0 01132        STO E+4                       E+4 = 1ST SUBSCRIPT VARIABLE,      4F11910     
       04016  0 60000 0 01137        STZ E+9                       E+9 = ADDEND OF SUBSCRIPT,         4F11911     
       04017  0 07400 4 03027        TSX CSA000,4                * DIMCTR = DIMENSION OF VARIABLE.    4F11912     
       04020  0 50000 0 01126        CLA E                         OUTPUT FROM CSA IS FOUND IN        4F11913     
       04021  0 77100 0 00030        ARS 24                        E = I--TAUTAG (GENERAL TAG) 1-11.  4F11914     
       04022  0 60100 0 01113        STO 2G                        ADJUST AND SAVE FOR COMP. INSTR.   4F11915     
       04023  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11916     
       04024  0 00000 0 01107        PZE 1C+2                      WORD 1--DECR-INTFORMNO(LOCATION)   4F11917     
       04025  0 00000 0 01601        PZE L(TRA)                    WORD 2--TRA000(OP AND DECR)        4F11918     
       04026  0 00000 0 01406        PZE L(0)                      WORD 3--000000(ADDRESS)            4F11919     
       04027  0 00000 0 01113        PZE 2G                        WORD 4--ADDR = TAUTAG FOR I        4F11920     
                                         C0200= ENTRY POINT USED BY C0400,C1000.                      4F11921     
       04030  0 07400 1 03321 C0202  TSX TET00,1                 * GO TO TET TO ENTER 1C AND 1C+1     4F11922     
       04031  0 00000 0 00002        PZE 2                         INTO TIFGO TABLE (TABLE 2).        4F11923     
       04032  1 00372 0 03440  CTRAD TXI CA010,0,250             * EXIT TO PROCESS NEXT STATEMENT.    4F11924     
                                          END OF PROGRAM C0200.                                       4F11925     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11926     
                                                                                                      4F11927     
                                         C0300/ CALLS=-C0190X,C0190,C0390,TEST..,DIAG,C0180,TET00,    4F11928     
                                         STATEB.                                                      4F11929     
                                         C0300 PROCESSES IF STATEMENTS.                               4F11930     
       04033 -0 53400 4 00030 C0300  LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11931     
       04034 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT OF 1C      4F11932     
       04035 -0 76000 0 00003        SSM                           WITH SIGN SET TO MINUS             4F11933     
       04036  0 60100 0 01105        STO 1C                        FOR FUTURE TIFGO ENTRY.            4F11934     
       04037  0 07400 4 01671        TSX C0190X,4                * SET CHCTR AND FWA TO BEGIN SCAN.   4F11935     
       04040  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN AC THE 1ST NB CHAR (I).  4F11936     
       04041  0 56000 0 01433        LDQ L(X)                      REPLACW THE CHARACTER I            4F11937     
       04042  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER X.              4F11938     
       04043  0 56000 0 01373        LDQ L(10)                     REPALCE THE CHARACTER F            4F11939     
       04044  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER 001010.         4F11940     
       04045  0 07400 4 03275        TSX TESTE0,4                * IF NOT LPAREN -- THEN ERROR.       4F11941     
       04046  0 56000 0 01400        LDQ AEQUAL                    REPLACE THE CHARACTER LPARAN       4F11942     
       04047  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER EQUAL.          4F11943     
       04050  0 53400 2 01407        LXA L(1),2                    SET XR2 FOR COUNTING PARENTHESES.  4F11944     
       04051  0 02000 0 04053        TRA *+2                                                          4F11945     
       04052  0 07400 4 01707 C0302  TSX C0190,4                 * MAKE SURE THAT NEXT NB CHARACTER   4F11946     
       04053  0 34000 0 01374        CAS ENDMK                     IS NOT AN ENDMARK.                 4F11947     
       04054  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11948     
       04055  0 07400 4 03400        TSX DIAG,4                  * PROGRAM ERROR, GO TO DIAGNOSTIC.   4F11949     
       04056  0 34000 0 01375        CAS ALPAR                     IF IT IS A LPAREN,                 4F11950     
