This is a small program that can be used for testing the HelpSys package.
To create the Test data see the MAKETEST program.

* HelpSys2.03 test
* For normal .DBF and .NTX testing, leave both comment sections below
* commented
*
* COMPILE with   CLIPPER <file> /w/n
* LINK with      RTLINK FI <file>,HELPSYS2 LI HELPSYS2

MEMVAR GetList

PROCEDURE Main()
* * * * FOR COMIX * * * * * * * *
*  REQUEST DBFCMX             // Force a link to FlexFile
*  RDDSETDEFAULT("DBFCMX")    // Set the Default RDD to Comix
* * * * FOR FLEXFILE* * * * * * *
*  REQUEST FLEXFILE           // Force a link to FlexFile
*  RDDSETDEFAULT("FLEXFILE")  // Set the Default RDD to FlexFile
* * * * * * * * * * * * * * * * *
*  V_SUPERRDD("DBFCMX")       // Set COMIX on top of FlexFile
* * * * * * * * * * * * * * * * *

   USE Test INDEX TEST1,TEST2,TEST3
   CLEAR SCREEN

   @ 1, 3 GET Test->Field1
   @ 3, 3 GET Test->Field2
   @ 4, 3 GET Test->Field3
   READ
RETURN