home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / clipper / sup35s / s3help.prg < prev    next >
Encoding:
Text File  |  1992-08-18  |  684 b   |  46 lines
  1.  
  2. #include "inkey.ch"
  3.  
  4. proc main
  5. // first, set the name of the help file to S3HELP
  6. slsf_help("S3HELP")
  7. slsf_color("S3COLOR")
  8. initsup(.f.)
  9. setcolor(sls_popcol())
  10. helptest()
  11.  
  12.  
  13. //-------------------------------------------
  14. proc helptest
  15. local v1 := space(10)
  16. local v2 := date()
  17. local v3 := time()
  18. local v4 := .f.
  19. local v5 := 123.45
  20. local cInfo := makebox(19,0,23,60)
  21. local cBox  := makebox(9,9,15,30)
  22. memvar getlist
  23.  
  24. SET KEY K_F1 to help
  25. SET KEY K_ALT_F1 TO helpmod
  26.  
  27. @21,2 say "Press F1 for help. Press ALT-F1 to modify help."
  28.  
  29. @10,10 get v1
  30. @11,10 get v2
  31. @12,10 get v3
  32. @13,10 get v4
  33. @14,10 get v5
  34. read
  35. unbox(cBox)
  36. unbox(cInfo)
  37. return
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.