                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 234/238 ------           
       06705  1 00001 2 06706        TXI TS85,2,1                  ADUUST XRB FOR CURRENT DO TEST.    F2106870    
       06706  0 50000 1 02544 TS85   CLA DOTAGZ+5,1                0BTAIN NEXT BACK DO IN             F2106880    
       06707  0 62200 0 06710        STD TS90                      SUBNEST. 0N FIRST TIME             F2106890    
 D     06710  3 00000 2 06714 TS90   TXH T100,2                    THR0UGH, CURRENT DO IS             F2106900    
       06711  1 00011 1 06706 TS92   TXI TS85,1,9                  PRODUCED.                          F2106910    
       06712  2 00001 2 06711 TS94   TIX TS92,2,1                  ADJUST LEVEL.                      F2106920    
       06713  0 07400 4 00004        TSX DIAG,4  IF N0T IN NEST,             ERROR. GQ T0 DIAGN0STIC. F2106933    
       06714  0 50000 1 02537 T100   CLA DOTAGZ,1                  NEXT BACK DO F0UN0.                F2106940    
       06715 -0 32000 0 05514        ANA DECMSK                    TEST T0 SEE IF FORTAG              F2106950    
       06716  0 40200 4 04510        SUB 4VALZ,4                   FORMULA NR. IS IN THIS             F2106960    
       06717  0 12000 0 06712        TPL TS94                      DO. IF N0T, G0 TD TS94             F2106970    
       06720  0 50000 1 02537        CLA DOTAGZ,1                  T0 ADJUST LEVEL FOR                F2106980    
       06721 -0 32000 0 05516        ANA ADDMSK                    0BTAINING NEW SUBNEST DO.          F2106990    
       06722  0 76700 0 00022        ALS 18                                                           F2107000    
       06723  0 40200 4 04510        SUB 4VALZ,4                                                      F2107010    
       06724 -0 12000 0 06712        TMI TS94                                                         F2107020    
 D     06725 -3 00000 2 06727 T110   TXL T120,2                    DEC C0NTAINS CURRENT LEVEL.        F2107030    
       06726  0 02000 0 06751        TRA T170          APPARENT DEFINITION  OF A VAR(ABLE N WITHIN    F2107044    
                                                       RANGE OF THE DO WITH VARIABLE N. IGN0RE AND    F2107046    
                                                       GET NEXT FORVAL.                               F2107047    
       06727 -0 53400 1 06745 T120   LXD T144,1                    PUT CUR. VAR. DO INDEX IN          F2107050    
       06730  0 50000 1 02547        CLA DOTAGZ+8,1                XRA, AND 08TAIN LEV. DEF,          F2107060    
       06731  0 73400 2 00000        PAX 0,2                       OF VAR. N.                         F2107070    
       06732 -0 63400 2 06734        SXD T130,2                    STORE IN DEC OF T130.              F2107080    
       06733 -0 53400 2 06710        LXD TS90,2                    0BTAIN LEVEL OF DO C0NTAINING      F2107000    
 D     06734 -3 00000 2 06751 T130   TXL T170,2                    FURTAG FOR. NR.                    F2107100    
       06735 -0 75400 2 00000        PXD 0,2                       CH00SE LARGER AND PUT IN           F2107110    
       06736  0 77100 0 00022        ARS 18                        LEV, DEF. FIELD OF CURRENT DQ.     F2107120    
       06737  0 62100 1 02547        STA DOTAGZ+8,1                IF CHANGE MADE, SAVE               F2107130    
       06740  0 60100 0 06757        STO T195                      LEVEL,                             F2107140    
       06741 -0 53400 2 06746        LXD T148,2                    AND TEST T0 SEE IF THIS            F21071S0    
       06742  0 50000 1 02543        CLA DOTAGZ+4,1                SYMBOL                             F2107160    
       06743  1 00001 1 06750        TXI T160,1,1                  DUPLICATED                         F2107170    
       06744  0 34000 1 02543 T140   CAS DOTAGZ+4,1                IN 00 VAR.N S.                     F2107180    
 D     06745 -3 00000 0 06747 T144   TXL T150,0        )F S0, REPLACE ITS LEVELIDEC HAS IX FOR VAR N) F2107100    
 D     06746 -3 00000 0 06752 T148   TXL T180,0        OF DEF  BY THIS ( DEC HAS 3,2,1 IF FORVAL      F2107200    
                                                       MATCHES VARIABLE N3,N2,N1)                     F2107201    
       06747  1 00001 1 06750 T150   TXI T160,1,1                  NEW LEVEL.                         F2107210    
       06750  2 00001 2 06744 T160   TIX T140,2,1                                                     F2107220    
       06751  1 77776 4 06676 T170   TXI TS75,4,-2                                                    F2107230    
       06752  0 50000 0 06757 T180   CLA T195                                                         F2107240    
       06753  0 62100 1 02547        STA DOTAGZ+8,1                                                   F2107230    
       06754  0 50000 1 02543        CLA DOTAGZ+4,1                                                   F2107260    
       06755  1 00001 1 06750        TXI T160,1,1                                                     F2107270    
       06756  0 02000 0 06763 T190   TRA RH00                      EXIT                               F2107280    
 A     06757  0 00000 0 00000 T195   HTR                           ES                                 F2107290    
 A     06760  0 00000 0 00000 XFOR   HTR                           FORTAG INDEX                       F2107300    
 A     06761  0 00000 0 00000 TBNA   HTR                           ES                                 F2107310    
 A     06762  0 00000 0 00000 TENA   HTR                           ES                                 F2107320    
                                         USE OF SYMBOL WITH(N RANGE AS FXD P0INT VAR. FORVAR SEARCH.  F2107330    
       06763 -0 53400 2 05501 RH00   LXD L(5),2                    READ IN                            F2107340    
       06764  0 50000 0 07161        CLA 4VARAD                    FORVAR                             F2107350    
       06765  0 07400 4 07064        TSX RTAPE,4                                                      F2107360    
       06766  3 02733 1 07056        TXH RH95,1,1499               EXIT IF FORVAR EMPTY               F2107370    
