home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / YOURPROG.PRG < prev   
Encoding:
Text File  |  1993-02-04  |  1.3 KB  |  52 lines
  1. ****************************************************************
  2. *-- Name....: YOURPROG.PRG - Your Program
  3. *-- Date....: 4-02-91
  4. *-- Version.: FoxPro 2
  5.  
  6. ****************************************************************
  7. *... (your code)
  8. PUSH KEY
  9. ON KEY LABEL F1 DO HELPER
  10. *... (your code)
  11. Char = ' '
  12. DO WHILE Char # 'x'
  13.     @ 10,10 SAY "Press F1 for help" GET Char
  14.     READ
  15. ENDDO
  16. POP KEY
  17. RETURN
  18. ****************************************************************
  19. *-- Name....: HELPER
  20. *-- Date....: 4-02-91
  21. *-- Version.: FoxPro 2
  22. ****************************************************************
  23. PROCEDURE HELPER
  24. PUBLIC FIRSTHELP, HELP1
  25. SAVE SCREEN TO ORIGINAL
  26. IF .not. FIRSTHELP
  27.    FIRSTHELP=.T.
  28.    *
  29.    *   Draw help screen
  30.    *
  31.    @ 2,5 CLEAR TO 14,58
  32.    @ 2,5 TO 14,58 DOUBLE
  33.    @ 4,8 SAY "The syntax of the ACTIVATE WINDOW command is:"
  34.    @ 7,10 SAY  "ACTIVATE WINDOW [<window name1>"
  35.    @ 8,15 SAY  "  [, <window name2> ... ]] | ALL"
  36.    @ 9,15 SAY  "  [IN [WINDOW] <window name3>"
  37.    @ 10,15 SAY "  | SCREEN]"
  38.    @ 11,15 SAY "  [BOTTOM | TOP | SAME] [NOSHOW]"
  39. *  Save current screen
  40.    SAVE SCREEN TO HELP1
  41. ELSE
  42.    RESTORE SCREEN FROM HELP1
  43. ENDIF
  44. *   Wait for user response, restore original screen, and exit
  45. AChar = ' '
  46. @ 13,15 SAY "Press any key to continue" Get AChar
  47. READ
  48. RESTORE SCREEN FROM ORIGINAL
  49. RELEASE ORIGINAL
  50. RETURN
  51.  
  52.