*     foobar.ED     -EDIT PROGRAM
STORE T TO MQ:EMORE
 STORE  ' EDIT '  TO MQ:MODE
* SET UP SCREEN VARIABLES
 STORE  NAME  TO  MNAME
DO WHILE MQ:EMORE
ERASE
* GET SCREEN INPUT
 DO  foobar.IO
 @ 21,10 SAY  ' ENTER ALL CHANGES '
 READ
* VALIDATE INPUT
 DO  foobar.VAL
 STORE  'N'  TO MQ:ECMD
 @ 21,10 SAY  ' ANY MORE CHANGES (Y/N)? '  GET MQ:ECMD
 READ
* PUT SCREEN ENTRIES INTO FILE
 REPLACE  NAME  WITH  MNAME
 IF  !(MQ:ECMD)<> 'Y'
  STORE F TO MQ:EMORE
 ENDIF
ENDDO
RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD
RELEASE MNAME