RUN CUSTOMER-LIST
TYPE "Customer Report"
TYPE "==============="
SEARCH FILE=CUSTOMERS
  TYPE NAME, ADDRESS, CITY
  IF BALANCE > 1000
    TYPE "** HIGH BALANCE **"
  ENDIF
END-SEARCH