*			< LIST OF ROOM DISPLAY >
CLEAR ALL
CLOSE ALL
SET ECHO OFF
SET TALK OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
CLEA
USE ROOM
INDEX ON R_NO TO ROOM
DO WHILE .T.
CLEA
@ 2,10 TO 20,60 DOUBL
SET COLO TO *G
@ 3,20 to 5,50
@ 4,25 say "DISPLAY OF ROOM RECORDS"
SET COLO TO
ROOM_NO1=0
@ 7,15 SAY "ENTER ROOM NO-------->" GET ROOM_NO1
READ
SEEK ROOM_NO1
IF ROOM_NO1= 0
RETURN
ENDIF
IF .NOT. FOUND()
SET COLO TO /*G  
WAIT"                 Please Check Your Room No...."
SET COLO TO
LOOP
ENDIF 
@ 8,15 SAY "TYPE       ---------->" GET TYPE
@ 9,15 SAY "LOCATION   ---------->" GET LOC
@ 10,15 SAY "STATUS     ---------->" GET STAT
@ 11,15 SAY "PATIENT'S CODE------->" GET P_CODE
@ 12,15 SAY "ROOM CHARGES -------->" GET R_AMM
CLEAR GETS
CH = SPACE(1)
@ 19,20 SAY "DO U WANT CONTINUE (Y/N)" GET CH
READ
IF CH = "Y" .oR. CH = "y"
LOOP
ELSE
RETURN
ENDIF
ENDDO