*     foobar.ADD     -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
 DO  foobar.FAU
ERASE
STORE  ' ADD '  TO MQ:MODE
* GET DATA TO ADD
DO  foobar.IO
@ 21,10 SAY  ' MAKE AS MANY ENTRIES AS YOU WANT '
@ 22,10 SAY  ' WHEN DONE ENTER BLANKS FOR  NAME '
READ
* ARE WE DONE?
IF MNAME  <>  '                                                                         '
* PERFORM VALIDATION
 DO  foobar.VAL
 APPEND BLANK
* PUT SCREEN DATA INTO FILE
 REPLACE  NAME  WITH  MNAME
ELSE
    STORE F TO MQ:AMORE
ENDIF
ENDDO
RELEASE MQ:MODE,MQ:AMORE
* RELEASE INPUT FIELDS
RELEASE MNAME