* 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


*
SET TALK OFF
SET FORMAT TO SCREEN
SET CONSOLE ON
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