                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 289/293 ------           
       07031  0 34000 0 06632        CAS RSYM1         CHECK FOR DUPLICATE SYMB0LS.                   F2305290    
       07032  0 02000 0 07034        TRA TAGP32                                                       F2305300    
       07033  1 00001 4 07041        TXI TAGP40,4,1    SYMB0L DUPLICATES RSYM1.                       F2305310    
       07034  0 34000 0 06633 TAGP32 CAS RSYM2                                                        F2305320    
       07035  0 02000 0 07037        TRA TAGP34                                                       F2305330    
       07036  1 00001 4 07041        TXI TAGP40,4,1    SYMB0L DUPLICATES RSYM2.                       F2305340    
       07037  0 60100 2 06635 TAGP34 STO RSYM1+3,2                                                    F2305350    
       07040  1 77777 2 07041        TXI TAGP40,2,-1   BUHP DELTA COUNTER.                            F2305360    
       07041  2 00002 1 07026 TAGP40 TIX TAGP30,1,2                                                   F2305370    
       07042 -0 75400 2 00000        PXD 0,2           COMPUTE                                        F2305380    
       07043 -0 76000 0 00003        SSM               DELTA AS N0                                    F2305390    
       07044  0 40000 0 06670        ADD L(3)          OF DISTINCT SYM80LS.                           F2305400    
       07045  0 10000 0 07062        TZE TAGP50        C0NSTANT SUBSCRIPT.                            F2305410    
       07046  0 60100 0 06631        STO DELTA                                                        F2305420    
       07047 -0 53400 2 06665        LXD L(0),2                                                       F2305430    
       07050  3 00000 4 07060        TXH TAGP45,4,0    IF DUPES, SET TAGIND T0 ZER0                   F2305440    
       07051  0 40200 0 06666        SUB L(1)                                                         F2305450    
       07052 -0 10000 0 07060        TNZ TAGP45        IF DELTA 0THER THAN ONE, SET TAGIND T0 ZER0    F2303460    
       07053  0 50000 0 06636        CLA S1                                                           F2305470    
       07054  0 10000 0 07060        TZE TAGP45        IF SUBSCRIPT C0NSTANT, SET TAGIND T0 ZER0      F2305480    
       07055 -0 53400 1 06635        LXD C1,1          IF C0EFF 0THER THAN 1 SET TAGIND T0 ZER0       F2305490    
       07056  3 00001 1 07060        TXH TAGP45,1,1                                                   F2305500    
       07057 -0 53400 2 06666        LXD L(1),2        0THERWISE SET TAG1ND T0 ONE.                   F2305510    
       07060 -0 63400 2 06630 TAGP45 SXD TAGIND,2                                                     F2305520    
       07061  0 02000 0 07100        TRA SYMONE        GO TO ANALYZE DONESTI                          F2305530    
       07062 -0 53400 1 07077 TAGP50 LXD TAGX,1        IF ANY              .                          F2305540    
       07063  0 50000 1 03670 TAGP60 CLA FORTZ,1       OF THE AS YET UNTREATED                        F2305550    
       07064 -0 12000 0 07072        TMI TAGP70        FORTAGS                                        F2305560    
       07065 -0 32000 0 06703        ANA ADDMSK        ARE                                            F2305570    
       07066  0 40200 0 06626        SUB TAG           THE SAHE AS THAT TAG                           F2305580    
       07067 -0 10000 0 07072        TNZ TAGP70        JUST TREATED,                                  F2305590    
       07070 -0 50000 0 06676        CAL L(MZ)         SET THEH                                       F2305600    
       07071 -0 60200 1 03670        ORS FORTZ,1       HINUS.                                         F2305610    
       07072  1 77777 1 07073 TAGP70 TXI TAGP80,1,-1                                                  F2305620    
 D     07073  3 00000 1 07063 TAGP80 TXH TAGP60,1                   ( DEC HAS FORTAG IX)              F2305630    
       07074 -0 53400 1 07077 TAGP90 LXD TAGX,1                                                       F2305640    
       07075  1 77777 1 07076 TAGP94 TXI TAGP98,1,-1   IF ALL OF FORTAG                               F2305650    
 D     07076  3 00000 1 07011 TAGP98 TXH TAGP10,1      HAS BEEN COMPLETED,   (DEC HAS FORTAG IX)      F2305660    
 D     07077 -3 00000 0 07616 TAGX   TXL NORMRT,0      NORMAL RET HQNIT0R. (DEC HAS  CURR FORTAG IX)  F2305675    
                                         ROUTINE SYMONE FINDS DOFORMULAS DEFINING S0HE SYM80L IN THIS F2305680    
                                         SC. IT USES TRAWRD T0 DETERMINE WHETHER 0R NQT ROUTINE       F2305690    
                                         PROCESS SH0ULD BE USED.                                      F2305700    
                                         IF M0RE THAN ONE SYMB0L, IT THEN USES ROUTINE SYM2.          F2305710    
       07100 -0 53400 1 06673 SYMONE LXD L(1350,1                                                     F2305720    
       07101 -0 53400 2 06670 SYM10  LXD L(3),2                                                       F2305730    
       07102  0 50000 1 06400        CLA DOTAGZ+1,1    GET NEXT DOTAG SYM80L.                         F2305740    
       07103  0 34000 2 06635 SYM20  CAS RSYM1+3,2     IS IT SAME AS SUBSCRIPT SYMB0L.                F2305750    
       07104  0 02000 0 07106        TRA SYM30                                                        F2305760    
       07105  0 02000 0 07112        TRA SYM50         YES                                            F2305770    
       07106  2 00001 2 07103 SYM30  TIX SYM20,2,1                                                    F2305780    
       07107  1 77767 1 07110        TXI SYM40,1,-9                                                   F2305790    
 D     07110  3 00000 1 07101 SYM40  TXH SYM10,1       END OF DOTAG, RETURN.                          F2305800    
       07111  0 02000 0 07062        TRA TAGP50                                                       F2305810    
       07112  0 50000 0 06632 SYM50  CLA RSYM1         INTERCHANGE THE                                F2305820    
