*        < LIST OF ROOM DISPLAY OF ROOM RECORD >
CLOSE ALL
CLEAR ALL
SET TALK OFF
SET ECHO OFF
SET STAT OFF
SET SAFE OFF
CLEA
USE ROOM
REC=1
SN=1
PAG = 1
SET COLO TO */G
@ 1,30 SAY "SHAHAB HOSPITAL"
@ 2,33 SAY "ROOM LIST"
SET COLO TO
INDEX ON R_NO TO ROOM
@ 3,55 SAY "DATE:"
@ 3,60 SAY DATE()
@ 3,1 SAY "PAPGE NO.  "
@ 3,10 SAY PAG 
@ 3,30 SAY "TIME:" 
@ 3,35 SAY TIME()
SET COLO TO G
R=7
@ 5,1 SAY "S.NO"+SPACE(6)+"ROOM NO"+SPACE(10)+"TYPE"+SPACE(13)+"CHARGES"+SPACE(5)+"STATUS"  
@ 6,1 SAY REPLI("-",79)
SET COLO TO
GO TOP
DO WHILE .NOT. EOF()
@ R,1 SAY LTRIM(STR(SN))+SPACE(3)+STR(R_NO)+SPACE(13)+TYPE+SPACE(3)+STR(R_AMM)+SPACE(10)+STAT
SN=SN+1
R=R+1
REC=REC+1
IF REC >2
PAG=PAG+1
R=7
?
?
SET COLO TO *G
WAIT"                 Please Press Any Key To Continue"
SET COLO TO
@ 3,10 SAY PAG
REC=1
@ 7,1 CLEAR
ENDIF
SKIP
LOOP
ELSE
WAIT
@ 7,0 clear
LOOP
ENDDO
ENDIF
set colo to *g
?
?
?
?
?
?
?
?
WAIT"                    Please Press Any Key To Exit"
set colo to 
RETURN