home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / TECHDOC.PRG < prev    next >
Encoding:
Text File  |  1989-11-07  |  978 b   |  26 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: TECHDOC.PRG.                                            │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. SELECT 0
  8. USE techdoc
  9. DEFINE POPUP  techdoc FROM 02,00 TO 24,14 PROMPT FIELD subject COLOR SCHEME 11
  10. ON SELECTION POPUP techdoc DO modmemo
  11. DEFINE WINDOW techinfo ZOOM CLOSE GROW system FROM 02,00 TO 24,79 ;
  12. TITLE 'Press <CTRL> W to exit & save, <ESC> to exit without saving.' COLOR SCHEME 11
  13. SET WINDOW OF MEMO TO techinfo
  14. ACTIVATE POPUP techdoc
  15. USE
  16. RELEASE POPUP techdoc
  17. RELEASE WINDOW techinfo
  18. RETURN
  19.  
  20. PROCEDURE modmemo
  21.   LOCATE FOR subject = PROMPT()
  22.   MODIFY MEMO INFO SAVE
  23.   RETURN
  24.   
  25.   * EOF
  26.