home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / DESKACC / DODA.PRG < prev   
Encoding:
Text File  |  1993-01-31  |  930 b   |  27 lines
  1. *****************************************************************
  2. *     * 09/92               DODA.PRG                            *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to programmatically use    *
  8. *     * the desk accessory and retrieve results.                *
  9. *****************************************************************
  10. *********************************
  11. *  Execute a Desk Accessory
  12. Stopit = .F.
  13. ON KEY LABEL ESCAPE DO Done
  14.  
  15. READ WITH "CALCULATOR" VALID  StopIt
  16. ON KEY LABEL ESCAPE
  17. DEACTIVATE WINDOW CALCULATOR
  18. ? "Results are:", _CALCVALUE
  19. RETURN
  20. *
  21. *****************
  22. * Terminate Read
  23. PROCEDURE Done
  24. StopIt = .T.
  25. CLEAR READ
  26. RETURN
  27.