*** TSTONKEY.prg
*
*  (c) CTS, MRI 1991
*
SET STATUS OFF
SET TALK OFF
ON KEY LABEL F1 DO HELPIT
on KEY LABEL F2 DO CLOCKIT
ON KEY LABEL F3 DO CALENDAR
ON KEY LABEL F4 DO ASCII
mWHAT=SPAC(10)
@15,1 TO 20,20
@16,3 say "F1 for HELP"
@17,3 SAY "F2 for Time Clock"
@18,3 SAY "F3 for Calendar"
@19,3 SAY "F4 for Ascii List"
@10,10 SAY "Enter Something" GET mWHAT FUNC "!" ;
       VALID REQUIRED .NOT. ""=TRIM(mWHAT)
READ
ON KEY LABEL F1
ON KEY LABEL F2
ON KEY LABEL F3
ON KEY LABEL F4
RETURN
*** end of TSTONKEY.prg
*
*=-   Procedures & Functions
*
PROCEDURE HELPIT
mWIN=TRIM(WIND())
DEFINE WINDOW mHELP FROM 1,40 TO 21,70 COLOR GR+/N,,G+/N
ACTIVATE WINDOW mHELP
@0,5 SAY "-=*=- HELP -=*=-" COLOR R+/N
@1,1 SAY "Function         Key" COLOR W+/N
@2,1 SAY "=============    ====" COLOR W/N
@3,6 SAY "Calendar" COLOR G+/N
@4,1 SAY "Return to Prg  - Esc"
@5,1 SAY "PREVIOUS Year  - PgDn"
@6,1 SAY "    NEXT Year  - PgUp"
@7,1 SAY "PREVIOUS Month - LfArw"
@8,1 SAY "    NEXT Month - RtArw"
@9,1 SAY "Enter any Date - Home"
@11,6 SAY "Clock" COLOR G+/N
@12,1 SAY "Toggle 12/24 hr - Ctrl-T"
@13,1 SAY "Return to Prg   - Esc"
@15,6 SAY "Ascii Table" COLOR G+/N
@16,1 SAY "Return to Prg   - Esc"
@18,7 SAY "Press ANY key to exit" COLOR W+/N
*
I=INKEY(100)
RELE WINDOW mHELP
RETURN
*=- End of Procedures & Functions
*