home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / help / quickhel / quiktest.prg < prev    next >
Encoding:
Text File  |  1988-10-03  |  3.9 KB  |  83 lines
  1. * Program Name: quiktest.prg *
  2. * Author: J.Bundy *
  3. * (c) 1988 by DataBex *
  4. **************************************************************************
  5. * Created: 7/2/1988 at 9:42                                              *
  6. * main =                                                                 *
  7. * Revision: ____  Last Revised: 10/03/88   @ 16:15                       *
  8. * Called From:                                                           *
  9. * -- Data Base Files --   ---- Index Files ----   ----- Other Files ---- *
  10. * To run quiktest:                                                       *
  11. * Compile with Summer 87 Clipper                                         *
  12. * Link (Plink86/Microsoft Link)                                          *    
  13. * link quiktest,,,\summer87\clipper \summer87\extend quikhelp            *
  14. *************************** ALL RIGHTS RESERVED **************************
  15. *
  16. *                           QuikHelp (tm)
  17. *                           BETA 1.00 
  18. *                           Released 05 July 1988
  19. *
  20. * Here's a simple example of one way to use the QuikHelp library in your
  21. * Clipper developed applications.  This is only intended to be illustrative
  22. * and not exhaustive.  
  23. *
  24. * With even a modicum of experimentation, certainly more creative and useful
  25. * applications can be discovered.
  26. *
  27. * This release is BETA 1.00 and is intended for distribution to interested 
  28. * developers for inclusion in any/all applications.  While detailed effort
  29. * has been made to ensure that this software operates, no such promise is 
  30. * implied or explicitly given.
  31. *
  32. * All bugs will be dealt with as they are discovered and verified.  Your
  33. * input and participation is welcomed.
  34. *
  35. * THIS IS BETA RELEASE SOFTWARE.  GOVERN YOURSELVES ACCORDINGLY.
  36. clea
  37. *set key 28 to qh() && Hot Key Option also available during wait state
  38. xkey=0
  39. TEXT
  40. ╒═══════════════════════════════════════════════════════════════════════════╕
  41. │                    QuikHelp Beta - Version 1.0                            │
  42. │                         *** by DataBex ***                                │
  43. │                                                                           │
  44. │  Now Available - Version 1.1 ! - (Started shipping September 15, 1988)    │
  45. │                                                                           │
  46. │  o  450% FASTER Topical Indexing.                                         │
  47. │  o  Updates to *ALL* Registered Users of Beta 1.0                         │
  48. │  o  Registration is *FREE*                                                │
  49. │  o  To Register: Send Name and Address to:                                │
  50. │                              DataBex                                      │
  51. │                   "QuikHelp - Beta Registration"                          │
  52. │                      6065 Mission Gorge Road                              │
  53. │                             Suite #414                                    │
  54. │                        San Diego, CA 92120                                │
  55. │  o  Or E-mail Name and Address on:                                        │
  56. │                    -  MCI mail   - 650-318-9786                           │
  57. │                    -  CompuServe - 72271,2152                             │
  58. │                    -  The Source - AAN838                                 │
  59. ╘═══════════════════════════════════════════════════════════════════════════╛
  60.                        QuikHelp Testing Program
  61.                     Version 1.00 - Beta Shareware
  62.                                  ***
  63.                            <F1> - QuikHelp
  64.                               <X> - Exit
  65. endt
  66. set curs off
  67. do whil .t.
  68.    xkey=0
  69.    do whil xkey=0
  70.       xkey=inkey()
  71.    endd
  72.    do case
  73.       case xkey=28
  74.          qh()
  75.       case uppe(chr(xkey))='X'
  76.          clea
  77.          set curs on
  78.          exit
  79.    endc
  80. endd
  81. *** end of quiktest.prg
  82.  
  83.