                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 245/249 ------           
       04257  1 77777 1 04260        TXI NEST95,1,-1               IN DOREC.                          F2202700    
 D     04260  3 00000 1 04256 NEST95 TXH NEST90,1                  (DEC HAS DOTAG IX)                 F2202710    
       04261  0 02000 0 04116        TRA NEST                      RETURN FOR NEXT NEST,              F2202720    
       04262 -0 53400 1 03674 DOFOR  LXD XC,1                      0BTAIN                             F2202730    
       04263  1 00011 1 04264        TXI DOF10,1,9                 NEXT BACK DO,                      F2202740    
       04264  3 00702 1 04164 DOF10  TXH NESTEN,1,450              IF ANY.                            F2202750    
       04265  0 07400 4 04363        TSX DOINFO,4                  USE DOINFO                         F2202760    
       04266  0 02000 0 04377        TRA TAG00                     AND GO TO TAG00 ROUT1NE.           F2202770    
       04267 -0 53400 1 03674 DOFEND LXD XC,1                      IS A COUNTER                       F2202780    
       04270  0 50000 1 00743        CLA DOTAGZ+8,1                                                   F2202790    
       04271 -0 32000 0 04004        ANA BIT19                                                        F2202800    
       04272  0 10000 0 04326        TZE MAKESC                                                       F2202810    
       04273 -0 50000 1 00740        CAL DOTAGZ+5,1                NECESSARY BECAUSE OF               F2202820    
       04274 -0 32000 0 04002        ANA 2BITS                     TRANSFERS 0R COMPUTATION WITH      F2202830    
       04275 -0 10000 0 04301        TNZ DOF15                     SYMB0L.                            F2202840    
       04276  0 50000 0 04005        CLA BIT20                     TEST FOR                           F2202850    
       04277 -0 32000 1 00741        ANA DOTAGZ+6,1                DELTA TWO                          F2202860    
       04300  0 10000 0 04305        TZE DOF20                     INSERT                             F2202870    
       04301  0 50000 1 00741 DOF15  CLA DOTAGZ+6,1                HAS A COUNTER BEEN                 F2202880    
       04302 -0 32000 0 04001        ANA BITTWO                    F0UND.                             F2202890    
       04303 -0 10000 0 04322        TNZ DOF40                     1F N0T,                            F2202900    
       04304  0 02000 0 04326        TRA MAKESC                    MAKE ONE. (RETURN IS T0 DOF40)     F2202910    
       04305  0 50000 1 00740 DOF20  CLA DOTAGZ+5,1                IF N0 COUNTER NECESSARY,           F2202920    
       04306 -0 32000 0 04003        ANA SUBBIT                    HAS SYM 0CCURRED WITH              F2202930    
       04307  0 10000 0 04314        TZE DOF30                     RECON N0T AS TYPE ONE              F2202940    
       04310  0 50000 1 00743        CLA DOTAGZ+8,1                CARRY. IF S0, HAS A                F2202950    
       04311 -0 73400 2 00000        PDX 0,2                       TEST BEEN F0UND.                   F2202960    
       04312  3 00000 2 04322        TXH DOF40,2,0                 IF N0T,                            F2202970    
       04313  0 02000 0 04326        TRA MAKESC                    MAKE A COUNTER (RETURN IS T0 DOF40)F2202980    
       04314  0 50000 1 00743 DOF30  CLA DOTAGZ+8,1                IF SYH HAS N0T 0CCURRED WITH       F2202990    
       04315  0 77100 0 00014        ARS 12                        RELC0N 0R IN SUCH 0CCURRENCES      F2203000    
       04316 -0 73400 2 00000        PDX 0,2                       WAS ALWAYS A TYPE ONE              F2203010    
       04317 -3 00013 2 04322        TXL DOF40,2,11                CARRY, IS CURRECT TEST             F2203020    
       04320  0 50000 0 04005        CLA BBIT                                                         F2203030    
       04321 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2203040    
       04322  0 50000 0 04325 DOF40  CLA DOF50                     MADE. TAKE SIGN AND                F2203030    
       04323  0 32000 1 00743        ANS DOTAGZ+8,1                TEST TABLE INTEGER OUT             F2203060    
       04324  0 02000 0 04262        TRA DOFOR                     OF TEST WORD AND EXIT.             F2203070    
       04325 +007777777777    DOF50  OCT 7777777777                                                   F2203080    
       04326  0 50000 0 03755 MAKESC CLA L(4)                      INITIALIZE                         F2203090    
       04327  0 60100 0 03731        STO DOSUBS                    DOSUBS AND 0THER LQCATIONS         F2203100    
       04330  0 50000 0 03751        CLA L(0)                      USED IN 1NS00.                     F2203110    
       04331  0 60100 0 03730        STO RCSUBS                                                       F2203120    
       04332  0 60100 0 03727        STO DORC                                                         F2203130    
       04333  0 60100 0 03704        STO C1                                                           F2203140    
       04334  0 60100 0 03737        STO CARWRD                                                       F2203150    
       04335  0 50000 0 03673        CLA NEWTAG                    GET A NAME                         F2203160    
       04336  0 60100 0 03701        STO TS                        FOR THIS                           F2203170    
       04337  0 40000 0 03765        ADD L(1)A                     SUBSCRIPT AND                      F2203180    
       04340  0 60100 0 03673        STO NEWTAG                    UP DATE NEWTAG.                    F2203190    
       04341  0 07400 4 06075        TSX 1NS00,4                   USE 1NS00 FOR TEST INF0,LIST.      F2203200    
       04342  0 50000 0 03757        CLA L(6)                      SET UP TAG TAG                     F2203210    
       04343 -0 50100 0 03767        ORA L(4)A                     ENTRY                              F2203220    
       04344 -0 50100 0 03737        ORA CARWRD                                                       F2203230    
