                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 078/078 ------           
       04447  0 60100 0 01121        STO ARGCNT                    SUBROUTINE OR FUNCTION STATEMENT.  4F12283     
       04450  0 07400 4 01707        TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12284     
       04451  0 07400 4 03311        TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12285     
       04452  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE NAME IN 1G.               4F12286     
       04453  0 07400 4 03263        TSX TESTC0,4                * NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287     
 D     04454 -3 00000 0 04457 C3003  TXL *+3,0                                                        4F12288     
       04455  0 50000 0 01112        CLA 1G                                                           4F12289     
       04456  0 60100 0 01332        STO FSNAME                                                       4F12290     
       04457  0 07400 4 03224        TSX SUBX00,4                * FILL OUT NAME WITH BLANKS.         4F12291     
       04460  0 07400 1 03321        TSX TET00,1                 * GO ENTER NAME                      4F12292     
       04461  0 00000 0 00013        PZE 11                        IN SUBDEF TABLE.                   4F12293     
       04462 -0 53400 4 00030        LXD EIFNO,4                   PLACE                              4F12294     
       04463 -0 75400 4 00000        PXD ,4                        INTERNAL FORMULA NUMBER            4F12295     
       04464  0 60100 0 01347        STO G                         IN G.                              4F12296     
 D     04465  1 00000 0 04454        TXI C3003,0                   GO TEST FOR END OF STATEMENT.      4F12297     
       04466  0 40000 0 01374 C3001  ADD ENDMK                     IF NOT ENDMARK, RESTOERE CHARACTER 4F12298     
       04467  0 07400 4 03311        TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC        4F12299     
       04470  0 60100 0 01331        STO FIRSTC                    1ST CHARACTER OF ARGUMENT.         4F12300     
       04471  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE ARGUMENT IN 1G.           4F12301     
       04472  0 07400 4 03255        TSX TESTB0,4                * NEXT CHAR SHD BE COMMA OR RPARAN.  4F12302     
       04473  0 50000 0 01112        CLA 1G                         MOVE ARGUMENT                     4F12303     
       04474  0 60100 0 01350        STO G+1                       INTO G+1.                          4F12304     
       04475  0 07400 1 03241        TSX TESTFX,1                * GO TEST FOR FIXED OR FLOATING PT.  4F12305     
 D     04476  1 00000 0 04501        TXI C3004,0                   IF FLOATING PT., SKIP FORVAL ENTRY.4F12306     
       04477  0 07400 1 03321        TSX TET00,1                 * IF FIXED POINT, GO MAKE ENTRY      4F12307     
       04500  0 00000 0 00006        PZE 6                         IN FORVAL TABLE.                   4F12308     
       04501  0 07400 1 03321 C3004  TSX TET00,1                 * IN BOTH CASES, MAKE ENTRIES IN     4F12309     
       04502  0 00000 0 00013        PZE 11                        SUBDEF TABLE.                      4F12310     
       04503  0 50000 0 01121        CLA ARGCNT                    UPDATE                             4F12311     
       04504  0 40000 0 01454        ADD D1                        ARGUMENT COUNT                     4F12312     
       04505  0 60100 0 01121        STO ARGCNT                    BY 1. AND                          4F12313     
       04506  0 07400 4 01707 C3002  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F12314     
       04507  0 40200 0 01374        SUB ENDMK                     IF NOT ENDMARK, THEN               4F12315     
       04510 -0 10000 0 04466        TNZ C3001                     GO PROCESS NEXT ARGUMENT.          4F12316     
 D     04511  1 00000 0 03440        TXI CA010,0                 * OTHERWISE, EXIT TO CA000.          4F12317     
                                          END OF PROGRAM C3000.                                       4F12318     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12319     
                                                                                                      4F12320     
                                         C3100/ CALLS=C0190,DIAG,TEST..,C0160,TET00.                  4F12321     
                                         C3100 PROCESSES COMMON STATEMENTS.                           4F12322     
       04512  0 07400 4 01707 C3100  TSX C0190,4                 * GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323     
       04513  0 07400 4 03311        TSX TESTH0,4                * WHICH SHOULD BE NON-NUMERIC.       4F12324     
       04514  0 07400 2 01624        TSX C0160,2                 * ASSEMBLE SYMBOL IN 1G, AND TEST    4F12325     
       04515  0 07400 4 03247        TSX TESTA0,4                * NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326     
       04516  0 73400 4 00000        PAX ,4                        SAVE RESULT OF TEST IN XR4, AND    4F12327     
       04517  0 07400 1 03321        TSX TET00,1                 * GO ENTER THIS SYMBOL               4F12328     
       04520  0 00000 0 00014        PZE 12                        IN COMMON TABLE.                   4F12329     
       04521  0 50000 0 00365        CLA SBDFCN                    ANY ENTRIES IN SUBDEF              4F123291    
       04522  0 10000 0 04534        TZE C3101                     INDICATE THIS IS NOT A             4F123292    
       04523  0 50000 0 01454        CLA 2E18                      MAIN PROGRAM. SINCE THIS           4F123293    
       04524  0 60100 0 01347        STO G                         IS A COMMON                        4F123294    
       04525 -0 50000 0 01112        CAL 1G                        STATEMENT WHICH                    4F123296    
       04526  0 60200 0 01350        SLW G+1                       APPEARS IN A SUBPROGRAM            4F123297    
       04527  0 77100 0 00036        ARS 30                        ENTER ANY                          4F123298    
