*                      < LIST OF ROOM RECORD MENU >
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 /GR
@ 1,30 SAY "< SHAHAB HOSPITAL >"
SET COLO TO
SET COLO TO /*RG
@ 17,19 TO 19,50
SET COLO TO

*SET COLO TO *G
@ 2,12 TO 21,66 DOUBLE
SET COLO TO /*GB
@ 2,28 SAY " R-O-O-M    R-E-C-O-R-D-S "
SET COLO TO
SET COLO TO /G
@ 7,15 SAY "(1) .-----------ADDITION OF ROOM RECORDS------"
@ 8,15 SAY "(2) .-----------EDITING IN ROOM RECORD--------"
@ 9,15 SAY "(3) .-----------DISPLAY OF ROOM RECORDS-------"
@ 10,15 SAY "(4) .-----------PRINTING OF ROOM RECORDS------"
@ 12,15 SAY "(6) .------------------RETURN-----------------" 
@ 11,15 SAY "(5) .-----------LIST OF ROOM RECORD-----------"
CH = SPACE(1)
@ 18,20 SAY "ENTER YOUR CHOICE 1-6" GET CH
READ
SET COLO TO
DO CASE 
CASE CH = "1"
DO ROOMADD
CASE CH = "2"
DO ROOMEDIT
CASE CH = "3"
DO ROOMDIS
CASE CH = "4" 
DO ROOMPRNT
CASE CH = "5"
DO LIST1
CASE CH = "6"
CLEA
RETURN
ENDCASE
ENDDO