home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
prg_hlp.zip
/
MENU.PRG
< prev
next >
Wrap
Text File
|
1987-04-05
|
2KB
|
63 lines
************************************************************************
* *
* MENU.PRG *
* *
************************************************************************
do while .T.
clear
do start
close databases
clear
do while .T.
help_code = "00"
A = "MENU"
set deleted on
DO banner WITH "MAIN MENU"
heading1 = "1. MENU ONE "
heading2 = "2. MENU TWO "
heading3 = "3. MENU THREE "
heading4 = "4. MENU FOUR "
heading5 = "5. MENU FIVE "
heading6 = "6. MENU SIX "
heading7 = "7. MENU SEVEN "
heading8 = "8. MENU EIGHT "
heading9 = "9. MENU NINE "
heading10 = "0. QUIT... "
num_items = 10
X = 6
Y = 28
W = LEN(HEADING1)
DO F1 WITH "HELP"
@ 22,1 SAY bar
@ 0,0 to 24,79 double
@ 23,2 SAY "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
DO lightbar WITH num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9,heading10
choice = STR(selection,1)
DO CASE
CASE choice = "1"
DO MENU1
CASE choice = "2"
DO MENU2
CASE choice = "3"
DO INACTIVE
CASE choice = "4"
DO INACTIVE
CASE choice = "5"
DO INACTIVE
CASE choice = "6"
DO INACTIVE
CASE choice = "7"
DO INACTIVE
CASE choice = "8"
DO INACTIVE
CASE choice = "9"
DO INACTIVE
CASE choice = "0"
CLEAR
CANC
ENDCASE
CLOSE DATABASES
ENDDO
ENDDO
************************** END DENTAL.PRG *******************