home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / clockcal.zip / TSTONKEY.PRG < prev   
Text File  |  1991-01-27  |  1KB  |  56 lines
  1. *** TSTONKEY.prg
  2. *
  3. *  (c) CTS, MRI 1991
  4. *
  5. SET STATUS OFF
  6. SET TALK OFF
  7. ON KEY LABEL F1 DO HELPIT
  8. on KEY LABEL F2 DO CLOCKIT
  9. ON KEY LABEL F3 DO CALENDAR
  10. ON KEY LABEL F4 DO ASCII
  11. mWHAT=SPAC(10)
  12. @15,1 TO 20,20
  13. @16,3 say "F1 for HELP"
  14. @17,3 SAY "F2 for Time Clock"
  15. @18,3 SAY "F3 for Calendar"
  16. @19,3 SAY "F4 for Ascii List"
  17. @10,10 SAY "Enter Something" GET mWHAT FUNC "!" ;
  18.        VALID REQUIRED .NOT. ""=TRIM(mWHAT)
  19. READ
  20. ON KEY LABEL F1
  21. ON KEY LABEL F2
  22. ON KEY LABEL F3
  23. ON KEY LABEL F4
  24. RETURN
  25. *** end of TSTONKEY.prg
  26. *
  27. *=-   Procedures & Functions
  28. *
  29. PROCEDURE HELPIT
  30. mWIN=TRIM(WIND())
  31. DEFINE WINDOW mHELP FROM 1,40 TO 21,70 COLOR GR+/N,,G+/N
  32. ACTIVATE WINDOW mHELP
  33. @0,5 SAY "-=*=- HELP -=*=-" COLOR R+/N
  34. @1,1 SAY "Function         Key" COLOR W+/N
  35. @2,1 SAY "=============    ====" COLOR W/N
  36. @3,6 SAY "Calendar" COLOR G+/N
  37. @4,1 SAY "Return to Prg  - Esc"
  38. @5,1 SAY "PREVIOUS Year  - PgDn"
  39. @6,1 SAY "    NEXT Year  - PgUp"
  40. @7,1 SAY "PREVIOUS Month - LfArw"
  41. @8,1 SAY "    NEXT Month - RtArw"
  42. @9,1 SAY "Enter any Date - Home"
  43. @11,6 SAY "Clock" COLOR G+/N
  44. @12,1 SAY "Toggle 12/24 hr - Ctrl-T"
  45. @13,1 SAY "Return to Prg   - Esc"
  46. @15,6 SAY "Ascii Table" COLOR G+/N
  47. @16,1 SAY "Return to Prg   - Esc"
  48. @18,7 SAY "Press ANY key to exit" COLOR W+/N
  49. *
  50. I=INKEY(100)
  51. RELE WINDOW mHELP
  52. RETURN
  53. *=- End of Procedures & Functions
  54. *
  55.  
  56.