                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 079/079 ------           
       04530  0 07400 1 03242        TSX TESTFX+1,1              * FIXED POINT                        4F123299    
       04531  0 02000 0 04534        TRA C3101                     VARIABLES                          4F12330     
       04532  0 07400 1 03321        TSX TET00,1                 * IN                                 4F123301    
       04533  0 00000 0 00006        PZE 6                         FORVAL TABLE.                      4F123302    
       04534  3 00000 4 04512 C3101  TXH C3100,4,0                 IF CHARACTER WAS COMMA, REPEAT.    4F123303    
 D     04535  1 00000 0 03440        TXI CA010,0                 * IF ENDMK, EXIT TO CA000.           4F12331     
                                          END OF PROGRAM C3100.                                       4F12332     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12333     
                                                                                                      4F12334     
                                         C3200/ CALLS=C0190,TEST..,GETIFN,DIAG,CIT00,JIF(GIF).        4F12335     
                                         C3200 PROCESSES RETURN STATEMENTS.                           4F12336     
       04536  0 07400 4 01707 C3200  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12337     
       04537  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE AN ENDMARK.        4F12338     
       04540  0 07400 4 02366        TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C. 4F12339     
       04541  0 07400 4 02372        TSX JIF,4                   * SET SL TO ALPHA+1.                 4F12340     
       04542  0 50000 0 01121        CLA ARGCNT                    TEST ARGCNT FOR PRECEEDING         4F12341     
       04543  0 12000 0 04545        TPL *+2                       SUBROUTINE - IF NONE, THEN         4F12342     
       04544  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12343     
       04545  0 50000 0 01332        CLA FSNAME                                                       4F12344     
       04546  0 10000 0 04555        TZE *+7                                                          4F12345     
       04547  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12346     
       04550  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12347     
       04551  0 00000 0 01541        PZE L(CLA)                    WORD2--CLA000                      4F12348     
       04552  0 00000 0 01332        PZE FSNAME                    WORD3--NAME OF FUNCTION            4F12349     
       04553  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12350     
       04554  0 60000 0 01105        STZ 1C                        CLEAR 1C.                          4F12351     
       04555  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12352     
       04556  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12353     
       04557  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12354     
       04560  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12355     
       04561  0 00000 0 01407        PZE L(1)                      WORD4--000001                      4F12356     
       04562  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12357     
       04563  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12358     
       04564  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12359     
       04565  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12360     
       04566  0 00000 0 01456        PZE ABTAG2                    WORD4--001002                      4F12361     
       04567  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12362     
       04570  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12363     
       04571  0 00000 0 01570        PZE L(QXD)                    WORD2--QXD000                      4F12364     
       04572  0 00000 0 01523        PZE DOLSGN                    WORD3--$                           4F12365     
       04573  0 00000 0 01460        PZE ABTAG3                    WORD4--002000                      4F12366     
       04574  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12367     
       04575  0 00000 0 01367        PZE SL                        WORD1--0(IFN+1)000                 4F12368     
       04576  0 00000 0 01567        PZE L(OPR)                    WORD2--OPRO00                      4F12369     
       04577  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F12370     
       04600  0 00000 0 01121        PZE ARGCNT                    WORD4--0(N+1)004                   4F12371     
       04601  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12372     
       04602  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12373     
       04603  0 00000 0 01601        PZE L(TRA)                    WORD2--TRA000                      4F12374     
       04604  0 00000 0 01367        PZE SL                        WORD3--0(IFN+1)000                 4F12375     
       04605  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12376     
 D     04606  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12377     
                                          END OF PROGRAM C3200.                                       4F12378     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12379     
