DO WHILE .T.
STORE 'REPORTS' TO TOP1
DO TOP
STORE ' ' TO SEL
@ 8,30 SAY '1 - Guest Call-Ins'
@ 10,30 SAY '2 - Decal not assigned'
@ 13,30 say 'Enter Selection - ' get sel picture '!'
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 RETURN
ENDIF
IF SEL = ' '
 RETURN
ENDIF
IF SEL = '1' 
 DO RPTGUEST
ENDIF
IF SEL = '2' 
 DO RPTDECAL
ENDIF
ENDDO