                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 027/027 ------           
       00111  0 53400 2 00241        LXA L(7),2                    FORTRAN STATEMENT. PREPARE TO TEST F1BM0500    
       00112  0 50000 0 00234        CLA BUFFER                    FOR END(..,..,..,..,..) CARD       F1BM0510    
       00113  0 60100 0 00232        STO BUFFER-2                  POSITION ENDMARK                   F1BM0520    
       00114  0 56000 0 00217        LDQ BUFFER-13                                                    F1BM0530    
       00115  0 07400 4 00200        TSX SUB1,4                                                       F1BM0540    
       00116  0 40200 0 00247        SUB L(E)                      TEST FIRST CHAR FOR E              F1BM0550    
       00117 -0 10000 0 00033        TNZ ADD01                                                        F1BM0560    
       00120  0 07400 4 00200        TSX SUB1,4                                                       F1BM0570    
       00121  0 40200 0 00250        SUB L(N)                      TEST SECOND CHAR FOR N             F1BM0580    
       00122 -0 10000 0 00033        TNZ ADD01                                                        F1BM0590    
       00123  0 07400 4 00200        TSX SUB1,4                                                       F1BM0600    
       00124  0 40200 0 00251        SUB L(D)                      TEST THIRD CHAR FOR D              F1BM0610    
       00125 -0 10000 0 00033        TNZ ADD01                                                        F1BM0620    
       00126  0 07400 4 00200        TSX SUB1,4                                                       F1BM0630    
       00127  0 40200 0 00252        SUB L(()                      TEST FOURTH CHAR FOR (             F1BM0640    
       00130 -0 10000 0 00033        TNZ ADD01                                                        F1BM0650    
       00131  0 07400 4 00200        TSX SUB1,4                                                       F1BM0660    
       00132  0 07400 4 00200        TSX SUB1,4                                                       F1BM0670    
       00133  0 40200 0 00253        SUB COMMA                     TEST SIXTH CHAR FOR ,              F1BM0680    
       00134 -0 10000 0 00033        TNZ ADD01                                                        F1BM0690    
       00135  0 07400 4 00200        TSX SUB1,4                                                       F1BM0700    
       00136  0 07400 4 00200        TSX SUB1,4                                                       F1BM0710    
       00137  0 40200 0 00253        SUB COMMA                     TEST EIGHTH CHAR FOR ,             F1BM0720    
       00140 -0 10000 0 00033        TNZ ADD01                                                        F1BM0730    
       00141  0 07400 4 00200        TSX SUB1,4                                                       F1BM0740    
       00142  0 07400 4 00200        TSX SUB1,4                                                       F1BM0750    
       00143  0 40200 0 00253        SUB COMMA                     TEST TENTH CHAR FOR ,              F1BM0760    
       00144 -0 10000 0 00033        TNZ ADD01                                                        F1BM0770    
       00145  0 77000 0 00202 ADD93  WEF 2                         THIS IS END CARD, TERMINATE FILE   F1BM0780    
       00146  0 76200 0 00221        RTB 1               SKIP OVER MACHINE ERROR RECORD.              F1BM0790    
       00147  0 02000 0 00004        TRA 4                         GO TO 1-CS FOR SECTION ONE         F1BM0800    
       00150  0 76400 0 00205 ADD80  BST 5                         TAPE ERROR                         F1BM0810    
       00151  2 00001 4 00041        TIX ADD015,4,1                                                   F1BM0820    
       00152  0 07400 4 00332        TSX PRINT,4                                                      F1BM0830    
       00153  0 00301 0 00254            TP5ERR,0,TP5END                                              F1BM0840    
       00154  0 76000 0 00143 SPROER SLN 3               SL3-ON IF TAPE CANNOT BE READ OR END CARD    F1BM0850    
       00155  0 76400 0 00201 BSTRTN BST 1               TROUBLE.                                     F1BM0860    
       00156  0 76400 0 00201        BST 1               BACKSPACE SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870    
       00157  0 76400 0 00201        BST 1               RECORD.                                      F1BM0880    
       00160  0 02000 0 00004        TRA 4               CALL IN 1 - CS.                              F1BM0890    
       00161 -0 76000 0 00141 ADD90  SLT 1                         IS THERE A PROBLEM TO BE COMPILED  F1BM0900    
       00162  0 02000 0 00167        TRA ADD91                     FINISHED, REWIND ALL TYPES         F1BM0910    
       00163  0 07400 4 00332        TSX PRINT,4                                                      F1BM0920    
       00164  0 00315 0 00301            ENDCD,0,CDTEND                                               F1BM0930    
       00165  0 77200 0 00205        REW 5                                                            F1BM0940    
       00166  0 02000 0 00154        TRA SPROER                                                       F1BM0950    
       00167  0 76400 0 00201 ADD91  BST 1                                                            F1BM0970    
       00170  0 77200 0 00206        REW 6                                                            F1BM0974    
       00171  0 77200 0 00205        REW 5                                                            F1BM0976    
       00172  0 07400 4 00332        TSX PRINT,C                                                      F1BM0980    
       00173  0 00332 0 00315            REMA,0,ENDA                                                  F1BM0990    
       00174  0 07400 4 00332        TSX PRINT,C                                                      F1BM1000    
       00175  0 00216 0 00215        HTR RESTR,0,RESTR+1                                              F1BM1010    
       00176  0 16100 0 00177        TQO *+1                                                          F1BM1020    
