                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 242/246 ------           
       04016  0 60100 1 05101        STO LADDS+5,1                                                                
       04017  2 00001 1 04014        TIX BEG10,1,1                                                    F2201040    
       04020  0 50000 0 03751        CLA L(0) , ,                                                     F2201050    
       04021  0 60100 0 03670        STO DOREC                                                        F2201060    
       04022 -0 76000 0 00012        RTT                           TURN                               F2201070    
       04023  0 76100 0 00000        NOP                           LIALT OFF                          F2201080    
       04024 -0 53400 6 03751        LXD L(0),6                    TEST.FOR.EMPTY                     F2201090    
       04025 -0 76000 0 00144        MSE 100                       FORVAL-= ,H,,,                     F2201110    
       04026 -0 53400 4 03752        LXD L(1),4                    OFF,-N0T EMPTY                     F2201120    
       04027 -0 63400 4 04112        SXD END80,4                   0N,.EMPTY==.,,                     F2201130    
       04030 -0 76000 0 00143        MSE 99                        TEST-FOR,                          F2201140    
       04031 -0 53400 2 03752        LXD L(1),2                    EMPTY.DOTAG                        F2201150    
       04032 -0 63400 2 04113        SXD END85,2                   SAVE0TABLEMINF0 1N END=PROG.       F2201160    
       04033 -3 00000 2 04043        TXL END,2,0                   IFIDOTAG,EMPTY, GO TO END.         F2201170    
       04034 -0 53400 1 00733        LXD FORTAG-1,1                IFIDOTAG,EMPTY, GO TO END.         F2201170    
       04035 -0 63400 1 05426        SXD TINF30,1                  FORTIGLIZE                         F2201180    
       04036 -0 63400 1 04407        SXD TAG20,1                   TEST==                             F2201190    
       04037 -0 63400 1 04516        SXD TAG90,1                   INSTRUCTIONS                       F2201200    
       04040  0 50000 0 03777  PAT01 CLA FRSTAG        INITIALIZE NEW-TAG-NAME=BASE                   F2201220    
       04041  0 60100 0 03673        STO NEWTAG                -- =-= )-- =-=, ==*,.                  F2201230    
       04042  0 02000 0 04116        TRA NEST                                                         F2201240    
       04043  0 77000 0 00224 END    WEF ATAPE                     WEF 0N TAGTAG TAPE                 F22012M0    
       04044  0 76600 0 00303        WRS 195                                                                      
       04045  0 46000 0 05100        LDA LADDS+4                   MAKE END OF DRUMTAG TABLE ENTRY.   F2201260    
       04046  0 70000 0 03771        CPY 35ONES                                                       F2201270    
       04047  0 70000 0 03771        CPY 35ONES                                                       F2201280    
       04050 -0 53400 1 03756        LXD L(5),1                                                       F2201290    
       04051  0 76600 0 00333 END10  WRS 219                       DELAY.                             F2201300    
       04052  0 76600 0 00303        WRS ADRUM                     WRITE.                             F2201310    
       04053  0 50000 1 05106        CLA LADDIN+5,1                ALL)-                              F2201330    
       04054  0 40200 0 03766        SUB L(2)A                     DRUM                               F2201340    
       04055  0 62100 0 04114        STA END90                     TABLE                              F2201350    
       04056  0 50000 1 05106        CLA LADDIN+5,1                WORD-                              F2201360    
       04057 -0 32000 0 03773        ANA ADDMSK                    COUNTS                             F2201370    
       04060  0 40200 1 05101        SUB LADDS+5,1     IN          ----.=                             F2201380    
       04061  0 76000 0 00003        SSP               FIRST                                          F2201390    
       04062  0 60100 0 04115        STO END95         TWO .                                          F2201400    
       04063  0 46000 0 04114        LDA END90         WORDS                                          F2201410    
       04064  0 70000 0 04115        CPY END95         PRECEDING                                      F2201420    
       04065  0 70000 0 04115        CPY END95         EACH TABLE . (TSXC0M, TRAST0, NA=.EY,          F2201430    
       04066  2 00001 1 04051        TIX END10,1,1     CHATAG,-DRMTAGI-----. .=.=,=, =*--,(,          F2201440    
       04067  0 76000 0 00140        PSE 96                        RESTORE SENSE LIGHTS               F2201450    
       04070 -0 53400 1 04112        LXD END80,1                   SL-100-0N,-F2*VAL=EMPTY            F2201450    
       04071  3 00000 1 04073        TXH END20,1,0                 SL 99-0N,,DOTAG=EMPTY.,            F2201470    
       04072  0 76000 0 00144        PSE 100                       -  .. --, ==)-= ,=,),.             F2201480    
       04073 -0 53400 1 04113 END20  LXD END85,1                                                      F2201490    
       04074  3 00000 1 04076        TXH END30,1,0                                                    F2201500    
       04075  0 76000 0 00143        PSE 99                                                           F2201510    
       04076  0 77000 0 00222 END30  WEF TAPE2         WRITE EOF AFTER DONEST RECORDS                 F2201520    
       04077  0 76600 0 00222        WRS TAPE2                     )-. --=-=) =.-===S.                F2201530    
       04100  0 70000 0 03670        CPY DOREC         MAKE AN EXTRA FILE WITH                        F2201540    
       04101  0 70000 0 03670        CPY DOREC         DONEST RECORD COUNT7.)-                        F2201550    
       04102  0 77000 0 00222        WEF TAPE2                         -..-                           F2201560    
       04103  0 50000 0 05075        CLA LADDS+1       TRAST0 CARRY0VER T0 BLOCK 3                    F2201570    
