WORK5     ASGN PRINTER 2                                                   
     COBOL     RUN  THRU OUTPUT                                                 
       IDENTIFICATION DIVISION.                                                 
       PROGRAM-ID. @TELEPHONE EXCHANGES@.                                       
       AUTHOR. RONALD MAK.                                                      
       INSTALLATION. RICHMOND SCHOOLS DATA PROCESSING CENTER.                   
       DATE-WRITTEN. AUGUST 3-5, 1970.                                          
       DATE-COMPILED. AUGUST 9, 1970.                                           
       REMARKS. A PERSON@S NAME AND HIS TELEPHONE NUMBER ARE READ FROM A        
           DATA CARD. IT IS DETERMINED WHETHER HIS NUMBER BELONGS TO THE        
           BECON, PROSPECT, OR A MISCELLANEOUS EXCHANGE. THIS INFORMA-          
           TION IS PRINTED AND ALSO PUNCHED, WITH THE BECON CARDS DROP-         
           PED INTO STACKER 0, PROSPECT CARDS INTO STACKER 4, AND THE           
           MISCELLANEOUS CARDS INTO STACKER 8. THE PROCESS IS REPEATED          
           UNTIL ALL THE DATA CARDS HAVE BEEN READ. AT THE END, THE NUM-        
           BER OF CARDS READ AND THE PERCENTAGE IN EACH EXCHANGE WILL BE        
           PRINTED. A LISTING OF AUTOCODER SYMBOLIC STATEMENTS WILL BE          
           INCLUDED.                                                            
       ENVIRONMENT DIVISION.                                                    
       CONFIGURATION SECTION.                                                   
       SOURCE-COMPUTER. IBM-1401.                                               
       OBJECT-COMPUTER. IBM-1401                                                
           MEMORY SIZE 16000 CHARACTERS                                         
           NO-MULTIPLY-DIVIDE                                                   
           NO-OVERLAP.                                                          
       SPECIAL-NAMES.                                                           
           1403-CT IS SKIPPING-TO-CHANNEL-1.                                    
           1403-P-CV ON STATUS IS AT-END-OF-PAGE.