home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / TECHPORT.PRG < prev   
Encoding:
Text File  |  1989-12-05  |  859 b   |  25 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: TECHPORT.PRG  Problems & Suggestions Box                │ *
  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 system
  9. LOCATE FOR LABEL = 'SUPPORT'
  10. DEFINE WINDOW techport FROM 05,00 TO 22,79 GROW FLOAT ZOOM system COLOR SCHEME 3 TITLE '< TECH SUPPORT >'
  11. SET WINDOW OF MEMO TO techport
  12. SET CURSOR OFF
  13. MODIFY MEMO contents NOWAIT
  14. WAIT WINDOW
  15. * housekeeping
  16. SELECT system
  17. USE
  18. SET WINDOW OF MEMO TO
  19. RELEASE WINDOW techport
  20. ACTIVATE SCREEN
  21. SET CURSOR ON
  22. SELECT invoice
  23. RETURN
  24. * eof
  25.