Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3-GKEY.ZIP
Filename : TESTTIME.PRG
*
* by: H.M. Van Tassell
*
* A program to test the T_GetKey procedure contained in the
* procedure file TIMEPROC.PRG for use under dBASEIII Plus or
* Clipper Winter '85
*
SET TALK OFF
** NOTE: If you dont have CursOn/CursOff binary files you must
** comment out the next two load instructions, if Clippering, you
** either have the CursOn/Off as in the file CURSOR.OBJ, for linking
** or comment out the CALLS in T_GetKey. All the cursor stuff is
** included in the dB-INKEY.ARC
*
PUBLIC clipper
*
IF .NOT. Clipper
LOAD cursoff && Clipper will flag as errors but not to worry
LOAD curson && or you may comment out to avoid error msg.
ENDIF
*
SET PROCEDURE TO timeproc
*
* set time colors to reverse/normal for mono display
RevVideo = "N/W"
StdVideo = "W/N"
*
* set row and colm where time will be printed
trow = 1
tcol = 70
DO WHILE .T.
CLEAR
*
@ 10,10 SAY "Enter X, Y, or Z; an X will eXit program: "
choice = ""
DO T_GetKey WITH choice, "XYZ" && xyz=values, can also be "*" wildcard
?
? "Hey - can't fool me, you just entered a " + choice
IF choice = "X"
EXIT
ENDIF
?
WAIT
ENDDO
?
? "Wasn't that was so very nice?"
?
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/