              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
