                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 255/259 ------           
       05301 -0 63400 4 05361        SXD SPC105,4                  SAVE TSX INDEX.                    F2208170    
       05302  0 60100 0 05410        STO SPCKEY                    SAVE LIST KEY WORD                 F2208180    
       05303  0 50000 1 00740        CLA DOTAGZ+5,1                0BTAIN L WORD                      F2208190    
       05304  0 62200 0 05321        STD SPC050                    INITIALIZE TEST INSTR.             F2208200    
       05305  0 50000 1 00733        CLA DOTAGZ,1                  0BTAIN ALPHABETA WRD,              F2208210    
       05306  0 73400 2 00000        PAX 0,2                       SAVE BETA,                         F2208220    
       05307 -0 32000 0 03772        ANA DECMSK                    0BTAIN ALPHA ALONE                 F2208230    
       05310  0 60100 0 03744        STO NEXTA                     ST0 IN NEXTA                       F2208240    
       05311  0 60100 0 03742        STO A                         AND STORE IN A.                    F2208250    
       05312 -0 75400 2 00000        PXD 0,2                       PUT BETA IN LASTB AND              F2208260    
       05313  0 60100 0 03745        STO LASTB                     BETING SEARCH FOR R2               F2208270    
       05314 -0 53400 1 05371 SPC010 LXD SPC115,1                  0BTAIN CURRENT INDEX AND           F2208280    
       05315  1 77767 1 05316 SPC020 TXI SPC040,1,-9               G0 DOWN ONE DO,IF P0SSIBLE,ELSE    F2208290    
 D     05316 -3 00000 1 05362 SPC040 TXL SPC110,1                  GO TO SET UP LAST INTERVAL.        F2208300    
       05317  0 50000 1 00740        CLA DOTAGZ+5,1                TEST WHETHER 0R N0T THIS DO        F2208310    
       05320 -0 73400 2 00000        PDX 0,2                       IS IN RANGE OF R1(DXL)             F2208320    
 D     05321 -3 00000 2 05362 SPC050 TXL SPC110,2                  IF N0T,EXIT FOR LAST 1NTERVAL,     F2208330    
       05322  0 50000 1 00734        CLA DOTAGZ+1,1                IF IN R1,IS THIS DO T0 BE          F2208340    
       05323  0 40200 0 03735        SUB RSYM1                     SKIPPED. IF N0T,G0 BACK T0         F2208350    
       05324  0 10000 0 05330        TZE SPC053                    GET NEXT DO.                       F2208360    
       05325  0 50000 1 00734        CLA DOTAGZ+1,1                                                   F2208370    
       05326  0 40200 0 03736        SUB RSYM2                                                        F2208380    
       05327 -0 10000 0 05315        TNZ SPC020                                                       F2208390    
       05330  0 50000 1 00733 SPC053 CLA DOTAGZ,1                  R2 F0UND,ARRANGE T0 SKIP THIS      F2208400    
       05331  0 73400 2 00000        PAX 0,2                       INTERVAL. USE ALPHA OF R2          F2208410    
       05332 -0 32000 0 03772        ANA DECMSK                    AS B,PUT BETA OF R2 IN             F2208420    
       05333  0 60100 0 03743        STO B                         NEXTA.                             F2208430    
       05334 -0 75400 2 00000        PXD 0,2                       DO FORMULAS WITHIN R2 ARE          F2208440    
       05335  0 60100 0 03744        STO NEXTA                     ACCOUNTED FOR AFTER SEARCH.        F2208450    
       05336 -0 63400 1 05371        SXD SPC115,1                  SAVE INDEX OF R2.                  F2208460    
       05337 -0 53400 2 05344 SPC055 LXD SPC060,2                  PUT TINFOR, LIST IND. IN XRB       F2208470    
       05340  0 50000 0 03742 SPC058 CLA A                         FOR                                F2208480    
       05341  0 40200 0 03743        SUB B                         N0N EMPTY                          F2208490    
       05342  0 10000 0 05345        TZE SPC065                    INTERVALS,                         F2208500    
       05343 -3 00001 2 05376        TXL SPCTIN,2,1                GO TO ARRANGE TINFOR SEARCH, 0R    F2208510    
 D     05344 -3 00000 0 05401 SPC060 TXL SPCSTO,0                 TRA T0 USE LIST.                    F2208520    
       05345 -0 53400 2 05344 SPC065 LXD SPC060,2                  RETURN HERE,TEST TINFOR            F2208530    
       05346 -3 00000 2 05372        TXL SPC120,2,0                LIST IND. IF ZER0, EXIT.           F2208540    
       05347 -0 53400 1 05371 SPC070 LXD SPC115,1                  T0 SET UP NEXT INTERVAL,           F2208550    
       05350  0 50000 1 00740        CLA DOTAGZ+5,1                0BTAIN INDEX OF LAST R2 AND        F2208560    
       05351  0 62200 0 05356        STD SPC100                    STEP DOWN IN DOTAG BY USUAL        F2208570    
       05352  1 77767 1 05353 SPC080 TXI SPC090,1,-9               PROCEDURE UNTIL S0ME DQ IS         F2208580    
 D     05353 -3 00000 1 05362 SPC090 TXL SPC110,1                  F0UND N0T IN R2,0R UNTIL           F2208590    
       05354  0 50000 1 00740        CLA DOTAGZ+5,1                DOTAG EXHAUSTED. IF DO F0UND       F2208600    
       05355 -0 73400 2 00000        PDX 0,2                       N0T IN R2,SET A AND GO TO TEST     F2208610    
 D     05356  3 00000 2 05352 SPC100 TXH SPC080,2                  IF THIS DO IS IN R1.               F2208620    
       05357  0 50000 0 03744        CLA NEXTA                     IF IT IS,NEWR2 WILL BE F0UN0       F2208630    
       05360  0 60100 0 03742        STO A                         0R EXIT MADE T0 SPC110.            F2208640    
 D     05361 -3 00000 0 05321 SPC105 TXL SPC050,0                                                     F2208650    
       05362  0 50000 0 03744 SPC110 CLA NEXTA                     THIS IS SETUP FOR LAST             F2208660    
       05363  0 60100 0 03742        STO A                         INTERVAL. FOR A,USE                F2208670    
       05364  0 50000 0 03745        CLA LASTB                     C0NTENTS OF NEXTA. FOR B,          F2208680    
       05365  0 60100 0 03743        STO B                         USE BETA OF R1,F0UND IN            F2208690    
       05366 -0 53400 2 05344        LXD SPC060,2                  LASTB. 0BTAIN TINFOR,ST0TAG        F2208700    
