home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / nan_news / vol2 / no4 / helprite.prg < prev    next >
Text File  |  1988-05-18  |  2KB  |  63 lines

  1. * Program: HELPRITE.PRG
  2. * Author:  Don L. Powells
  3. * Version: Clipper Summer 87
  4. * Notes:   Database file: HELP.DBF
  5. *          Index file: HELP.NTX
  6. *          Routine to edit and save user-defined help messages
  7. * Copyright (c) 1988 Nantucket Corp.
  8. *
  9. SET KEY -30 TO
  10. PARAMETERS call_prg, line_num, input_var
  11. helpscrn = SAVESCREEN(8,20,18,59)
  12. wkarea = SELECT()
  13. ismemo = .F.
  14. SELECT 0
  15. USE Help
  16. IF FILE("HELP.NTX")
  17.    SET INDEX TO Help     && Index Key: Proc+STR(Line)+Get_var
  18. ELSE
  19.    INDEX ON Proc + STR(Line) + Get_var to Help
  20. ENDIF
  21.  
  22. * Draw Help Display Box
  23. @ 8,20 TO 18,59
  24. @ 8,53 SAY CHR(24) + " PgUp"     && 24 = UpArrow
  25. @ 18,53 SAY CHR(25) + " PgDn"    && 25 = DnArrow
  26. CENTER(8,"Help Entry")
  27. CENTER(18,"Press Ctrl-W when Done")
  28. * Clear out inside of the box
  29. SCROLL(9,21,17,58,0)
  30.  
  31. * Ensure that the call_prg and input_var are 10 chars long
  32. *   so that they will match the index key value and dbf
  33. sought = IIF(LEN(call_prg) < 10, call_prg +;
  34.          SPACE(10 - LEN(call_prg)),SUBSTR(call_prg,1,10)) +;
  35.          str(line_num) + IIF(LEN(input_var) < 10, input_var +;
  36.          SPACE(10 - LEN(input_var)),SUBSTR(input_var,1,10))
  37. SEEK sought
  38. IF FOUND()
  39.    ismemo = .T.
  40.    helpnotes = Help_memo
  41. ELSE
  42.    helpnotes = space(400)
  43. ENDIF
  44. SET CURSOR ON
  45. helpnotes = MEMOEDIT(helpnotes,9,21,17,58,.T.)
  46. resp = "Y"
  47. CENTER(18,"Save Help Message(Y/N)? ")
  48. resp = INKEY(0)
  49. IF UPPER(CHR(resp)) = "Y"
  50.    IF !ismemo
  51.       APPEND BLANK
  52.    ENDIF
  53.    REPLACE Proc WITH call_prg, Line WITH line_num,;
  54.       Get_var WITH input_var
  55.    REPLACE Help_memo WITH helpnotes
  56. ENDIF
  57. USE
  58. SELECT (WKAREA)
  59. RESTSCREEN(8,20,18,59,helpscrn)
  60. SET KEY -30 TO Helprite
  61. RETURN
  62.  
  63.