home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / optmen.zip / MAILMENU.PRG < prev    next >
Text File  |  1987-02-22  |  671b  |  30 lines
  1. *
  2. *
  3. * MailMenu - Mailing List Maintenance Menu
  4. *
  5. * by Anthony T. DeHart - GENIE (ATDEHART)
  6.  
  7. wlevel = wlevel + 1
  8. clr = .T.
  9. do while .T.
  10.    if clr
  11.       Title = 'Mailing List Maintenance'
  12.       do lscrtop with Title
  13.       clr = .F.
  14.    endif
  15.    choice[1] = 'Add or Edit Name'
  16.    choice[2] = 'Delete Name'
  17.    choice[3] = 'Correct Zip Code Listing'
  18.    choice[4] = 'Total Catalog Requirements'
  19.    choice[9] = 'Return to Previous Menu'
  20.    do opt with choice, 4, wOldSel[wlevel], selection
  21.       wOldSel[wlevel] = selection
  22.       do case
  23.      case selection = 9
  24.           exit
  25.       endcase
  26. enddo (end of MailMenu)
  27. wlevel = wlevel - 1
  28. selection = 0
  29. return
  30.