home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1HELP.INC < prev    next >
Encoding:
Text File  |  1988-02-11  |  2.2 KB  |  62 lines
  1. <<* APPHELP.INC *>>
  2.  
  3. <<procedure GenHelpBody>>
  4. <<begin>>
  5. <<GenColor( 0,'SCREEN' )>>
  6. CLEAR
  7. <<GenColor( 0,'STATUS' )>>
  8. @  0, 0 SAY SPACE(80)
  9. <<select database 1>>
  10. <<filespec( dbfnam,fpath,fname,fext )>>
  11. <<fpath := substr( fpath,1,2 )>>
  12. <<if ismultials>>
  13. @  0, 0 SAY {"}{fpath}{"} + DBFname
  14. <<else>>
  15. @  0, 0 SAY {"}{fpath}{fname}.DBF"
  16. <<endif>>
  17. @  0,72 SAY DATE()
  18. <<GenColor( 0,'PROMPT' )>>
  19. @ 21, 0 SAY PromptBar
  20. <<GenColor( 0,'WINDOW' )>>
  21. @ 1,0 SAY ""
  22. ? "                                 ██████████████"
  23. ? "      Functional OVERVIEW        ██████████████"
  24. ? "                                 ██████████████"
  25. ? "                                 ██████████████"
  26. ? "    ┌────────────┬──────────────┬──────┴───────┬───────────┬───────────┐"
  27. ? " ████████     ████████     ███████████     ████████     ██████     ████████"
  28. ? " ████████     ████████     ███████████     ████████     ██████     ████████"
  29. ? " ████████     ████████     ███████████     ████████     ██████     ████████"
  30. ? "add records    display          │sub-menu   mailing   remove del-    print"
  31. ? "to Datafile    records          │           labels    eted records   report"
  32. ? "                                │"
  33. ? "    ┌───────────┬───────────┬───┴───────┬─────────────┬────────────┐"
  34. ? "  ██████     ██████      ██████      ████████      ██████     ██████████"
  35. ? "  ██████     ██████      ██████      ████████      ██████     ██████████"
  36. ? "  ██████     ██████      ██████      ████████      ██████     ██████████"
  37. ? "  edit       search      top,        search        display     display"
  38. ? "  current    on index    bottom,     on select     next        previous"
  39. ? "  record     key         record#     fields        record      record"
  40. SET COLOR TO N/W
  41. <<filespec( prgname,fpath,fname,fext )>>
  42. @  3,34 SAY {"}{fname}.PRG"
  43. @  4,34 SAY {"}{fileprefix}_XXXX.PRG"
  44. @  8, 2 SAY "APPEND"
  45. @  8,15 SAY "BROWSE"
  46. @  8,28 SAY "EDIT/VIEW"
  47. @  8,44 SAY "LABELS"
  48. @  8,57 SAY "PACK"
  49. @  8,68 SAY "REPORT"
  50. @ 15, 3 SAY "EDIT"
  51. @ 15,14 SAY "FIND"
  52. @ 15,26 SAY "GOTO"
  53. @ 15,38 SAY "LOCATE"
  54. @ 15,52 SAY "NEXT"
  55. @ 15,63 SAY "PREVIOUS"
  56. @ 21, 0 SAY ""
  57. <<GenColor( 0,'PROMPT' )>>
  58. WAIT
  59. <<end>> <<*GenHelpBody*>>
  60.  
  61. <<* EOF: APPHELP.INC *>>
  62.