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

**************************************************** MEMBERS.PRG
*
* Main Menu for Membership System.
*

SET STATUS OFF
*SET DEFAULT TO B
SET TALK OFF
SET HELP OFF
SET BELL OFF

*------------------- Create underline variable, ULine.
ULine = REPLICATE("_",80)

*------------------- Display menu and get user's choice.
Choice = 0
DO WHILE Choice # 5
CLEAR
@ 2,1 SAY "Membership System Main Menu"
@ 2,60 SAY DTOC(DATE()) + " " + TIME()
@ 3,0 SAY ULine
?
?
TEXT
1. Add new members

2. Print membership information

3. Change/delete data

4. Check for duplicates


5. Exit Membership System
ENDTEXT
@ 24,1 SAY "Enter choice (1-5) " GET Choice;
PICTURE "9" RANGE 1,5
READ

*------------------- Branch to appropriate program.
DO CASE
CASE Choice = 1
DO AddNew
CASE Choice = 2
DO Reports

CASE Choice = 3
DO EditDel
CASE Choice = 4
DO DupCheck
ENDCASE

ENDDO (while Choice # 5)

USE
CLEAR
*QUIT