                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 101/101 ------           
       03521  2 00001 4 03516 MS072  TIX MS071,4,1         X                                          4F13508     
       03522 -3 00022 2 03511        TXL MS060,2,18        IF THIS IS CHAR I, 2 /R 3 GO BUILD G.      4F13509     
       03523  0 34000 0 01422        CAS L(F)              IS THIS AN F ENDING FUNCTION NAME.         4F13510     
       03524  0 02000 0 03526        TRA MS073             X                                          4F13511     
       03525  0 02000 0 03530        TRA MS080             MAYBE, GO LOOK AT NEXT CHAR.               4F13512     
       03526 -3 00044 2 03511 MS073  TXL MS060,2,36        TEST FOR UNDER 7 CHARS.                    4F13513     
       03527  0 07400 4 03400 MS074  TSX DIAG,4            BUILD G, 7TH CHAR IS ERROR.                4F13514     
       03530  0 07400 4 01707 MS080  TSX C0190,4           GET NEXT CHAR.                             4F13515     
       03531  0 34000 0 01375        CAS OPEN              TEST FOR (.                                4F13516     
       03532  0 02000 0 03534        TRA MS081             X                                          4F13517     
       03533  0 02000 0 03555        TRA MS092             YES, THIS IS A FUNCTION NAME.              4F13518     
       03534  0 60100 0 01331 MS081  STO FIRSTC            NO, SAVE CURRENT CHAR.                     4F13519     
       03535 -0 50000 0 01422        CAL L(F)              ADD F TO CONTENTS OF G,                    4F13520     
       03536  0 76700 2 00044        ALS 36,2              X                                          4F13521     
       03537 -0 60200 0 01347        ORS G                 X                                          4F13522     
       03540  3 00044 2 03527        TXH MS074,2,36        TEST FOR 7TH CHAR, YES IS ERROR,           4F13523     
       03541  0 50000 0 01331        CLA FIRSTC            RESTORE CURRENT CHAR.                      4F13524     
       03542  1 00006 2 03515        TXI MS070,2,6         UPDATE POSITIONING TAG,                    4F13525     
       03543  0 60000 0 01124 MS090  STZ CHSAVE            CLEAR                                      4F13526     
       03544  0 02000 4 03677        TRA TRBLKA,4                                                     4F13527     
       03545  0 60200 0 01124 MS091  SLW CHSAVE            OP IS IN NEXT ELEMENT, SAVE,               4F13528     
       03546 -0 50000 0 01430        CAL BLANK             ADD BLANK TO CHARS IN G.                   4F13529     
       03547  0 76700 2 00044        ALS 36,2              X                                          4F13530     
       03550 -0 60200 0 01347        ORS G                 X                                          4F13531     
       03551  0 56000 0 01347        LDQ G                 MOVE G TO E+2 AND TO G+1,                  4F13532     
       03552 -0 60000 0 01130        STQ E+2               X                                          4F13533     
       03553 -0 60000 0 01350        STQ G+1               X                                          4F13534     
       03554  0 02000 4 03727        TRA TRBLKB,4          NOW BRANCH TO INDIVIDUAL ROUTINE           4F13535     
       03555 -0 75400 0 00000 MS092  PXD ,0                CLEAR                                      4F13536     
       03556  0 56000 0 01526        LDQ BLANKS            ADD BLANKS TO SUBROUTINE NAME IN G.        4F13537     
       03557 -0 76300 2 00052        LGL 42,2              X                                          4F13538     
       03560 -0 50100 0 01347        ORA G                 X                                          4F13539     
       03561  0 60200 0 01347        SLW G                 X                                          4F13540     
       03562  0 60200 0 01130        SLW E+2               MOVE FUNCTION NAME TO E+2.                 4F13541     
 U     03563    00000 0 04026 MS093  *** MS335,0           TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE.     4F13542     
       03564 -0 53400 4 00470        LXD BK,4              THIS IS ARITH FUNCTION STATEMENT.          4F13543     
       03565  0 60200 4 00471        SLW FORSUB,4          ENTER FUNCTION NAME IN FORSUB TABLE.       4F13544     
       03566 -0 50000 0 00030        CAL EIFNO             ENTER INTERNAL FORMULA NO IN FORSUB.       4F13545     
       03567 -0 32000 0 01527        ANA MASK1             X                                          4F13546     
       03570  0 60100 4 00472        STO FORSUB+1,4        X                                          4F13547     
       03571  1 77776 4 03572        TXI FS010,4,-2        UPDATE COUNT OF ENTRIES IN FORSUB.         4F13548     
       03572 -0 63400 4 00470 FS010  SXD BK,4              X                                          4F13549     
       03573  0 07400 4 01707 FS020  TSX C0190,4           GET FIRST CHAR OF ARGUMENT.                4F13550     
       03574  0 34000 0 01400        CAS EQUAL             TEST FOR EQUAL,                            4F13551     
       03575  0 02000 0 03577        TRA FS030             X                                          4F13552     
       03576  0 02000 0 03755        TRA MS322             GO MOVE FROM E, E+1, E+2 TO LEFT, LEFT+1,+24F13553     
       03577  0 34000 0 01417 FS030  CAS L(9)              TEST FOR ILLEGAL ARGUMENT,                 4F13554     
       03600  0 02000 0 03603        TRA FS040             LEGAL, CONTINUE                            4F13555     
 D     03601  3 00000 0 04427 MS9002 TXH CM4200,0                                                     4F13556     
       03602  0 07400 4 03400        TSX DIAG,4            BEGINS NUMERIC, ERROR,                     4F13557     
       03603  0 07400 2 01624 FS040  TSX C0160,2           COLLECT ARGUMENT NAME IN 1G,               4F13558     
       03604  0 07400 4 03255        TSX TESTB0,4          TEST CHAR FOLLOWING ARG FOR , OR)          4F13559     
       03605 -0 53400 2 01122        LXD ARGCTR,2          GET COUNT OF ARGUMENTS                     4F13560     
       03606  0 56000 0 01112        LDQ 1G                ENTER ARGUMENT NAME IN ARGREG TABLE.       4F13561     
