              PAYROLL PROGRAM                                                   
                                                                                
THIS PROGRAM IS A BRIEF IN-MEMORY PAYROLL SYSTEM. ESSENTIALLY                   
IT IS A PROGRAM WHICH COMPUTES FEDERAL AND FICA WITHHOLDING                     
AND STORES PAY RECORDS IN A FORM WHICH PERMITS EASY ACCESS                      
TO THOSE INTERESTED IN 941 OR W-2 FORMS. THERE IS,AT PRESENT,                   
NO PROVISION FOR STATE OR LOCAL WITHHOLDING BUT THIS CAN BE                     
HANDLED VIA THE 'OTHER DEDUCTIONS' CATEGORY. THE DIMENSIONING                   
LIMITS THE PAYROLL MASTER FILE TO 25 EMPLOYEES, THOUGH THIS                     
MAY BE INCREASED IF MUCH MAIN MEMORY IS AVAILABLE.                              
REMEMBER THAT THE MASTER MUST BE RECALLED FROM STORAGE BEFORE                   
OPERATIONS ARE PERFORMED AND RESTORED AFTER THE OPERATIONS.                     
                                                                                
DELETE LINES 1-58 TO RUN ON 16K SYSTEM                                          
                                                                                
PRESS ENTER TO BEGIN?                                                           
ARE DISK DRIVES ATTACHED(Y/N)? Y                                                
       MAIN MENU                                                                
                                                                                
 0.QUIT                                                                         
 1.MASTER FILE MAINTENANCE                                                      
 2.READ FILE IN FROM TAPE                                                       
 3.WRITE FILE OUT ONTO TAPE                                                     
 4.READ FILE IN FROM DISK                                                       
 5.WRITE FILE OUT ONTO DISK                                                     
 6.COMPUTE PAYROLL                                                              
 7.POST PAYROLL TO YTD TOTALS                                                   
 8.REPORT GENERATOR                                                             
 9.END OF PERIOD FILE MAINTENANCE                                               
ENTER YOUR CHOICE? 1                                                            
EMPLOYEE NUMBER TO EDIT MUST BE LESS THAN 26                                    
                                                                                
EMPLOYEE NUMBER TO EDIT(0 TO END)? 1                                            
EMPLOYEE #  1                                                                   
NAME 9999        SS NO. 0.000000                                                
                                                                                
               LAST PAY 0.000000    EXEMPT  0                                   
                                                                                
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
YTD  1        0.00        0.00        0.00      0.00      0.00                  
MTD  1        0.00        0.00        0.00      0.00      0.00                  
CURR  1        0.00        0.00        0.00      0.00      0.00                 
                                                                                
                                                                                
EMPLOYEE #  1                                                                   
9999EMPL. NAME    ? TOM CAT                                                     
               SS#           ? 123-45-6789                                      
               ADDR LINE1    ? 777 FUNNY WAY                                    
               ADDR LINE2    ? CITY STATE ZIP                                   
               LASTPAYDAY    ? 12/34/56                                         
         0.00PAY RATE      ? 12.34                                              
         0.00# EXEMPTION   ? 2                                                  
         0.00MAR=2,SING=1  ? 1                                                  
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
YTD  1        0.00        0.00        0.00      0.00                            
YTD GROSS,FED WITH,FICA,SPECIAL? 23456,789,174,96                               
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
MTD  1        0.00        0.00        0.00      0.00                            
MTD GROSS,FED WITH,FICA,SPECIAL? 456,89,174,6                                   
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
CURR  1        0.00        0.00        0.00      0.00                           
CURR GROSS,FED WITH,FICA,SPECIAL? 89.64,56,78,0.77                              
                                                                                
PRESS ENTER TO CONTINUE?                                                        
EMPLOYEE NUMBER TO EDIT MUST BE LESS THAN 26                                    
                                                                                
EMPLOYEE NUMBER TO EDIT(0 TO END)? 0                                            
       MAIN MENU                                                                
                                                                                
 0.QUIT                                                                         
 1.MASTER FILE MAINTENANCE                                                      
 2.READ FILE IN FROM TAPE                                                       
 3.WRITE FILE OUT ONTO TAPE                                                     
 4.READ FILE IN FROM DISK                                                       
 5.WRITE FILE OUT ONTO DISK                                                     
 6.COMPUTE PAYROLL                                                              
 7.POST PAYROLL TO YTD TOTALS                                                   
 8.REPORT GENERATOR                                                             
 9.END OF PERIOD FILE MAINTENANCE                                               
ENTER YOUR CHOICE? 5                                                            
                                                                                
