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

* members.prg
public uline
set talk off
set help off
set bell off
uline = chr(205)
do while len(uline) < 80
uline = uline + uline
enddo
uline = substr(uline,1,80)
choice = ' '
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
do while .not. choice $ '12345'
@ 20,1 say "enter choice (1-5) " get choice
read
enddo
if choice = '5'
cancel
endif
do menu&choice
choice = ' '
enddo (while choice # 5)
use
clear