                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 285/289 ------           
       07772 +000010000000           OCT 10000000      DEC. IS 8, ADD. IS 0RG. TAU 1                  F2303150    
 A     07773  0 00000 0 00000 SUBES1 HTR               E.S.             -        - .                  F2303160    
 A     07774  0 00000 0 00000 SUBES2 HTR               E.S.                                           F2303170    
                        06721        ORG 3537                                                         F2303180    
                                            MASTER RECORD CARD = FN039                                F2303185    
       06721 -0 53400 1 00733 BL3A   LXD FORTAG-1,1    IF FORTAG                                      F2303190    
       06722  3 02733 1 07616        TXH NORMRT,1,1499 IS EMPTY, NORH RET M0NIT0R. G0 SPACE TP 1.     F2303205    
       06723 -0 76000 0 00144        MSE LIGHT         IF FORVAL IS EMPTY,                            F2303210    
       06724  0 02000 0 06726        TRA INIT                                                         F2303220    
       06725  0 02000 0 07616        TRA NORMRT         NORM RET H0NIT0R. GO TO SPACE TAPE 1          F2303235    
       06726 -0 53400 1 03670 INIT   LXD FORVAL-1,1    INITIALIZE                                     F2303240    
       06727 -0 63400 1 07034        SXD TAB60,1       .                                              F2303250    
       06730 -0 53400 1 00733        LXD FORTAG-1,1    .                                              F2303260    
       06731 -0 63400 1 07015        SXD VAL80,1       ,                                              F2303270    
       06732 -0 63400 1 07020        SXD VAL95,1       .                                              F2303280    
       06733 -0 53400 1 07570        LXD DOZ,1         .                                              F2303290    
       06734 -0 63400 1 07101        SXD IND20,1       .                                              F2303300    
       06735 -0 53400 1 06674 VALTAG LXD L(1500,1      THIS PROGRAM                                   F2303310    
       06736  0 50000 1 03670 VAL10  CLA FORTZ,1       HAKES A                                        F2303320    
       06737 -0 12000 0 07017        TMI VAL90         PASS 0VER                                      F2303330    
       06740 -0 32000 0 06677        ANA BITONE        FORTAG, AND                                    F2303340    
       06741 -0 10000 0 07017        TNZ VAL90         FOR EACH N0N-NEGATIVE (N0T TRREATED IN BL 2)   F2303350    
       06742  0 50000 1 03670        CLA FORTZ,1       TAG WITH BITONE EQUAL                          F2303360    
       06743 -0 32000 0 06703        ANA ADDMSK        T0 ZER0, (N0T YET TREATED HERE)                F2303370    
       06744  0 60100 0 06626        STO TAG           08TAINS THE C0RRESP0ND1NG SUBSCRIPT            F2303380    
       06745 -0 63400 1 07000        SXD SAVEA,1       COMPINATION FR0M THE                           F2303390    
       06746  0 07400 4 07701        TSX SUBCOM,4      TAU TABLE DRUM.                                F2303400    
       06747 -0 53400 4 06670        LXD L(3),4                                                       F2303410    
       06750 -0 75400 0 00000        PXD 0,0                                                          F2303420    
       06751  0 60100 4 06635 VAL20  STO RSYM1+3,4     INITIALIZE WITH ZER0ES.                        F2303430    
       06752  2 00001 4 06751        TIX VAL20,4,1                                                    F2303440    
       06753 -0 53400 1 06671        LXD L(6),1        THIS ROUTINE STORES                            F2303450    
       06754 -0 53400 2 06670        LXD L(3),2        THE SYMB0LS AS FOLLOWS                         F2303460    
       06755  0 50000 1 06644 VAL30  CLA S1+6,1        LEFTM0ST IN RSYM1,                             F2303470    
       06756  0 10000 0 06761        TZE VAL40         NEXT SYMB0L IN RSYM2,                          F2303480    
       06757  0 60100 2 06635        STO RSYM1+3,2     RIGHTH0ST IN RSYM3.                            F2303490    
       06760  1 77777 2 06761        TXI VAL40,2,-1    IF THERE ARE N0T THREE                         F2303500    
       06761  2 00002 1 06755 VAL40  TIX VAL30,1,2     SYM80LS IN THE SC, THEN                        F2303510    
       06762 -0 75400 2 00000        PXD 0,2           THE RSYM L0CATIONS ARE                         F2303520    
       06763 -0 76000 0 00003        SSM               SET T0 ZER0.                                   F2303530    
       06764  0 40000 0 06670        ADD L(3)          DELTA IS THE SYM80L COUNT.                     F2303540    
       06765  0 10000 0 07001        TZE VAL60         SUBSCRIPT IS C0NSTANT, N0 SYMB0LS.             F2303550    
       06766  0 60100 0 06631        STO DELTA                                                        F2303560    
       06767 -0 53400 4 06665        LXD L(0),4        L0CATION TAGIND IS SET                         F2303570    
       06770  0 40200 0 06666        SUB L(1)          T0 ZER0, UNLESS THE SC                         F2303580    
       06771 -0 10000 0 06777        TNZ VAL50         HAS THE FOLLOWING                              F2303590    
       06772  0 50000 0 06636        CLA S1            CHARACTERISTICS                                F2303600    
       06773  0 10000 0 06777        TZE VAL50         ONE SYM80L                                     F2303610    
       06774 -0 53400 1 06635        LXD C1,1          )N LEFTM0ST P0SITION                           F2303620    
       06775  3 00001 1 06777        TXH VAL50,1,1     WITH C0EFFICIENT EQUAL                         F2303630    
       06776 -0 53400 4 06666        LXD L(1),4        T0 ONE                                         F2303640    
       06777 -0 63400 4 06630 VAL50  SXD TAGIND,4                                                     F2303650    
 D     07000 -3 00000 0 07022 SAVEA  TXL TABSER,0      GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX)  F2303660    
       07001 -0 53400 1 07000 VAL60  LXD SAVEA,1       RETURN FR0H PROCESSING                         F2303670    
