home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / DB3-GKEY.ZIP / TESTTIME.PRG < prev    next >
Text File  |  1986-07-05  |  1KB  |  54 lines
  1. **    Last revision: July 5, 1986 at 9:54
  2.  
  3. *
  4. * by: H.M. Van Tassell
  5. *
  6. *     A program to test the T_GetKey procedure contained in the
  7. *     procedure file TIMEPROC.PRG for use under dBASEIII Plus or
  8. *     Clipper Winter '85
  9. *
  10.  
  11. SET TALK OFF
  12.  
  13. **    NOTE: If you dont have CursOn/CursOff binary files you must
  14. **    comment out the next two load instructions, if Clippering, you
  15. **    either have the CursOn/Off as in the file CURSOR.OBJ, for linking
  16. **    or comment out the CALLS in T_GetKey.  All the cursor stuff is 
  17. **    included in the dB-INKEY.ARC
  18.  
  19. *
  20. PUBLIC clipper
  21. *
  22. IF .NOT. Clipper
  23.   LOAD cursoff  && Clipper will flag as errors but not to worry
  24.   LOAD curson   && or you may comment out to avoid error msg.
  25. ENDIF
  26. *
  27. SET PROCEDURE TO timeproc
  28. *
  29. * set time colors to reverse/normal for mono display
  30. RevVideo = "N/W"
  31. StdVideo = "W/N"
  32. *
  33. * set row and colm where time will be printed
  34. trow = 1  
  35. tcol = 70
  36. DO WHILE .T.
  37.   CLEAR
  38.   *
  39.   @ 10,10 SAY "Enter X, Y, or Z; an X will eXit program: "
  40.   choice = ""
  41.   DO T_GetKey  WITH choice, "XYZ"   && xyz=values, can also be "*" wildcard
  42.   ?
  43.   ? "Hey - can't fool me, you just entered a " + choice
  44.   IF choice = "X"
  45.     EXIT
  46.   ENDIF
  47.   ?
  48.   WAIT
  49. ENDDO
  50. ?
  51. ? "Wasn't that was so very nice?"
  52. ?
  53.  
  54.