home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
help
/
quickhel
/
quiktest.prg
< prev
next >
Wrap
Text File
|
1988-10-03
|
4KB
|
83 lines
* Program Name: quiktest.prg *
* Author: J.Bundy *
* (c) 1988 by DataBex *
**************************************************************************
* Created: 7/2/1988 at 9:42 *
* main = *
* Revision: ____ Last Revised: 10/03/88 @ 16:15 *
* Called From: *
* -- Data Base Files -- ---- Index Files ---- ----- Other Files ---- *
* To run quiktest: *
* Compile with Summer 87 Clipper *
* Link (Plink86/Microsoft Link) *
* link quiktest,,,\summer87\clipper \summer87\extend quikhelp *
*************************** ALL RIGHTS RESERVED **************************
*
* QuikHelp (tm)
* BETA 1.00
* Released 05 July 1988
*
* Here's a simple example of one way to use the QuikHelp library in your
* Clipper developed applications. This is only intended to be illustrative
* and not exhaustive.
*
* With even a modicum of experimentation, certainly more creative and useful
* applications can be discovered.
*
* This release is BETA 1.00 and is intended for distribution to interested
* developers for inclusion in any/all applications. While detailed effort
* has been made to ensure that this software operates, no such promise is
* implied or explicitly given.
*
* All bugs will be dealt with as they are discovered and verified. Your
* input and participation is welcomed.
*
* THIS IS BETA RELEASE SOFTWARE. GOVERN YOURSELVES ACCORDINGLY.
clea
*set key 28 to qh() && Hot Key Option also available during wait state
xkey=0
TEXT
╒═══════════════════════════════════════════════════════════════════════════╕
│ QuikHelp Beta - Version 1.0 │
│ *** by DataBex *** │
│ │
│ Now Available - Version 1.1 ! - (Started shipping September 15, 1988) │
│ │
│ o 450% FASTER Topical Indexing. │
│ o Updates to *ALL* Registered Users of Beta 1.0 │
│ o Registration is *FREE* │
│ o To Register: Send Name and Address to: │
│ DataBex │
│ "QuikHelp - Beta Registration" │
│ 6065 Mission Gorge Road │
│ Suite #414 │
│ San Diego, CA 92120 │
│ o Or E-mail Name and Address on: │
│ - MCI mail - 650-318-9786 │
│ - CompuServe - 72271,2152 │
│ - The Source - AAN838 │
╘═══════════════════════════════════════════════════════════════════════════╛
QuikHelp Testing Program
Version 1.00 - Beta Shareware
***
<F1> - QuikHelp
<X> - Exit
endt
set curs off
do whil .t.
xkey=0
do whil xkey=0
xkey=inkey()
endd
do case
case xkey=28
qh()
case uppe(chr(xkey))='X'
clea
set curs on
exit
endc
endd
*** end of quiktest.prg