                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 068/068 ------           
       03562  0 53400 1 01407 CB000  LXA L(1),1                    SET XR TO COUNT PARENTHESES.       4F11735     
       03563  0 07400 4 01671        TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736     
       03564  0 07400 4 01707 CB001  TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER.  4F11737     
       03565  0 34000 0 01400        CAS AEQUAL                    IF AN EQUAL SIGN,                  4F11738     
 D     03566  1 00000 0 03570        TXI CB005,0                   THEN                               4F11739     
 D     03567  1 00000 0 03601        TXI CB200,0                   GO TEST PAREN-COUNT.               4F11740     
       03570  0 34000 0 01375 CB005  CAS ALPAR                     IF A LEFT PARENTHESIS,             4F11741     
 D     03571  1 00000 0 03573        TXI CB006,0                   THEN                               4F11742     
       03572  1 00001 1 03564        TXI CB001,1,1                 UPDATE PAREN-COUNT BY 1.           4F11743     
       03573  0 34000 0 01377 CB006  CAS ARPAR                     IF A RIGHT PARENTHESIS,            4F11744     
 D     03574  1 00000 0 03576        TXI CB007,0                   THEN                               4F11745     
 D     03575  1 00000 0 03614        TXI CB500,0                   GO TEST PAREN-COUNT.               4F11746     
       03576  0 40200 0 01374 CB007  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11747     
       03577 -0 10000 0 03564        TNZ CB001                     GO EXAMINE NEXT CHARACTER.         4F11748     
 D     03600  1 00000 0 03616        TXI CC000,0                 * OTHERWISE, GO TO DIC LOOK-UP.      4F11749     
       03601  2 00001 1 03616 CB200  TIX CC000,1,1               * IF EQUAL WAS NOT WITHIN PARENS,    4F11750     
       03602  0 07400 4 01707 CB201  TSX C0190,4                 * THEN EXAMINE NEXT CHARACTER.       4F11751     
       03603  0 34000 0 01375        CAS ALPAR                     IF LEFT PARENTHESIS,               4F11752     
 D     03604  1 00000 0 03606        TXI CB205,0                   THEN                               4F11753     
 D     03605  1 00000 0 02404        TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11754     
       03606  0 34000 0 01376 CB205  CAS ACOMMA                    IF A COMMA,                        4F11755     
 D     03607  1 00000 0 03611        TXI CB206,0                   THEN                               4F11756     
 D     03610  1 00000 0 03616        TXI CC000,0                 * GO TO NON-ARITHMETIC DIC LOOK-UP.  4F11757     
       03611  0 40200 0 01374 CB206  SUB ENDMK                     IF NOT ENDMARK, THEN               4F11758     
       03612 -0 10000 0 03602        TNZ CB201                     GO EXAMINE NEXT CHARACTER.         4F11759     
 D     03613  1 00000 0 02404        TXI ARITH,0                 * THIS IS AN ARITHMETIC FORMULA.     4F11760     
       03614  2 00001 1 03564 CB500  TIX CB001,1,1                  IF PAREN-COUNT DOES NOT BALANCE,  4F11761     
       03615  0 07400 4 03400        TSX DIAG,4                  * ERROR-GO TO DIAGNOSTIC ROUTINE.    4F11762     
                                          END OF PROGRAM CB000.                                       4F11763     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11764     
                                                                                                      4F11765     
                                         CC000/ CALLS=CC500,C0190X,DIAG,C0190,TET00.                  4F11766     
                                         CC000 CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC.       4F11767     
       03616  0 60000 0 01113 CC000  STZ 2G                        SET DICTIONARY WORD TAG, AND       4F11768     
       03617  0 53400 3 01406        LXA L(0),3                    CHARACTER COUNT AND ENTRY COUNT.   4F11769     
       03620  0 07400 4 01671 CC001  TSX C0190X,4                * RESET CHCTR AND FWA TO BEGIN SCAN. 4F11770     
       03621  0 07400 4 05743        TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11771     
       03622  0 34000 0 01374        CAS ENDMK                     TEST FOR CONSECUTIVE ENDMARKS.     4F11772     
       03623  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11773     
       03624  0 07400 4 03400        TSX DIAG,4                  * ERROR = NOT FOUND IN DICTIONARY.   4F11774     
 D     03625  1 00000 4 03632        TXI CC004,4                   GO BEGIN COMARISION.               4F11775     
       03626  0 07400 4 05743 CC002  TSX CC500,4                 * EXAMINE NEXT DICTIONARY CHARACTER. 4F11776     
       03627  0 34000 0 01374        CAS ENDMK                     TEST FOR END OF DIC ENTRY.         4F11777     
 D     03630  1 00000 0 03272        TXI ERR77P,0                * MACHINE ERROR, GO TO DIAGNOSTIC.   4F11778     
 D     03631  1 00000 0 03644        TXI CC007,0                   IF END OF ENTRY, LOOK NO FURTHER.  4F11779     
       03632  0 60100 0 01105 CC004  STO 1C                        OTHERWISE, SAVE CHARACTER          4F11780     
       03633 -0 60000 0 01106        STQ 1C+1                      AND REMAINDER OF DICTIOANRY WORD.  4F11781     
       03634  0 07400 4 01707        TSX C0190,4                 * GO GET NEXT FORMULA CHARACTER,     4F11782     
       03635  0 56000 0 01106        LDQ 1C+1                      AND RESTORE DICTIONARY WORD.       4F11783     
       03636  0 40200 0 01105        SUB 1C                        IF CHARCATERS ARE EQUAL,           4F11784     
       03637  0 10000 0 03626        TZE CC002                     THEN GO COMPARE NEXT CHARACTER.    4F11785     
       03640  0 07400 4 05743 CC005  TSX CC500,4                 * OTHERWISE, EXAMINE NEXT DIC CHAR.  4F11786     
       03641  0 40200 0 01374        SUB ENDMK                     CONTINUE UNTIL AN ENDMARK IS       4F11787     
       03642 -0 10000 0 03640        TNZ CC005                     FOUND, THEN                        4F11788     
