*                       < LIST OF ROOM EDIT > 
CLOSE ALL
CLEAR 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 "EDIT IN ROOM RECORD"
SET COLO TO
@ 19,25 SAY " PRESS ENTER TO EXIT " 
ROOM_NO1=0
LOC1=SPACE(8)
STAT1=SPACE(1)
TYPE1=SPACE(8)
P_CODE1=SPACE(6)
R_AMM1=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 *R
WAIT " RECORD IN NOT FOUND PLEASE CHECK...."
SET COLO TO
LOOP
ELSE
@ 8,15 say "TYPE           ------->" GET TYPE PICT "@!" 
@ 9,15 SAY "LOCATION       ------->" GET LOC PICT "@!"
@ 10,15 SAY "STATUS         ------->" GET STAT PICT "@!" 
@ 11,15 SAY "PATIENT'S CODE ------->" GET P_CODE
@ 12,15 SAY "ROOM CHARGES   ------->" GET R_AMM
CLEAR GETS
CHOICE=SPACE(1)
@ 19,20 SAY "DO YOU WANT TO EDIT Y/N" GET CHOICE
READ
IF CHOICE = "Y" .OR. CHOICE = "y" 
@ 8,15 SAY "TYPE           ------->" GET TYPE1 PICT "@!" 
@ 9,15 SAY "LOCATION       ------->" GET LOC1 PICT "@!" 
@ 10,15 SAY "STATUS         ------->" GET STAT1 PICT "@!"  
@ 11,15 SAY "PATIENT'S CODE ------->" GET P_CODE1
@ 12,15 SAY "ROOM CHARGES   ------->" GET R_AMM1
read
REPL TYPE WITH TYPE1
REPL LOC WITH LOC1
REPL STAT WITH STAT1
REPL P_CODE WITH P_CODE1
REPL R_AMM WITH R_AMM1  
ELSE
LOOP
ENDIF
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
ENDIF
ENDDO