1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 221/225 ------           
 U     00000    00000 0       SECTION TWO.                                                                        
                                         BLOCK ONE OF SECTION TWO.                                                
                                            MASTER RECORD CARD = FN027                                F2100000    
                                         BLOCK ONE OF SECTION TWO PERFORMS THE                        F2100AA1    
                                         PRELIMINARY DO NEST STRUCTURE ANALYSIS                       F2100002    
                                         REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS               F2100003    
                                         LEVEL NUMBERS AND THE P0SSIBILITY OF CARRY.                  F2100004    
                                         TRANSFERS OUT OF THE RANGE OF DOS ARE N0TED AND ENTERED      F2100005    
                                         INTO TABLE TRALEV. IF THERE IS A VARIABLE                    F2100006    
                                         PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION            F2100007    
                                         IS ASSIGNED.                                                 F2100008    
                                         FINALLY, A SEARCH IS MADE T0 DETERMINE                       F2100009    
                                         WHETHER A DO INDEX COUNTER IS                                F2100010    
                                         NECESSARY T0 KEEP CURRENT THE VALUES                         F2100011    
                                         OF THE DO INDEX.                                             F2100012    
                        00031        ORG 25                                                           F2100015    
                        00031 DOTAG  BSS 1                                                            F2100017    
                        00032        BSS 1349                                                         F2100020    
                        02537 DOTAGZ BSS 1                                                            F2100030    
                        02540 TIFG0  BSS 1                                                            F2100040    
                        02541        BSS 599                                                          F2100050    
                        03670 TIFZ   BSS 1                                                            F2100060    
                        03671 TRAD   BSS 1                                                            F2100070    
                        03672        BSS 249                                                          F2100080    
                        04263 TRADZ  BSS 1                                                            F2100090    
                        04264 TRALEV BSS 1                                                            F2100100    
                        04265        BSS 599                                                          F2100110    
                        05414 TLTZ   BSS 1                                                            F2100120    
                        02540        ORG 1376                                                         F2100130    
                        02540 FORVAL BSS 1                                                            F210A140    
                        02541        BSS 999                                                          F2100150    
                        04510 4VALZ  BSS 1                                                            F2100160    
                        02540        ORG 1376                                                         F2100170    
                        02540 FORVAR BSS 1                                                            F21D0180    
                        02541        BSS 1499                                                         F2100190    
                        05474 4VARZ  BSS 1                                                            F2100200    
                        00734        ORG 476                                                          F2100210    
                        00734 FORTAG BSS 1                                                            F2IA2211    
                        00735        BSS 1499                                                         F210A230    
                        03670 FORTZ  BSS 1                                                            F2100240    
                                         PROGRAM C 0NSTANTS                                           F2100250    
                        05474        ORG 2876                                                         F2100260    
       05474  0 00000 0 00000 L(0)       0,0,0                                                        F2100270    
       05475  0 00001 0 00000 L(1)       0,0,1                                                        F2100280    
       05476  0 00002 0 00000 L(2)       0,0,2                                                        F2100290    
       05477  0 00003 0 00000 L(3)       0,0,3                                                        F2100300    
       05500  0 00004 0 00000 L(4)       0,0,4                                                        F2100310    
       05501  0 00005 0 00000 L(5)       0,0,5                                                        F2100320    
       05502  0 00006 0 00000 L(6)       0,0,6                                                        F2100330    
       05503  0 00011 0 00000 L(9)       0,0,9                                                        F2100340    
       05504  0 01130 0 00000 L(600)     0,0,600                                                      F2100350    
       05505  0 01750 0 00000 L(1000     0,0,1000                                                     F2100360    
       05506  0 02506 0 00000 L(1350     0,0,1350                                                     F2100370    
       05507  0 02734 0 00000 L(1500     0,0,1500                                                     F2100380    
