home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / cl_clk10.zip / CLK.PRG next >
Text File  |  1993-03-24  |  2KB  |  66 lines
  1. /******************************************************************
  2. *  This is a demo of the clock program.  It could also be
  3. *  used as a screen blanker from your menu system if your
  4. *  menu can be configured to call an external program.
  5. *
  6. *   Compile this demo by running the MAKECLK.BAT
  7. *     (This assumes you are using RTLink.)
  8. *
  9. *   Syntax (From DOS):  CLK  [ 12|24 ]  [ String_to_be_displayed ]
  10. *
  11. *   Both parameters are optional, the clock will default to 12
  12. *   hour mode and "Press any key to continue..."
  13. *
  14. *  The parameters can be passed in any order, and either can be
  15. *  omited.  The only stipulation is that the words in the string,
  16. *  if it contains more than one word, must be separated by the
  17. *  under-score, "_", character.  Any place you want a space, you
  18. *  must replace it with a under-score.  REMEMBER, this is only
  19. *  true of this demo, if you link CLOCK() in with your application,
  20. *  the under-scores are not needed.  The reason the underscore is
  21. *  necessary here is because of the way Clipper handles input
  22. *  parameters from DOS.  If there are any spaces, each word will be
  23. *  concidered a separate parameter.
  24. *
  25. *  All that this function does is resolve and convert the DOS input
  26. *  parameters into their proper type/look.
  27. *
  28. *  All DOS parameters come in as Character type or NIL if not passed.
  29. *
  30. */
  31.  
  32.  
  33. FUNCTION Main(mode, string)
  34. LOCAL holdit
  35. IF string != NIL
  36.   // at least two parameters were passed
  37.   IF string = "12" .or. string = "24"
  38.     // parameters are backwards, flip'um
  39.     holdit := string
  40.     string := mode
  41.     mode := holdit
  42.   ENDIF
  43. ENDIF
  44. // see if first parameter is 12 or 24
  45. IF mode != NIL
  46.   IF mode = "12"
  47.     mode := .T.
  48.   ELSEIF mode = "24"
  49.     mode := .F.
  50.   ELSE
  51.     // parameter one is not 12 or 24,
  52.     // it will now be the displayed string
  53.     string := mode
  54.     mode := .T.
  55.   ENDIF
  56. ENDIF
  57. // if second parameter resolved into a character string,
  58. // replace all underscores with spaces
  59. IF VALTYPE(string) = "C"
  60.   string := STRTRAN(string, "_", " ")
  61. ENDIF
  62. // call the clock (if there are any other errors)
  63. // clock will have to handle it
  64. Clock(mode, string)
  65. RETURN( NIL )
  66.