home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / optmen.zip / REPMENU.PRG < prev   
Text File  |  1987-02-22  |  1KB  |  40 lines

  1. *
  2. *
  3. * RepMenu - Mailing List Maintenance Menu (just a demo)
  4. *
  5. * by Anthony T. DeHart - GENIE (ATDEHART)
  6.  
  7. wlevel = wlevel + 1  && Increase menu level (how deep) by 1
  8. clr = .T. && reset clear screen flag
  9.  
  10. do while .T. && Loop until done
  11.  
  12.    if clr
  13.       Title = 'Report Generation'
  14.       do lscrtop with Title && Draw titles
  15.       clr = .F.
  16.    endif
  17.  
  18. ***** Setup menu selections
  19.  
  20.    choice[1] = 'User Defined Reports'
  21.    choice[2] = 'Organization List'
  22.    choice[3] = 'Generate Mailing Labels'
  23.    choice[4] = 'Total Catalog Requirements'
  24.    choice[5] = 'List by Last Name'
  25.    choice[6] = 'List by Zip Code'
  26.    choice[7] = 'List by Area'
  27.    choice[8] = 'Query List'
  28.    choice[9] = 'Return to Previous Menu'
  29.    do opt with choice, 8, wOldSel[wlevel], selection
  30.       wOldSel[wlevel] = selection
  31.       do case
  32.      case selection = 9
  33.           exit
  34.       endcase
  35. enddo (end of RepMenu)
  36.  
  37. wlevel = wlevel - 1 && Decrease menu level and return to calling menu
  38. selection = 0
  39. return
  40.