* PAYCHEK.FMT
* Print format for paychecks
@  2, 0 SAY Company
@  2,40 SAY Date()
@  2,56 SAY Checkno
@  3, 0 SAY TRIM(last)+' '+TRIM(first)+' '+initial
@  3,56 SAY ssno
@  5, 0 SAY 'PAY'
@  5,40 SAY 'DEDUCTIONS'
@  6, 0 SAY 'Regular'
@  6,16 SAY regpay
@  6,40 SAY 'Fed Inc Tax'
@  6,56 SAY whhold
@  7, 0 SAY 'Overtime'
@  7,16 SAY otpay
@  7,40 SAY 'FICA'
@  7,56 SAY chkfica
@  8, 0 SAY 'Sick Pay'
@  8,16 SAY sick
@  8,40 SAY 'Insurance'
@  8,56 SAY ins
@  9, 2 SAY 'TOTAL'
@  9,16 SAY gross
@  9,40 SAY 'Pension'
@  9,56 SAY pension
@ 16, 0 SAY 'NET PAY'
@ 16, 9 SAY net
@ 21, 0 SAY Company
@ 21,40 SAY 'CAPE COD FEDERAL CREDIT UNION'
@ 22,40 SAY 'Worcester Court'
@ 23,40 SAY 'E Falmouth, MA 02536'
@ 25, 0 SAY checkno
@ 25,40 SAY Date()
@ 28, 8 SAY TRIM(last)+' '+TRIM(first)+' '+initial
@ 29,58 SAY net
@ 42,79 SAY ' '
@ 1,0 SAY ' '
?
RETURN

IF &Gselect
  DO PAYCHEK.OUT
ENDIF
STORE ' ' TO Gcmd
@ 21,10 SAY ' ENTER N FOR NEXT, P FOR PREVIOUS '
@ 22,10 SAY '     S FOR