home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
optmen.zip
/
REPMENU.PRG
< prev
Wrap
Text File
|
1987-02-22
|
1KB
|
40 lines
*
*
* RepMenu - Mailing List Maintenance Menu (just a demo)
*
* by Anthony T. DeHart - GENIE (ATDEHART)
wlevel = wlevel + 1 && Increase menu level (how deep) by 1
clr = .T. && reset clear screen flag
do while .T. && Loop until done
if clr
Title = 'Report Generation'
do lscrtop with Title && Draw titles
clr = .F.
endif
***** Setup menu selections
choice[1] = 'User Defined Reports'
choice[2] = 'Organization List'
choice[3] = 'Generate Mailing Labels'
choice[4] = 'Total Catalog Requirements'
choice[5] = 'List by Last Name'
choice[6] = 'List by Zip Code'
choice[7] = 'List by Area'
choice[8] = 'Query List'
choice[9] = 'Return to Previous Menu'
do opt with choice, 8, wOldSel[wlevel], selection
wOldSel[wlevel] = selection
do case
case selection = 9
exit
endcase
enddo (end of RepMenu)
wlevel = wlevel - 1 && Decrease menu level and return to calling menu
selection = 0
return