PRG file mainmenu | prg file of foxpro | prg base menu | create menu pr...

PRG file base menu code:

**OM SAI RAM

SET DATE BRITISH

SET TALK OFF

SET CONFIRM OFF

SET SAFETY OFF

SET CENTURY ON 

SET CLOCK on

SET CLOCK TO 07,80

CLEAR ALL

CLOSE ALL 

CLEAR 

DO WHILE .t.

@ 05,01 To 22,100 doub 

@ 07,05 say "DATE : "+DMY(DATE())

@ 07,35 say "FRIEND SYSTEM" FONT "arial",14

@ 07,70 say "TIME : "

@ 09,02 TO 09,99

@ 10,35 Prompt "  \<Add Friend    " Message "To enter an new friend detail."

@ 13,35 Prompt "  \<Edit Friend   " Message "To modifiy/edit a friend detail."

@ 16,35 Prompt "  \<Delete Friend " Message "To remove/erase a friend detail."

@ 19,35 Prompt "  E\<xit          " Message "To exit from friend system.."

menu to choice

IF choice = 1

cancel

ENDIF 

IF choice = 2

cancel

ENDIF 

IF choice = 3

cancel

ENDIF 

IF choice = 4

cancel

ENDIF 

ENDDO