*     BYMAIL.ADD     -ADD PROGRAM
STORE T TO MQ:AMORE
DO WHILE MQ:AMORE
* SET UP DEFAULT VALUES
 DO  BYMAIL.FAU
ERASE
STORE  ' ADD '  TO MQ:MODE
* GET DATA TO ADD
DO  BYMAIL.IO
@ 21,10 SAY  ' MAKE AS MANY ENTRIES AS YOU WANT '
@ 22,10 SAY  ' WHEN DONE ENTER BLANKS FOR  last '
READ
* ARE WE DONE?
IF Mlast  <>  '                     '
* PERFORM VALIDATION
 DO  BYMAIL.VAL
 APPEND BLANK
* PUT SCREEN DATA INTO FILE
 REPLACE  first  WITH  Mfirst
 REPLACE  last  WITH  Mlast
 REPLACE  company  WITH  Mcompany
 REPLACE  address  WITH  Maddress
 REPLACE  city  WITH  Mcity
 REPLACE  st  WITH  Mst
 REPLACE  zip  WITH  Mzip
 REPLACE  home  WITH  Mhome
 REPLACE  work  WITH  Mwork
 REPLACE  comments  WITH  Mcomments
ELSE
    STORE F TO MQ:AMORE
ENDIF
ENDDO
RELEASE MQ:MODE,MQ:AMORE
* RELEASE INPUT FIELDS
RELEASE Mfirst
RELEASE Mlast
RELEASE Mcompany
RELEASE Maddress
RELEASE Mcity
RELEASE Mst
RELEASE Mzip
RELEASE Mhome
RELEASE Mwork
RELEASE Mcomments