* PAYMAINT.CMD
* Edits constant data in PAYMAINT.MEM
* Obtain existing data.
*
SET TALK OFF
SET CONSOLE ON
SET COLON OFF
SET BELL OFF
SET INTENSITY OFF
RESTORE FROM PAYMAINT.MEM
STORE T TO more
DO WHILE more
ERASE
* Get screen input.
  DO PAYMAINT.IO
  @ 21,10 SAY  ' ENTER ALL CHANGES '
  READ
  STORE 'N' TO command
  @ 21,10 SAY ' ANY MORE CHANGES (Y/N)? ' GET command
  READ
* Put new entries into file
  SAVE TO PAYMAINT.MEM
  IF  !(command)<> 'Y'
    STORE F TO more
  ENDIF
ENDDO
RETURN


*
* 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
  DO PAYCHEK.FAU
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 Mssno <>'000-00-0000'
  APPEND BLANK
* PUT SCREEN DATA INTO FILE
  REPLACE last WITH Mlast