* PAYMAINT.IO
*
*Input/output screen for the company file maintenance.
@ 01,000 SAY  Company
@ 01,065 SAY Date()
@ 02,000 SAY '================================================================'
@ 03,000 SAY '           PAYROLL SYSTEM: COMPANY FILE MAINTENANCE'
@ 04,000 SAY '----------------------------------------------------------------'
@ 05,00 SAY 'Company ==>'
@ 05,13 GET Company
@  6,00 SAY 'Street ==>'
@  6,12 GET cstreet
@  7,00 SAY 'City ==>'
@  7, 9 GET ccity
@  7,22 SAY ' State ==>'
@  7,33 GET cstate
@  7,41 SAY ' Zip ==>'
@  7,50 GET czip
@  9,00 SAY 'Employer Identification Number ==>'
@  9,35 GET empid
@ 10,00 SAY 'Last Check Number ==>'
@ 10,22 GET Checkno
@ 11,00 SAY 'FICA Deductions: Employer ==>'
@ 11,30 GET Cofica PICTURE '9.999'
@ 12,00 SAY '   Employee ==>'
@ 12,16 GET Dedfica PICTURE '9.999'
@ 13,00 SAY '   Maximum Pay ==>'
@ 13,19 GET ficamax
@ 15,00 SAY 'Insurance ==>'
@ 15,20 GET ins PICTURE '9999.99'
@ 16,00 SAY '   PENSION ==>'
@ 16,15 GET pension PICTURE '9999.99'
@ 17,00 SAY '         --------------------'
RETURN

SET COLON OFF
SET BELL OFF
USE PAYCHEK INDEX PAYCHEK
SELECT SECONDARY
USE TRANSFIL INDEX TRANSFIL
SELECT PRIMARY
RESTORE FROM PAYMAINT.MEM
STORE T TO more
DO WHILE more
ERASE
@  1, 0 SAY company
@  1,64 SAY Date()
@  2, 0 SAY "================================================================="
@  3,20 SAY "PAYROLL SYSTEM MENU"
@  4,20 SAY "-------------------"
@  5,16 SAY "1.  Maintain System Profile"
@  6,16 SAY "2.  Maint