* PAYCHEK.ADD
*
* Adds new employees to payroll file Paychk.Dbf. Uses format file
*       Paychek.IO for screen display.  Uses Paychek.Fau to set up
*       default values.
STORE T TO Amore
DO WHILE Amore
* SET UP DEFAULT VALUES
  SET CONSOLE OFF
  DO PAYCHEK.FAU
  SET CONSOLE ON
ERASE
* GET DATA TO ADD
  DO PAYCHEK.OUT
@ 21,10 SAY 'ADD NEW EMPLOYEES TO THE PAYROLL'
@ 22,10 SAY 'WHEN DONE ENTER A BLANK FORM'
READ
* ARE WE DONE?
IF ssno <>'000-00-0000'
  APPEND BLANK
* PUT SCREEN DATA INTO FILE
  REPLACE last WITH Mlast
  REPLACE first WITH Mfirst
  REPLACE initial WITH Minitial
  REPLACE ssno WITH Mssno
  REPLACE vac WITH Mvac
  REPLACE term WITH Mterm
  REPLACE regpay WITH Mregpay
  REPLACE otpay WITH Motpay
  REPLACE sick WITH Msick
  REPLACE gross WITH Mgross
  REPLACE taxable WITH Mtaxable
  REPLACE whhold WITH Mwhhold
  REPLACE chkfica WITH Mchkfica
  REPLACE ins WITH Mins
  REPLACE pension WITH Mpension
  REPLACE net WITH Mnet
  ELSE
     STORE F TO Amore
  ENDIF
  ENDDO
  RELEASE Amore
* RELEASE INPUT FIELDS
  RELEASE Mlast
  RELEASE Mfirst
  RELEASE Minitial
  RELEASE Mssno
  RELEASE Mvac
  RELEASE Mterm
  RELEASE Mregpay, Motpay, Msick, Mgross, Mtacable, Mwhhold
  RELEASE Mchkfica, Mins, Mpension, Mnet

Msick
  REPLACE gross WITH Mgross
  REPLACE taxable WITH Mtaxable
  REPLACE whhold WITH Mwhhold
  REPLACE chkfica WITH Mchkfica
  REPLACE ins WITH Mins
  REPLACE pension WITH Mpension
  REPLACE net WITH Mnet
  ELSE
     STORE F TO Amore
  E