                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 070/070 ------           
                                          END OF PROGRAM C0100.                                       4F11843     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11844     
                                                                                                      4F11845     
                                         C0200/ CALLS=GETIFN,DIAG,TEST..,C0190,C0180,TET00,C0160,     4F11846     
                                         CIT00,SS000(CSA000).                                         4F11847     
                                         C0200 PROCESSES GO TO STATEMENTS.                            4F11848     
       03720  0 07400 4 02366 C0200  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F11849     
       03721  0 60100 0 01107        STO 1C+2                      AND IN 1C+2.                       4F11850     
       03722  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER    4F11851     
       03723  0 34000 0 01417        CAS L(9)                      AND COMPARE IT WITH 9.             4F11852     
 D     03724  1 00000 0 03733        TXI C0205,0                   IF NON-NUMERIC, GO COMPARE WITH (. 4F11853     
       03725  0 76100 0 00000        NOP                           IF NUMERIC, THEN                   4F11854     
       03726  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BINARY EQUV BETA. 4F11855     
       03727  0 07400 4 03271        TSX TESTD0,4                * THE AC SHOULD CONTAIN AN ENDMARK.  4F11856     
       03730  0 50000 0 01112        CLA 1G                        STORE BETA IN 1C+1 TO CONSTRUCT    4F11857     
       03731  0 60100 0 01106        STO 1C+1                      THE 2ND WORD OF TIFGO TABLE ENTRY. 4F11858     
 D     03732  1 00000 0 04030        TXI C0202,0                   GO  TO ENTER 1C,1C+1 INTO TIFGO.   4F11859     
       03733  0 34000 0 01375 C0205  CAS ALPAR                     TEST CHARACTER FOR ALPHABETIC.     4F11860     
 D     03734  1 00000 0 03736        TXI C0210,0                   IF NOT ALPHABETIC, THEN            4F11861     
 D     03735  1 00000 0 03746        TXI C0212,0                   THIS IS TYPE= GO TO ( ), I.        4F11862     
       03736  0 07400 2 01624 C0210  TSX C0160,2                 * TYPE= GO TO N,(),SO OBTAIN IN 1G N 4F11863     
       03737  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F11864     
       03740  0 50000 0 01112        CLA 1G                        SAVE THE SYMBOL N IN 1C+3          4F11865     
       03741  0 60100 0 01110        STO 1C+3                      FOR COMPILED INSTRUCTION.          4F11866     
       03742  0 07400 4 01707        TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHARACTER,   4F11867     
       03743  0 07400 4 03275        TSX TESTE0,4                * WHICH SHOULD BE A LPARAN.          4F11868     
       03744  0 50000 0 01407        CLA L(1)                      PREPARE TO SET ADDRESS PART OF 1C  4F11869     
       03745  0 02000 0 03747        TRA C0213                     TO 1 TO INDICATE CLASS OF TRANSFER.4F11870     
       03746  0 50000 0 01410 C0212  CLA L(2)                      PREPARE TO SET ADDR OF 1C TO 2.    4F11871     
       03747  0 62100 0 01105 C0213  STA 1C                        STORE 1 OR 2 IN ADDR OF 1C.        4F11872     
       03750 -0 53400 2 04032        LXD CTRAD,2                   OBTAIN 250-(NO. TRAD ENTRIES), AND 4F11873     
       03751 -0 75400 2 00000        PXD ,2                        PLACE IN THE DECREMENT OF THE AC   4F11874     
       03752  0 60100 0 01106        STO 1C+1                      AND STORE IN 1C+1.                 4F11875     
       03753  0 07400 4 01707 C0215  TSX C0190,4                 * OBTAIN IN ACC NEXT NB CHAR.        4F11876     
       03754  0 07400 2 01655        TSX C0180,2                 * OBTAIN IN 1G THE BIN EQU OF BETA.  4F11877     
       03755  0 60100 0 01113        STO 2G                        SAVE CHAR IN ACC.                  4F11878     
       03756  0 07400 1 03321        TSX TET00,1                 * GO TO ENTER 1G                     4F11879     
       03757  0 00000 0 00003        PZE 3                         INTO TRAD TABLE (TABLE 3).         4F11880     
       03760 -0 53400 2 04032        LXD CTRAD,2                   REDUCE COUNTER                     4F11881     
       03761  2 00001 2 03762        TIX C0216,2,1                 CTRAD                              4F11882     
       03762 -0 63400 2 04032 C0216  SXD CTRAD,2                   BY 1.                              4F11883     
       03763  0 50000 0 01113        CLA 2G                        RESTORE CHAR TO ACC.               4F11884     
       03764  0 07400 4 03255        TSX TESTB0,4                * TEST FOR COMMA OR RPAREN.          4F11885     
       03765 -0 10000 0 03753        TNZ C0215                     IF RIGHT PARENTHESIS, THEN         4F11886     
       03766  0 50000 0 04032        CLA CTRAD                     OBTAIN IN ADDR OF ACC 250-NO. OF   4F11887     
       03767  0 77100 0 00022        ARS 18                        ENTRIES IN TRAD TABLE,AND STORE    4F11888     
       03770  0 62100 0 01106        STA 1C+1                      IN ADDR OF 1C+1.                   4F11889     
       03771  0 50000 0 01105        CLA 1C                        OBTAIN 1C IN ACC                   4F11890     
       03772  0 76000 0 00001        LBT                           AND TEST LOW ORDER BIT.            4F11891     
       03773  0 02000 0 04004        TRA C0220                     THIS IS A TYPE GO TO (),I FORMULA. 4F11892     
       03774  0 07400 4 01707        TSX C0190,4                 * OBTAIN NEXT NB CHAR AND            4F11893     
       03775  0 07400 4 03271        TSX TESTD0,4                * TEST FOR ENDMK.                    4F11894     
       03776  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F11895     
       03777  0 00000 0 01107        PZE 1C+2                      WORD 1--DECR= INTFORMNN (LOCATION) 4F11896     
