                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 274/278 ------           
       06160  0 60100 0 03742        STO A                         T0 BE DONE.                        F2218380    
       06161 -0 75400 2 00000        PXD 0,2                                                          F2218390    
       06162  0 40000 0 03765        ADD L(1)A                                                        F2218400    
       06163  0 60100 0 03745        STO LASTB                                                        F2218410    
       06164  0 50000 0 03742        CLA A                                                            F2218420    
       06165  0 40000 0 03752        ADD L(1)                                                         F2218430    
       06166  0 40200 0 03743        SUB B                                                            F2218440    
       06167  0 10000 0 06174        TZE DS4V10                    IF THIS RANGE IS EMPTY,            F2218450    
       06170  0 50000 0 06363        CLA 4VALAD                    SKIP SEARCH.                       F2218460    
       06171  0 60100 0 06362        STO FORAD                                                        F2218470    
       06172 -0 53400 1 03751        LXD L(0),1                                                       F2218480    
       06173  0 07400 4 06210        TSX FSXX,4                    GO TO SEARCH ROUTINE               F2218490    
       06174  0 50000 0 03744 DS4V10 CLA NEXTA                     A AND B FOR SEC0ND                 F2218500    
       06175  0 60100 0 03742        STO A                         SPECIAL RANGE.                     F2218510    
       06176  0 50000 0 03745        CLA LASTB                                                        F2218520    
       06177  0 60100 0 03743        STO B                                                            F2218530    
       06200  0 40200 0 03742        SUB A                                                            F2218540    
       06201  0 10000 0 06207        TZE DS4V20                                                       F2218550    
       06202  0 76000 0 00144        PSE 100                                                          F2218560    
       06203  0 50000 0 06363        CLA 4VALAD                                                       F2218570    
       06204  0 60100 0 06362        STO FORAD                                                        F2218580    
       06205 -0 53400 1 03751        LXD L(0),1                                                       F2218590    
       06206  0 07400 4 06210        TSX FSXX,4                                                       F2218600    
       06207  0 02000 0 05555 DS4V20 TRA RELEND                    EXIT                               F2218610    
       06210 -0 63400 4 06231 FSXX   SXD FS28,4                    SAVE TSX INDEX                     F2218620    
       06211  0 50000 0 03756 FS00   CLA L(5)          INITIALIZE                                     F2218632    
       06212  0 62200 0 06361        STD 4VLHL8                    ERROR COUNTER                      F2218640    
       06213  0 76200 0 00302 FS05   RDS 194                                                          F2218650    
       06214 -0 53400 2 06300        LXD BS71,2                                                       F2218660    
       06215  0 46000 0 06362        LDA FORAD                     FIND FIRST 0R NEXT ADDRESS         F2218670    
       06216  0 50000 0 03742        CLA A                         IN FORVAL,PUT A IN ACC.            F2218680    
       06217  0 70000 0 06473 FS10   CPY BLOCK                     COPY FORMULA NR.                   F2218690    
       06220  0 04000 0 06232        TLQ FS30                      A GREATER THAN FOR.NR.,TRA.        F2218700    
       06221  0 70000 0 06474        CPY BLOCK+1                   A LESS,COPY BALANCE OF             F2218710    
       06222  0 50000 0 03743        CLA B                         ENTRY,PUT B IN ACC,                F2218720    
       06223  0 70000 0 06475        CPY BLOCK+2                   ADJUST XRA FOR THIS                F2218730    
       06224  1 00003 1 06225        TXI FS20,1,3                  ENTRY.                             F2218740    
       06225  0 70000 2 06567 FS20   CPY BLOCK+60,2                COPY NEXT FOR. NR.                 F2218750    
       06226  0 04000 0 06235        TLQ FS40                      B GREAT THAN FOR. NR.,TRA.         F2218760    
       06227  0 40200 0 06473 FS25   SUB BLOCK                     TEST FIRST ENTRY.                  F2218770    
       06230  0 12000 0 06242        TPL FS50                      B GREATER THAN F,TRA               F2218780    
 D     06231 -3 00000 0 06353 FS28   TXL BS99,0                    B LESS THAN F,EXIT                 F2218790    
       06232  0 70000 0 06474 FS30   CPY BLOCK+1                   COPY BALANCE OF ENTRY,G0           F2218800    
       06233  0 70000 0 06475        CPY BLOCK+2                   BACK IF P0SSIBLE T0 C0NTINUE       F2218810    
       06234  1 00003 1 06217        TXI FS10,1,3                  SEARCH FOR BEGINNING OF RANGE,     F2218820    
       06235  0 70000 2 06570 FS40   CPY BLOCK+61,2                THIS ENTRY IS IN RANGE,            F2218830    
       06236  0 70000 2 06571        CPY BLOCK+62,2                C0NTINUE READING IN ENTRIES        F2218840    
       06237  2 00003 2 06225        TIX FS20,2,3                  UNTIL BLOCK FULL 0R RANGE          F2218850    
       06240 -0 53400 2 03751        LXD L(0),2                    EXCEEDED.                          F2218860    
       06241  0 02000 0 06227        TRA FS25                                                        F2218870     
       06242 -0 63400 2 06255 FS50   SXD CS20,2                                                      F2218880     
       06243 -0 63400 2 06265        SXD BS40,2                                                      F2218890     
       06244 -0 63400 1 06262        SXD BS25,1                                                      F2218900     
       06245 -0 53400 2 03762 CS00   LXD L(60),2                   THIS ROUTINE COMPUTES              F2218910    
