DO WHILE .T.
CLEAR
STORE ' ' TO SELL
STORE 'MONTHLY REPORTS' TO TOP1
DO TOP
@ 6,30 SAY '1 - QUOTES NOTE INVOICED'
@ 7,30 SAY '2 - WORK ORDERS NOT INVOICED'
@ 8,30 SAY '3 - RMA NOT RECEIVED'
@ 9,30 SAY '4 - CAR MILAGE REPORT'
@ 10,30 SAY '5 - INVOICE / SALES REPORT PER DATE RANGE'
@ 11,30 SAY '6 - PRINT FLOPPY DISK LABELS FOR CAS'
@ 12,30 SAY '7 - COMMISION REPORT'
@ 14,30 SAY 'ENTER SELECTION - ' GET SELL
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF SELL = '1'
 DO RPTINV0
ENDIF
IF SELL = '2'
 DO RPTWO0
ENDIF
IF SELL = '3'
 DO RPTRMA
ENDIF
IF SELL = '4'
 DO CARMILE
ENDIF
IF SELL = '5'
 DO SALERPT
ENDIF
IF SELL = '6'
 DO PLABEL
ENDIF
IF SELL = '7'
 DO COMMISIO
ENDIF
IF SELL = 'A'
 DO RPTINV0
 DO RPTWO0
 DO RPTRMA
ENDIF
ENDDO