*     qctest.ADD     -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
 DO  qctest.FAU
ERASE
STORE  ' ADD '  TO MQ:MODE
* GET DATA TO ADD
DO  qctest.IO
@ 21,10 SAY  ' MAKE AS MANY ENTRIES AS YOU WANT '
@ 22,10 SAY  ' WHEN DONE ENTER BLANKS FOR  Date '
READ
* ARE WE DONE?
IF MDate  <>  '        '
* PERFORM VALIDATION
 DO  qctest.VAL
 APPEND BLANK
* PUT SCREEN DATA INTO FILE
 REPLACE  Date  WITH  MDate
 REPLACE  Chk  WITH  MChk
 REPLACE  To:whom  WITH  MTo:whom
 REPLACE  For  WITH  MFor
 REPLACE  amount  WITH  Mamount
 REPLACE  Remarks  WITH  MRemarks
ELSE
    STORE F TO MQ:AMORE
ENDIF
ENDDO
RELEASE MQ:MODE,MQ:AMORE
* RELEASE INPUT FIELDS
RELEASE MDate
RELEASE MChk
RELEASE MTo:whom
RELEASE MFor
RELEASE Mamount
RELEASE MRemarks