*WINMENU
CLEAR
DEACTIVATE WINDOW ALL
DO SET_FUN
DO WHILE .T.
@ 02,02 TO 15,109 DOUBLE
@ 03,02 TO 16,109 DOUBLE
SET COLOR TO G+
DD1="W E L C O M E M Y N E W P R O G R A M"
@ 13,35 SAY DD1
SET COLOR TO
SET COLOR TO R+
DD2="Designed by: I M R A N"
DD3="FRIENDS GROUP OF COMPANIES"
@ 11,48 SAY DD2
@ 12,42 SAY DD3
SET COLOR TO
SET COLOR TO 6+
@ 05,50 SAY "MAIN MENU"
CHOICE=0
SET COLOR TO
@ 07,03 PROMPT 'ADD NEW RECORD '
@ 07,23 PROMPT 'EDIT RECORD '
@ 07,40 PROMPT 'SEARCH RECORD '
@ 07,59 PROMPT 'PRINT RECORD '
@ 07,77 PROMPT 'REINDEX RECORD '
@ 07,96 PROMPT ' EXIT '
MENU TO CHOICE
DO CASE
CASE CHOICE =1
DEACTIVATE WINDOW ALL
DO WINADD
CASE CHOICE =2
DEACTIVATE WINDOW ALL
DO WINEDIT
CASE CHOICE =3
DEACTIVATE WINDOW ALL
DO WINSEARCH
CASE CHOICE =4
DEACTIVATE WINDOW ALL
DO WINRMENU
CASE CHOICE =5
DEACTIVATE WINDOW ALL
DO WINREINDEX
CASE CHOICE =6
CLEAR
RETURN
ENDCASE
ENDDO