home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / BVALID.PRG < prev    next >
Encoding:
Text File  |  1992-08-01  |  668 b   |  18 lines
  1. ***************************************************************
  2. *     * 07/30/92            BVALID.PRG               8:42:02  *
  3. *     * Description:                                          *
  4. *     * This program illustrates VALID clause for BROWSE      *
  5. *     * Accessories                                           *
  6. ***************************************************************
  7. DEFINE WINDOW VALID FROM 6,60 to 11,79 
  8. USE CENSUS
  9. BROWSE VALID:F CHECK()
  10. RELEASE WINDOW VALID
  11. RETURN
  12. PROCEDURE CHECK
  13. ACTIVATE WINDOW VALID
  14. @ 0,2 SAY STATE
  15. @ 2,0 SAY "Old Population:"
  16. @ 3,1 SAY TRIM(STR(Population/(1+GROWTH/100)))
  17. ACTIVATE WINDOW (WLAST())
  18. RETURN .T.