PUT DATA DISK IN DISK DRIVE                                                     
PRESS ENTER TO CONTINUE?                                                        
PRESENT FILE NAME IS  NEW NAME? PAYROLL2.DAT                                    
       MAIN MENU                                                                
                                                                                
 0.QUIT                                                                         
 1.MASTER FILE MAINTENANCE                                                      
 2.READ FILE IN FROM TAPE                                                       
 3.WRITE FILE OUT ONTO TAPE                                                     
 4.READ FILE IN FROM DISK                                                       
 5.WRITE FILE OUT ONTO DISK                                                     
 6.COMPUTE PAYROLL                                                              
 7.POST PAYROLL TO YTD TOTALS                                                   
 8.REPORT GENERATOR                                                             
 9.END OF PERIOD FILE MAINTENANCE                                               
ENTER YOUR CHOICE? 4                                                            
PUT DATA DISK IN DISK DRIVE                                                     
PRESS ENTER TO CONTINUE?                                                        
ENTER NAME OF DATA FILE TO BE READ ? PAYROLL2.DAT                               
       MAIN MENU                                                                
                                                                                
 0.QUIT                                                                         
 1.MASTER FILE MAINTENANCE                                                      
 2.READ FILE IN FROM TAPE                                                       
 3.WRITE FILE OUT ONTO TAPE                                                     
 4.READ FILE IN FROM DISK                                                       
 5.WRITE FILE OUT ONTO DISK                                                     
 6.COMPUTE PAYROLL                                                              
 7.POST PAYROLL TO YTD TOTALS                                                   
 8.REPORT GENERATOR                                                             
 9.END OF PERIOD FILE MAINTENANCE                                               
ENTER YOUR CHOICE? 8                                                            
IS A LINE PRINTER TO BE USED(Y/N)? Y                                            
         REPORT MENU                                                            
                                                                                
1. PAYROLL REGISTER                                                             
2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS                           
3. END REPORT GENERATOR                                                         
                                                                                
ENTER APPROPRIATE CHOICE? 1                                                     
ENTER DATE FOR THIS PAYROLL REGISTER ? 56/78/91                                 
              PAYROLL REGISTER       56/78/91                                   
                                                                                
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
                                                                                
TOTALS        0.00        0.00        0.00      0.00      0.00                  
                                                                                
PRESS ENTER TO CONTINUE?                                                        
         REPORT MENU                                                            
                                                                                
1. PAYROLL REGISTER                                                             
2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS                           
3. END REPORT GENERATOR                                                         
                                                                                
ENTER APPROPRIATE CHOICE? 2                                                     
                   EMPLOYEE LIST                                                
EMPLOYEE #  1                                                                   
NAME TOM CAT  SS NO. 123-45-6789  RATE  12.34                                   
ADDR 777 FUNNY WAY   CITY STATE ZIP                                             
LAST PAY 12/34/56   EXEMPT  2     MAR(2)-SING(1) 1                              
                                                                                
     ID     GROSS      FED WITH.     FICA    SPECIAL     NET                    
YTD  1    23456.00      789.00      174.00     96.00  22397.00                  
MTD  1      456.00       89.00      174.00      6.00    187.00                  
CURR  1       89.64       56.00       78.00      0.77    -45.13                 
                                                                                
                                                                                
PRESS ENTER FOR COMPANY TOTALS?                                                 
                   COMPANY TOTALS                                               
            GROSS      FED WITH.     FICA    SPECIAL     NET                    
                                                                                
YTD    23456.00      789.00      174.00     96.00  22397.00                     
MTD      456.00       89.00      174.00      6.00    187.00                     
                                                                                
PRESS ENTER TO CONTINUE?                                                        
         REPORT MENU                                                            
                                                                                
1. PAYROLL REGISTER                                                             
2. COMPLETE EMPLOYEE LIST WITH COMPANY YTD,MTD TOTALS                           
3. END REPORT GENERATOR                                                         
                                                                                
ENTER APPROPRIATE CHOICE? 3                                                     
       MAIN MENU                                                                
                                                                                
 0.QUIT                                                                         
 1.MASTER FILE MAINTENANCE                                                      
 2.READ FILE IN FROM TAPE                                                       
 3.WRITE FILE OUT ONTO TAPE                                                     
 4.READ FILE IN FROM DISK                                                       
 5.WRITE FILE OUT ONTO DISK                                                     
 6.COMPUTE PAYROLL                                                              
 7.POST PAYROLL TO YTD TOTALS                                                   
 8.REPORT GENERATOR                                                             
 9.END OF PERIOD FILE MAINTENANCE                                               
ENTER YOUR CHOICE? 0                                                            
