                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 243/247 ------           
       04104  0 60100 0 07775        STO 4093                                                         F2201580    
       04105  0 50000 0 05074        CLA LADDS         TSXC0M CARRY0VER T0 BLOCK 3.                   F2201590    
       04106  0 60100 0 07776        STO 4094                                                         F2201600    
       04107  0 50000 0 05076        CLA LADDS+2       NAMKEY (0R NAME) CARRY0VER T0 BLOCK 3,         F2201610    
       04110  0 60100 0 07777        STO 4095                               . .   )  ----- -.         F2201620    
       04111  0 02000 0 06647        TRA NORMRT                                                       F2201635    
 A     04112  0 00000 0 00000 END80  HTR               ES. (DEC HAS 1 IF FORVAL N0T EMPTY)            F2201640    
 A     04113  0 00000 0 00000 END85  HTR               FOR  (DEC HAS 1 IF DOTAG N0T EMPTY(            F2201650    
 A     04114  0 00000 0 00000 END90  HTR                           END            .   -..-            F2201670    
 A     04115  0 00000 0 00000 END95  HTR                           PROGRAM.                           F2201680    
       04116 -0 53400 1 03751 NEST   LXD L(0),1                    READ                               F2201690    
       04117  0 76200 0 00223 NEST10 RDS DOTAPE                    ONE                                F2201700    
       04120 -0 53400 2 03763        LXD L(450),2                  NEST OF DO FORMULAS                F2201710    
       04121  0 70000 2 00733 NEST20 CPY DOTAGZ,2                  FR0M -. -- . ------                F2201720    
       04122  1 77777 2 04156        TXI NEST60,2,-1               DOTAPE.                            F2201730    
       04123  0 02000 0 04043        TRA END                       IF EOF, GO TO ROUTINE END.         F2201740    
       04124  0 50000 0 03751 NEST30 CLA L(0)                      INITIALIZING INSTRHATI2LI7         L121T1I0    
       04125  0 60100 0 03672        STO ATSW                                             .  --       F2201760    
       04126 -0 63400 2 03674        SXD XC,2                      PUT C(XRB) IN XC                   F2201780    
       04127 -0 63400 2 00030        SXD DOTAG-1,2     INITIALIZE                                     F2201790    
       04130 -0 63400 2 04260        SXD NEST95,2      DECS                                           F2201800    
       04131 -0 63400 2 05451        SXD TRAW20,2      THAT                                           F2201810    
       04132 -0 63400 2 05464        SXD TRAW50,2      TEST                                           F2201820    
       04133 -0 63400 2 05316        SXD SPC040,2      END OF                                         F2201830    
       04134 -0 63400 2 05353        SXD SPC090,2      DONEST.                                        F2201840    
       04135  0 53400 4 04006        LXA ADTXX,4       INIT                                           F2201850    
       04136 -0 63400 4 04006        SXD ADTXX,4       DECS                                           F2201860    
       04137  0 53400 4 04007        LXA RESXX,4       FR0M                                           F2201870    
       04140 -0 63400 4 04007        SXD RESXX,4       ADDRESSES.                                     F2201880    
       04141  0 53400 4 04010        LXA TAGXX,4                                                      F2201890    
       04142 -0 63400 4 04010        SXD TAGXX,4                                                      F2201900    
       04143  0 53400 4 04011        LXA NAMXX,4                                                      F2201910    
       04144 -0 63400 4 04011        SXD NAMXX,4                                                      F2201920    
       04145  0 76600 0 00333        WRS 219                       MAKE                               F2201930    
       04146 -0 76000 0 00012        RTT                           RTT                                F2201940    
       04147  0 02000 0 04151        TRA NEST35                    TEST                               F2201950    
       04150  0 02000 0 04262        TRA DOFOR                     IF N0 ERROR, GO TO DOFOR.          F2201960    
       04151  1 00001 1 04152 NEST35 TXI NEST40,1,1                IF ERROR,                .         F2201970    
       04152  3 00004 1 04155 NEST40 TXH NEST50,1,4    TRY 4 TIMES M0RE FOR                           F2201985    
       04153  0 76400 0 00223        BST DOTAPE                    C0RRECT READ.                      F2201990    
       04154  0 02000 0 04117        TRA NEST10        AFTER FIFTH INC0RRECT READ,                    F2202002    
       04155  0 07400 4 00004 NEST50 TSX DIAG,4                              ERROR. GO TO DIAGN0STIC  F2202015    
       04156  3 00000 2 04121 NEST60 TXH NEST20,2,0                INDEX COPY. IF DOTAG         --  -.F2202020    
       04157  0 70000 0 04163        CPY NEST70                    ST0RAGE FULL, AND M0RE             F2202030    
       04160  0 07400 4 00004        TSX DIAG,4  NEST ENTRIES REMAIN.        ERROR. GO TO DIAGN0STIC. F2202045    
       04161  0 07400 4 00004        TSX DIAG,4  INC0RRECT EQF.              ERROR. GO TO DIAGN0ST)C1 F2202055    
       04162  0 02000 0 04124        TRA NEST30                    N0 ENTRIES LEFT, GO TO NEST301) .- F2202060    
 A     04163  0 00000 0 00000 NEST70 HTR                           E.S.                               F2202070    
       04164 -0 53400 2 03755 NESTEN LXD L(4),2                    PUT END OF NEST INDICATION         F2202080    
       04165  0 50000 0 03771        CLA 35ONES                    IN TAGTAG, C0NSISTING OF .         F2202090    
       04166  0 60100 2 05067 NEST80 STO E1+4,2                    F0UR WORDS OF 35 ONES.             F2202100    
       04167  2 00001 2 04166        TIX NEST80,2,1                                                   F2202120    
       04170  0 07400 4 05510        TSX TAGENT,4                  ENTER IN TAGTAG AND                F2202130    
       04171  0 07400 2 05522        TSX TETAPE,2                  WRITE BUFFER 0N TAPE.              F2202140    
