                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 010/010 ------           
                                         ************* FORTRAN II SECTION SIX ************************F6R00010    
                                         FORTRAN 2   RECORD 0003  -  CIT TO SAP CONVERSION.           F6R00011    
                                                                                                      F6R00012    
                                         CIT TO SAP CONVERSION                                        F6R00020    
                        00161  ZERO  EQU 113                                                          F6R00030    
                        00162  ONE   EQU 114                                                          F6R00040    
                        00177  SW1   EQU 127                                                          F6R00050    
                        00200  SW2   EQU 128                                                          F6R00060    
                        00210        ORG 136                                                          F6R00030    
       00210  0 50000 0 00162  START CLA ONE                                                          F6R00040    
       00211  0 34000 0 00200        CAS SW2                                                          F6R00050    
       00212  0 02000 0 00700        TRA ADD01         SW2 EQUAL ZERO, ASSUME SWITCH TWO UP,          F6R00060    
       00213  0 02000 0 00216        TRA LIB1          SW2 EQUAL ONE, ASSUME SWITCH TWO DOWN,         F6R00070    
       00214  0 76000 0 00162        SWT 2             EQUAL TWO. TEST SWITCH TWO                     F6R00080    
       00215  0 02000 0 00700        TRA ADD01                                                        F6R00090    
       00216  0 77200 0 00204  LIB1  REW 4             SW TWO DOWN.                                   F6R00100    
       00217  0 77000 0 00202        WEF 2                                                            F6R00110    
       00220 -0 53400 2 00221        LXD ADD02,2       SET READ ERROR COUNTER.                        F6R00120    
       00221  1 00005 0 00223  ADD02 TXI ADD03,0,5                                                    F6R00130    
       00222  0 76400 0 00204  ADD05 BST 4                                                            F6R00140    
       00223  0 76200 0 00224  ADD03 RTB 4             READ TAPE 4                                    F6R00150    
       00224  0 53400 1 00726        LXA DATA1,1                                                      F6R00160    
       00225  0 70000 1 01162  ADD04 CPY REC03,1       CPY INTO REC-1, REC-2,---                      F6R00170    
       00226  1 00001 1 00225        TXI ADD04,1,1                                                    F6R00180    
       00227  0 02000 0 00700        TRA ADD01         END OF FILE ON TAPE 4.                         F6R00190    
       00230  0 77100 0 00377        ARS 255                                                          F6R00200    
       00231  0 77100 0 00377        ARS 0255                                                         F6R00210    
       00232 -0 76000 0 00012        RTT                                                              F6R00220    
       00233  2 00001 2 00222        TIX ADD05,2,1     IF ERROR.                                      F6R00230    
       00234 -0 63400 1 00440        SXD ADD06,1       SAVE COUNT OF NO. OF WORDS READ IN.            F6R00240    
       00235  0 53400 1 00677        LXA ADD07,1       SET XR1=0                                      F6R00250    
       00236 -0 63400 1 00442  IN207 SXD ADD08,1       SAVE XR1.                                      F6R00260    
       00237 -0 50000 1 01163        CAL RECOR,1       STORE SL IN DATA2                              F6R00270    
       00240  0 60200 0 00775        SLW DATA2         STORE OP IN DATA3                              F6R00280    
       00241 -0 50000 1 01162        CAL REC03,1                                                      F6R00290    
       00242  0 60200 0 00776        SLW DATA3                                                        F6R00300    
       00243 -0 50000 1 01161        CAL REC02,1       STORE SA IN DATA4                              F6R00310    
       00244  0 60200 0 00777        SLW DATA4                                                        F6R00320    
       00245 -0 50000 1 01160        CAL REC01,1       STORE RA IN DATA5                              F6R00330    
       00246  0 60200 0 01000        SLW DATA5                                                        F6R00340    
       00247  0 56000 0 00710        LDQ DATA6                                                        F6R00350    
       00250 -0 60000 0 01007        STQ E1005         STORE BLANKS IN E1006,1007,1010,1005           F6R00360    
       00251 -0 60000 0 01010        STQ E1006                                                        F6R00370    
       00252 -0 60000 0 01011        STQ E1007                                                        F6R00380    
       00253 -0 60000 0 01012        STQ E1010                                                        F6R00390    
       00254 -0 50000 0 00775        CAL DATA2         TEST SYMBOLIC LOCATION.                        F6R00400    
       00255  0 10000 0 00305        TZE ADD09         IF ZERO, GO TO ADD09.                          F6R00410    
       00256  0 76500 0 00036        LRS 30            NOT ZERO. SEE IF SL(1) EQUAL ZERO.             F6R00420    
       00257  0 10000 0 00303        TZE ADD10         SL(1) EQUAL ZERO, GO TO ADD10.                 F6R00430    
       00260  0 40200 0 00722        SUB DATA7         SL(1) NOT EQUAL ZERO. SEE IF EQUAL 15.         F6R00440    
       00261 -0 10000 0 00264        TNZ ADD11         SL(1) NOT EQUAL 15, GO TO ADD11                F6R00450    
       00262 -0 50000 0 00710        CAL DATA6         SL(1) EQUAL 15. PUT BLANKS IN AC AND           F6R00460    
       00263  0 02000 0 00306        TRA ADD12         GO TO ADD12                                    F6R00470    
       00264  0 40000 0 00722  ADD11 ADD DATA7         RESOTRE SL(1) IN AC.                           F6R00480    
       00265  0 40200 0 00614        SUB LIB3                                                         F6R00490    
       00266  0 10000 0 00612        TZE LIB2          IF SL(1)=$, GO TO LIB2                         F6R00500    
       00267  0 40000 0 00614        ADD LIB3                                                         F6R00510    
