* PAYCHEK.OUT
* Format file for output of payroll screen
*
@  1, 0 SAY '==========================================================='
@  2,28 SAY 'PAYROLL FILE MAINTENANCE'
@  3,28 SAY '------------------------'
@  4, 0 SAY 'LAST NAME'
@  4,11 GET last
@  4,24 SAY 'FIRST'
@  4,31 GET first
@  4,42 SAY 'INITAIL'
@  4,51 GET initial
@  5, 0 SAY 'SOC SEC NUMBER'
@  5,16 GET ssno
@  6, 8 SAY 'ON VACATION'
@  6,21 GET vac
@  6,40 SAY 'TERMINATED'
@  6,52 GET term
@  8, 0 SAY 'PAY:'
@  9, 4 SAY 'REGULAR'
@  9,13 GET regpay
@  9,23 SAY 'OVERTIME'
@  9,33 GET otpay
@  9,44 SAY 'SICK PAY'
@  9,54 GET sick
@ 10, 4 SAY 'GROSS'
STORE regpay+otpay+sick to gross
@ 10,11 SAY gross
@ 10,40 SAY 'TAXABLE'
STORE regpay+otpay to taxable
@ 10,49 SAY taxable
@ 12, 0 SAY 'DEDUCTIONS'
@ 13, 4 SAY 'WITHHELD'
@ 13,14 SAY whhold
@ 13,40 SAY 'FICA'
STORE taxable*dedfica to chkfica
@ 13,46 SAY chkfica
@ 14, 4 SAY 'INSURANCE'
@ 14,15 SAY ins
@ 14,40 SAY 'PENSION'
@ 14,49 SAY pension
@ 15,24 SAY 'NET PAY'
STORE whhold+chkfica+ins+pension to deduct
STORE gross-deduct to net
@ 15,33 SAY net
ASE Minitial
  RELEASE Mssno
  RELEASE Mvac
  RELEASE Mterm
  RELEASE Mregpay, Motpay, Msick, Mgross, Mtacable, Mwhhold
  RELEASE Mchkfica, Mins, Mpension, Mnet

E 0.00 TO Mgross
STORE 0.00 TO Mtaxable
STORE 0.00 TO Mwhhold
STORE 0.00 TO Mchkfica
STORE 0.00 TO Mins
STORE 0.00 TO Mpension
STORE 0.00 TO Mnet

WITH Mnet
  ELSE
     STORE F TO Amore
  ENDIF
  ENDDO
  RELEASE Amore
* RELEASE