Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : BUSOPP.ZIP
Filename : MENU.PRG

*COPYRIGHT 1986, 1987 T. P. STARK
*MAIN MENU PROGRAM FOR BUSINESS OPPORTUNITIES
SET TALK OFF
SET DEVICE TO SCREEN
SET BELL OFF
DO WHILE .T.
CLEAR
?
?
?" BUSINESS OPPORTUNITIES MAIN MENU"
?
?" 1.....Input New Business Opportunities"
?" 2.....Edit Existing Business Opportunities"
?" 3.....Print Follow Up Listings"
?" 4.....Print Detailed Total Listing by OUR contact"
?" 5.....Print Detailed Total Listing by Representative"
?" 6"
?" 7"
?" 8"
?" 9.....Remove a Business Opportunity from Listing"
?" 0.....Quit Business Opportunities Programs"
?
ACCEPT " Enter your selection..." TO XX
DO CASE
CASE XX = "1"
DO AD
CASE XX = "2"
DO EDIT
CASE XX = "3"
DO FOLLOW
CASE XX = "4"
DO BUSREP
CASE XX = "5"
DO BUSREPP
CASE XX = "9"
DO BUSDEAD
CASE XX = "0"
CLEAR
QUIT
ENDCASE
ENDDO