home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws24.arc / HELP.PRG < prev    next >
Encoding:
Text File  |  1988-05-18  |  1.7 KB  |  56 lines
  1. * Program: HELP.PRG
  2. * Author:  Don L. Powells
  3. * Version: Clipper Summer 87
  4. * Notes:   Database file: HELP.DBF
  5. *          Index files:   HELP.NTX
  6. *          Routine to display user-defined help screens
  7. * Copyright (c) 1988 Nantucket Corp.
  8.  
  9. * Prevent recursive calling
  10. SET KEY 28 TO
  11.  
  12. PARAMETERS call_prg, line_num, input_var
  13. helpscrn = SAVESCREEN(8,20,18,59)
  14. wkarea = SELECT()
  15. SELECT 0
  16. USE Help
  17. IF FILE("HELP.NTX")
  18.    SET INDEX TO Help     && Index Key: Proc+STR(Line)+Get_var
  19. ELSE
  20.    INDEX ON (Proc + STR(Line) + Get_var) to Help
  21. ENDIF
  22.  
  23. * Draw Help Display Box
  24. @ 8,20 TO 18,59
  25. @ 8,52 SAY CHR(24) + " PgUp"     && 24 is UpArrow
  26. @ 18,52 SAY CHR(25) + " PgDn"       && 25 is DnArrow
  27. CENTER(8,"Help Screen")
  28. CENTER(18,"Press <ESC> when Done")
  29. * Clear the screen inside the Display Box
  30. SCROLL(9,21,17,58,0)
  31.  
  32. * Ensure that the call_prg and input_var are 10 chars long
  33. *   so that they will match the index key value and dbf
  34. sought = IIF(LEN(call_prg) < 10, call_prg +;
  35.          SPACE(10 - LEN(call_prg)),SUBSTR(call_prg,1,10)) +;
  36.          str(line_num) + IIF(LEN(input_var) < 10, input_var +;
  37.          SPACE(10 - LEN(input_var)),SUBSTR(input_var,1,10))
  38. SEEK sought
  39. IF FOUND()
  40.    MEMOEDIT(Help_memo,9,21,17,58,.F.)   && Display message
  41. ELSE
  42.    nohelp = CHR(13) + CHR(10) + CHR(13) + CHR(10) +;
  43.             "No Help is available at this point." + CHR(13) +;
  44.              CHR(10) + "Use Alt-F1 to"+;
  45.             " add a Help message here."
  46.    MEMOEDIT(nohelp,9,21,17,58,.F.)    && Display nohelp
  47. ENDIF
  48. USE
  49. * Reselect the original work area
  50. SELECT (WKAREA)
  51. * Restore the original screen contents
  52. RESTSCREEN(8,20,18,59,helpscrn)
  53. SET KEY 28 TO HELP
  54. RETURN
  55.  
  56.