1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 018/018 ------           
                                                                                                      F6R04011    
                                         ************* FORTRAN II SECTION SIX ************************F6S00010    
                                         FORTRAN 2   RECORD 005  -  ON-LINE PRINT.                    F6S00011    
                                                                                                      F6S00012    
                                         MODIFICATIONS TO TPH1 TO PRINT WITH                          F6S00020    
                                         SENSE SWITCH CHANGES                                         F6S00030    
                        00161  ZERO  EQU 113                                                                      
                        00162  ONE   EQU 114                                                                      
                        00177  SW1   EQU 127                                                                      
                        00200  SW2   EQU 128                                                                      
                        00201  SW3   EQU 129                                                                      
                        00202  SW4   EQU 130                                                                      
                        00210        ORG 136                                                          F6S00040    
       00210  0 77200 0 00202        REW 2                                                            F6S00050    
       00211 -0 53400 1 00225        LXD FILES,1                                                      F6S00060    
       00212  0 50000 0 00162        CLA ONE                                                          F6S00070    
       00213  0 34000 0 00200        CAS SW2          TEST SENSE SWITCH TWO.                          F6S00080    
       00214  0 02000 0 00217        TRA LIB1         UP                                              F6S00090    
       00215  0 02000 0 00220        TRA ASKER        DOWN                                            F6S00100    
       00216  0 76000 0 00162        SWT 2                                                            F6S00110    
       00217 -2 00001 1 00234  LIB1  TNX CARDS,1,1    UP, ANY FILES TO DO. GO RETURN TO LOADER IF NOT F6S00120    
       00220  0 50000 0 00162  ASKER CLA ONE          SWITCH 2 DOWN (OR UP BUT FILES TO DO)           F6S00130    
       00221  0 34000 0 00201        CAS SW3          TEST SENSE SWITCH THREE.                        F6S00140    
       00222  0 02000 0 00225        TRA FILES        UP, GO TO RETURN TO LOADER                      F6S00150    
       00223  0 02000 0 00226        TRA LIB2         DOWN                                            F6S00160    
       00224  0 76000 0 00163        SWT 3                                                            F6S00170    
       00225  1 00003 0 00234  FILES TXI CARDS,,3     UP, GO RETURN TO LOADER                         F6S00180    
       00226 -0 63400 1 00231  LIB2  SXD COUNT,1      SWITCH THREE DOWN.                              F6S00190    
       00227  0 76600 0 00361        WPR              TO PRINT FILE OF TAPE TWO.                      F6S00200    
       00230  0 76000 0 00361        SPR 1                                                            F6S00210    
 TD    00231  1 00000 0 00237  COUNT TXI PRINT                                                        F6S00220    
       00232 -0 53400 1 00231  PARTS LXD COUNT,1                                                      F6S00230    
       00233  2 00001 1 00220        TIX ASKER,1,1                                                    F6S00240    
       00234  0 76200 0 00221  CARDS RTB 1            RETURN TO LOADER                                F6S00250    
       00235  0 02000 0 00004        TRA 4                                                            F6S00260    
       00236  0 00000 0 00005  ME8   HTR 5                                                            F6S00270    
       00237 -0 76000 0 00012  PRINT RTT                                                              F6S00280    
       00240  0 76100 0 00000        NOP                                                              F6S00290    
       00241 -0 53400 4 00236  ME9   LXD ME8,4                                                        F6S00300    
       00242 -0 53400 2 00246  I113  LXD I117,2       SET RECORD LENGTH EQUAL 20                      F6S00310    
       00243  0 76000 0 00141        SLN 1            TURN ON SENSE LIGHT 1                           F6S00320    
       00244  0 76200 0 00202        RTD 2            SELECT TAPE TWO IN BCD MODE                     F6S00330    
       00245  0 70000 2 00551  I116  CPY D65,2        AND COPY RECORD.                                F6S00340    
       00246 -3 00024 0 00261  I117  TXL I132,,20                                                     F6S00350    
       00247  0 02000 0 00232        TRA PARTS        END OF FILE.                                    F6S00360    
       00250  1 00001 2 00251  I121  TXI I122,2,1                                                     F6S00370    
       00251 -0 75400 2 00000  I122  PXD 0,2                                                          F6S00380    
       00252 -0 76000 0 00012        RTT              TEST TAPE CHECK.                                F6S00390    
       00253 -3 00000 0 00263        TXL I134,0,0     ERROR.                                          F6S00400    
       00254  0 40000 0 00260  I125  ADD I131         PRINT THIS RECORD.                              F6S00410    
       00255  0 62200 0 00257        STD I130                                                         F6S00420    
       00256  0 07400 4 00267        TSX I143,4                                                       F6S00430    
       00257  0 00000 0 00525  I130  HTR D41+1                                                        F6S00440    
       00260 -3 00551 0 00241  I131  TXL ME9,0,D65                                                    F6S00450    
       00261  2 00001 2 00245  I132  TIX I116,2,1     NEXT WORD BUT NO                                F6S00460    
       00262 -3 00000 0 00251        TXL I122,0,0     MORE THEN 20.                                   F6S00470    
       00263  2 00001 4 00265  I134  TIX I136,4,1     TEST FOR ANOTHER TRY.                           F6S00480    
       00264  0 07400 4 00004        TSX 4,4                                                          F6S00490    
       00265  0 76400 0 00202  I136  BST 2            TRY AGAIN.                                      F6S00500    
       00266 -3 00000 0 00242        TXL I113,0,0                                                     F6S00510    
