*                        < LIST OF MAIN MENU > 
CLOSE ALL 
CLEAR ALL
SET TALK OFF
SET ECHO OFF
SET STAT OFF
SET SCOR OFF
DO WHILE .T.
CLEA
SET COLO TO /B
@ 3,13 TO 20,65 DOUB
@ 1,11 TO 22,67 DOUB  
SET COLO TO /R G
@ 1,30 SAY "<  SHAHAB HOSPITAL  >"
SET COLO TO
SET COLO TO /G *R
@ 17,19 TO 19,50
SET COLO TO
SET COLO TO *G
@ 2,12 TO 21,66 DOUBLE
@ 2,30 SAY " M-A-I-N   M-E-N-U"
SET COLO TO
SET COLO TO /G 
@ 7,15 SAY "(1) .---------ROOM RECORDS--------------------"
@ 8,15 SAY "(2) .---------REGISTRATION OF PATIENT---------"
@ 9,15 SAY "(3) .---------TREATMENT / TEST ENTRY----------"
@ 10,15 SAY "(4) .-----------------EXIT--------------------"
SET COLO TO
CH = " "
@ 18,20 SAY "ENTER YOUR CHOICE 1-4" GET CH 
READ
DO CASE 
CASE CH = "1"
DO MENU1
CASE CH = "2"
DO MENU2
CASE CH = "3"
DO TREAT
CASE CH = "4" 
CLEA
SET COLO TO *G/B
@ 10,25 SAY "THANK YOU FOR OPERATING"
SET COLO TO
@ 11,28 SAY "FROM SHAHAB ANWAR"
CLOSE ALL 
CLEAR ALL
EXIT
ENDCASE
ENDDO