                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 104/104 ------           
       03761 -0 50000 0 00415 MS311  CAL TXLOP             SET SWITCHES FOR RIGHT SIDE SCAN.          4F13670     
       03762  0 63000 0 03563        STP MS093             X                                          4F13671     
       03763  0 63000 0 03767        STP MS310             X                                          4F13672     
       03764  0 63000 0 03750        STP MS321             X                                          4F13673     
       03765  0 76000 0 00141        SLN 1                 TURN =  OR  )  LITE 0N.                    4F13674     
       03766  0 02000 0 03463        TRA MS010             GO SCAN NEXT ELEMENT.                      4F13675     
 U     03767    00000 0 03671 MS310  *** MSERR=,0          TXH FOR LEFT, TXL FOR RIGHT OF EQUAL SIGN. 4F13676     
       03770  0 60000 0 01124        STZ CHSAVE            CLEAR                                      4F13677     
       03771 -0 75400 0 00000        PXD ,0                CLEAR AC                                   4F136775    
       03772 -0 76300 0 00006        LGL 6                 GET  FIRST  CHAR OF SYMBOL.                4F13678     
 T     03773  0 07400 0 03241        TSX TESTFX+           1,1   TEST FOR FIXED OR FLOATING  POINT    4F13679     
       03774  0 02000 0 03755        TRA MS322             FLOATING,                                  4F13680     
       03775 -0 50000 0 00030        CAL EIFNO             FIXED,  PREPARE FORVAL  ENTRY.             4F13681     
       03776 -0 32000 0 01527        ANA MASK1             X                                          4F13682     
       03777  0 60200 0 01347        SLW G                 X                                          4F13683     
       04000  0 07400 1 03321        TSX TET00,1           MAKE  FORVAL  ENTRY.                       4F13684     
       04001  0 00000 0 00006            6                 X                                          4F13685     
       04002  0 02000 0 03755        TRA MS322                                                        4F13686     
       04003  0 07400 4 01771 MS330  TSX DIM1SR,4          SEARCH FOR THIS NAME IN THE DIM1, DIM2,    4F13687     
       04004  0 02000 0 04006        TRA MS331             AND DIM3 TABLES.  IF IT IS FOUND IN ONE OF 4F13688     
       04005  0 02000 0 04013        TRA MS333             THESE TABLES IT IS A SUBSCRIPTED VARIABLE  4F13689     
       04006  0 07400 4 01775 MS331  TSX DIM2SR,4          OF THAT NUMBER OF DIMENSIONS, IF IT IS NOT 4F13690     
       04007  0 02000 0 04011        TRA MS332             FOUND IN ANY DIMENSION TABLE THEN IT IS    4F13691     
       04010  0 02000 0 04013        TRA MS333             ASSUMED TO BE THE NAME OF A FORTRAN II     4F13692     
       04011  0 07400 4 02005 MS332  TSX DIM3SR,4          SUBROUTINE OR FUNCTION COMPILED SEPARATELY.4F13693     
       04012  0 02000 0 04015        TRA MS334             X                                          4F13694     
       04013  0 07400 4 04450 MS333  TSX SS000X,4          GO PROCESS SUBSCRIPT COMBINATIONS          4F13695     
       04014  0 02000 0 04076        TRA LATXH             GO PERFORM LEVEL ANALYSIS.                 4F13696     
       04015 -0 50000 0 01471 MS334  CAL FNIND             NOT FOUND, TREAT AS FUNCTION NAME.         4F13697     
       04016  0 60200 0 05303        SLW FNBITS            X                                          4F13698     
       04017 -0 75400 0 00000        PXD ,0                X                                          4F13699     
       04020  0 56000 0 01526        LDQ BLANKS            COMPLETE NAME WITH BLANKS.                 4F13700     
       04021 -0 76300 2 00052        LGL 42,2              X                                          4F13701     
       04022 -0 60200 0 01347        ORS G                 X                                          4F13702     
       04023 -0 60200 0 01130        ORS E+2               X                                          4F13703     
       04024  0 07400 1 03321        TSX TET00,1           ENTER NAME  IN CLOSUB TABLE.               4F13704     
       04025  0 00000 0 00011            9                 X                                          4F13705     
       04026  0 76000 0 00142 MS335  SLN 2                 TURN  FUNCTION LITE 0N.                    4F13706     
       04027  0 02000 0 04074        TRA LATXL             GO PERFORM  LEVEL  ANALYSIS.               4F13707     
       04030  0 60000 0 01124 HOLL   STZ CHSAVE                    CLEAR CHSAVE                       4F13708     
       04031 -0 50000 0 01352        CAL HOLCNT                    GET CURRENT H(+I WORD              4F13709     
       04032  0 60200 0 01130        SLW E+2                                                          4F13710     
       04033  0 53400 2 01103        LXA N,2                    GET NUMBER OF CHARACTERS IN THIS ARG  4F13711     
       04034 -0 53400 4 01724        LXD CHCTR,4                GET CURRENT RESIDUE CHAR COUNT        4F13712     
       04035  0 56000 0 01365        LDQ RESIDU                 GET CURRENT RESIDU WORD               4F13713     
       04036  0 53400 1 01414 C3351  LXA L(6),1                 SET TO COLLECT SIX CHARS              4F13714     
       04037 -0 75400 0 00000        PXD 0,0                    CLEAR  AC                             4F13715     
       04040 -2 00001 4 04053 C3352  TNX C3354,4,1              TEST FOR NO MORE CHARS  IN RESIDU     4F13716     
       04041 -0 76300 0 00006 C33525 LGL 6                      GET NEXT CHAR                         4F13717     
       04042  0 60200 0 01112        SLW 1G                     STORE WORD                            4F13718     
       04043 -0 32000 0 01374        ANA ENDMK                  BLANK ALL EXCEPT CURRENT CHAR         4F13719     
       04044  0 40200 0 01374        SUB ENDMK                  TEST FOR INTERNAL ENDMK               4F13720     
       04045 -0 10000 0 04047        TNZ C3353                                                        4F13721     
       04046  0 07400 4 03400        TSX DIAG,4                    YES, ERROR, GO TO DIAGNOSTIC.      4F13722     
