                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 204/204 ------           
       01442  0 00000 0 00000 NEWTBL HTR 0                                                            F1P10260    
       01443  0 76000 0 00003 K4CLQ  SSP                                                              F1P10270    
       01444  0 34000 0 01600        CAS SBSCR                                                        F1P10280    
       01445  0 02000 0 01431        TRA K3CLQ                                                        F1P10290    
       01446  0 02000 0 01412        TRA M9CLQ                                                        F1P10300    
       01447  0 02000 0 01431        TRA K3CLQ                                                        F1P10310    
       01450 -0 53400 4 01442 CLQOUT LXD NEWTBL,4                                                     F1P10320    
       01451 -3 00000 4 01454        TXL OUT,4,0                                                      F1P10330    
       01452  0 50000 0 07743        CLA FRCON                                                        F1P10340    
       01453  0 60100 4 01615        STO MEEQ+1,4                                                     F1P10350    
       01454  0 07400 1 07656 OUT    TSX WAT00,1                   WRITE EQUIT ON TAPE.               F1P10360    
       01455  0 00000 0 00010            8                                                            F1P10370    
       01456  0 00000 0 01614            MEEQ                                                         F1P10380    
       01457  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE TABLE CLOSUB              F1P10390    
       01460  0 00000 0 00011            9                                                            F1P10400    
       01461  0 00000 0 01614 TOT9       9TA                       ORIGIN OF TABLE 9                  F1P10410    
                                         PROGRAM FOR REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB     F1P10420    
       01462  0 50000 0 01613 RDCTP  CLA 9TA-1                     GET NUMBER OF WORDS IN 9TA         F1P10430    
       01463  0 10000 0 01514        TZE REC07                     EXIT FOR EMPTY TABLE               F1P10440    
       01464 -0 73400 4 00000        PDX 0,4                       SET INDEX C TO NUM OF WORDS IN 9TA F1P10450    
       01465  0 77100 0 00022        ARS 18                        COMPUTE TABLE ORIGIN PLUS          F1P10460    
       01466  0 40000 0 01461        ADD TOT9                      NUMBER OF WORDS IN TABLE           F1P10470    
       01467  0 62100 0 01473        STA REC01                     AND INITIALIZE ADDRESS             F1P10480    
       01470 -0 53400 2 01477        LXD REC03,2                   SET INDEX B TO COMP 1 AND          F1P10490    
       01471 -0 63400 2 01500        SXD REC04,2                   SAVE COMP 1 IN DECR OF REC04       F1P10500    
       01472  0 53400 2 07730 REC00  LXA L(0),2                    SET INDEX B TO ZERO                F1P10510    
       01473  0 50000 4 00000 REC01  CLA 0,4                       GET 9TA WORD AND                   F1P10520    
       01474  0 34000 2 01614 REC02  CAS 9TA,2                     COMPARE WITH 9TA WORD              F1P10530    
       01475  0 02000 0 01477        TRA REC03                     9TA WORDS NOT EQUAL                F1P10540    
       01476  0 02000 0 01505        TRA REC06                     9TA WORDS ARE EQUAL                F1P10550    
       01477  1 77777 2 01500 REC03  TXI REC04,2,-1                TAKE NEXT 9TA WORD                 F1P10560    
       01500  3 00000 2 01474 REC04  TXH REC02,2,**                TEST FOR END OF NEW 9TA TABLE      F1P10570    
       01501 -0 53400 1 01500        LXD REC04,1                   ADD COMP 1 TO DECR OF              F1P10580    
       01502  1 77777 1 01503        TXI REC05,1,-1                REC04 TO ACCOUNT FOR               F1P10590    
       01503 -0 63400 1 01500 REC05  SXD REC04,1                   FOLLOWING ENTRY                    F1P10600    
       01504  0 60100 2 01614        STO 9TA,2                     ENTER UNEQUAL 9TA WORD IN TABLE    F1P10610    
       01505  2 00001 4 01472 REC06  TIX REC00,4,1                 TEST END OF OLD 9TA TABLE          F1P10620    
       01506 -0 53400 4 01500        LXD REC04,4                   GET TWOS COMP OF NUMBER            F1P10630    
       01507 -0 75400 4 00000        PXD 0,4                       OF WORDS ENTERED IN 9TA            F1P10640    
       01510  0 76000 0 00006        COM                           COMPUTE TRUE FIGURE AND            F1P10650    
       01511  0 40000 0 07731        ADD L(1)                      STORE IN 9TA-1                     F1P10660    
       01512 -0 73400 4 00000        PDX 0,4                                                          F1P10670    
       01513 -0 63400 4 01613        SXD 9TA-1,4                                                      F1P10680    
       01514  0 07400 1 07656 REC07  TSX WAT00,1                   WRITE MODIFIED                     F1P10690    
       01515  0 00000 0 00011        HTR 9                         TABLE CLOSUB                       F1P10700    
       01516  0 00000 0 01614        HTR 9TA                       ON TAPE                            F1P10710    
       01517  0 77000 0 00222        WEF 146                       END OF TAPE TABLES FILE            F1P10T20    
       01520  0 77200 0 00203        REW 3                                                            F1P10730    
       01521  0 50000 0 01573        CLA WAT99        CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3       F1P10740    
       01522  0 62100 0 07661        STA WAT09                                                        F1P10750    
       01523  0 62100 0 07701        STA WAT05+2                                                      F1P10760    
       01524  0 62100 0 07704        STA WAT07-1                                                      F1P10770    
       01525  0 62100 0 07721        STA WAT08                                                        F1P10780    
       01526  0 50000 0 07703        CLA WAT05+4      NOP                                             F1P10790    
