*     qctest.ED     -EDIT PROGRAM
STORE T TO MQ:EMORE
 STORE  ' EDIT '  TO MQ:MODE
* SET UP SCREEN VARIABLES
 STORE  Date  TO  MDate
 STORE  Chk  TO  MChk
 STORE  To:whom  TO  MTo:whom
 STORE  For  TO  MFor
 STORE  amount  TO  Mamount
 STORE  Remarks  TO  MRemarks
DO WHILE MQ:EMORE
ERASE
* GET SCREEN INPUT
 DO  qctest.IO
 @ 21,10 SAY  ' ENTER ALL CHANGES '
 READ
* VALIDATE INPUT
 DO  qctest.VAL
 STORE  'N'  TO MQ:ECMD
 @ 21,10 SAY  ' ANY MORE CHANGES (Y/N)? '  GET MQ:ECMD
 READ
* PUT SCREEN ENTRIES 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
 IF  !(MQ:ECMD)<> 'Y'
  STORE F TO MQ:EMORE
 ENDIF
ENDDO
RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD
RELEASE MDate
RELEASE MChk
RELEASE MTo:whom
RELEASE MFor
RELEASE Mamount
RELEASE MRemarks