* PAYROLL.CMD
*
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.  Maintain Employee Records"
@  7,16 SAY "3.  Process Payroll"
@  8,16 SAY "4.  Print W-2 Forms"
@  9,16 SAY "5.  Print Reports"
@ 10,16 SAY "6.  Index Database"
@ 11,16 SAY "-----------------------------"
@ 12,16 SAY "R.  Return to Main Menu"
@ 13,16 SAY "X.  Return to the Operating System"
@ 15,16 SAY "Please Enter Your Selection ==>"
READ
SET CONSOLE OFF
WAIT TO choice
SET CONSOLE ON
DO CASE
   CASE choice='1'
   DO PAYMAINT
   CASE choice='2'
   DO PAYCHEK.ADD
   CASE choice='3'
   DO PAYCHEK.GET
   CASE choice='4'
   DO WTWO.CMD
   CASE choice='5'
   DO PAYCHEK.RPT
   CASE choice='6'
   DO PAYCHEK.GO
   CASE choice='R'
   RETURN
   CASE choice='X'
   QUIT
ENDCASE
ENDDO
RELEASE more, choice
SAVE TO Paymaint.Mem






ERASE
* GET DATA TO ADD
  DO PAYCHEK.IO
@ 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